Buonasera a tutti,
qualche mese fa ho chiesto parecchi aiuti per la creazione di un database gestionale per un laboratorio di chimica. Con tutto questo casino purtroppo il database è rimasto fermo, ma oggi mi ritrovo a chiedervi aiuto per la gestione di maschere e sottomaschere collegate...
Qui sotto la foto dell'albero delle relazioni.
Albero_Relazioni_DB.png
Provo a spiegare brevemente la mia idea:
Vorrei una maschera principale (legata alla tblProduttori) con una txtNomeProduttore e una cmbLocalità
In questa maschera una sottomaschera filtrata per IDProduttore (legata alla tblVigneti) con i campi visibili in foto allegata.
Sempre nella stessa maschera ancora una sottomaschera filtrata per IDProduttore e IDVigneto (legata alla tblSpecie) con ancora i campi visibili in foto allegata.
[Per ora talascio la parte degli sperimenti, si parla di un'altra maschera]
Per ora sono riuscito a fare ciò:
Alla selezione di un produttore la 1° sm viene filtrata facendo apparire solamente i vigneti di quel certo produttore
Alla selezione di un vigneto la 2° sm viene filtrata facendo apparire solamente le specie di quel certo vigneto
Qui la foto di come è strutturata tale maschera:
Maschera_GEstioneVigneti_DB.png
Spero di essere stato abbastanza chiaro, perchè ora ho bisogno di aiuto.
Sia nella maschera che in ciascuna sottomaschera sono presenti 3 buttons, uno per il NewRecord, uno per l'EditRecord, e uno per il DelRecord. Mi servirebbe un grandissimo aiuto con la gestione di essi. Ho gia predisposto delle maschere di dettaglio per l'edit/add di record.
Avendo solamente 16 anni mi sto cimentando in modo molto homemade a questa cosa, e un aiuto diretto da voi del forum sarebbe fondamentale.
Per ora sono riuscito a far funzionare i buttons della maschera principale relativa al produttore e della 1° sm relativa al vigneto. Di seguito il codice usato:
Per il cmdNuovo e cmdEdit il codice è simile, solamente ho modificato l'OpenArgs; mentre nelle sm ho reso invisibile la maschera intera, e non soltato la sm.
Private Sub cmdNuovo_Click()
Me.Visible = False
DoCmd.OpenForm "mProduttoriLkp", , , "IDProduttore = " & Me.IDProduttore, acFormAdd, acDialog, "New"
Me.Visible = True
Me.Requery
End Sub
Questo è il codice di quando si chiude la form di dettaglio:
Private Sub Form_Unload(Cancel As Integer)
DoCmd.RunCommand acCmdSaveRecord
End Sub
Già qui vi chiedo cosa ne pensate. E' una gestione vagamente ottimale?
Per la 2° sottomaschera non rieco invece proprio a far funzionare questi bottoni...
Vi ringranzio moltissimo in anticipo, perchè mi rendo conto di chiedere tantissimo. Se qualcuno potrebbe aiutarmi e darmi qualche spunto gliene sarei davvero grato. Buona serata!