C’è un modo semplice per popolare il menu a discesa in questo schema di Access Database?

Ho 3 tavoli che assomigliano a questo:

Location Node Sektor ----- ------- ------- PK: ID - Autonumber PK: ID - Autonumber PK: ID - Autonumber Name NodeName Sektor Height Aksess Frequency Latitude Tag Coverage Longtitude IP 

Ogni posizione è collegata a più nodes collegati a più sensori.

Ora la parte interessante. In Microsoft Access è ansible creare schemi che consentono agli utenti di aggiungere facilmente dati. Ho il tavolo finale simile a questo che voglio usare il mio schema per inserire i dati in:

 Customers ------- PK: CustID Name Subscribtion Sektor 

Questo è dove voglio che la magia sia fatta. Voglio che l’utente sia in grado di selezionare prima una posizione, quindi presentarsi con i nodes disponibili (preferibilmente nel menu a discesa) e infine può scegliere il sektor corretto per l’aggiunta del cliente.

Qualcuno conosce un modo abbastanza semplice per farlo? Ho iniziato a creare una macro per questo, ma la mia memoria dei macro è davvero pessima, e non ho la documentazione corretta con me atm per cercarlo.

Qualsiasi aiuto appriciato =)

È davvero una pessima idea nominare qualsiasi nome.

Mi sembra che tu abbia bisogno di combobox a cascata. Avrai bisogno di un piccolo VBA.

Due caselle combinate chiamate, ad esempio, cboLocation e cboNodes, su un forrm chiamato, ad esempio, frmForm

cboLocation

 RowSource: SELECT ID, [Name] FROM Locations ORDER BY [Name] ColumnCount: 2 ColumnWidths: 0;2.00cm ''The second column can be any suitable width LimitToList: Yes 

eventi:

 Private Sub cboLocation_AfterUpdate() Me.cboNode.Requery End Sub 

CboNode

 RowSource: SELECT ID, NodeName FROM Nodes WHERE IP=[Forms]![frmForm]![cboLocation] ORDER BY NodeName ColumnCount: 2 ColumnWidths: 0;2.00 ''Ditto LimitToList: Yes 

eventi:

 Private Sub cboNode_GotFocus() If Trim(Me.cboLocation & "") = vbNullString Then MsgBox "Please select location" Me.cboLOcation.SetFocus End If End Sub 

Avrai anche bisogno di un evento di forma:

 Private Sub Form_Current() Me.cboNode.Requery End Sub