Combo-box-Werte automatisch aktualisieren

hoffentlich jemand helfen kann

Aufbau der Tabelle ist wie folgt:

tblCompany:   
compID
compName

tblOffice:  
offID,
compID,   
add1, add2, add3 etc...

tblEmployee:   
empID
Name, telNo, etc...   
offID

Ich habe ein Formular mit Kontaktinformationen für die Mitarbeiter, alles funktioniert ok mit nach dem update.
Ein cascading combo-box, cmbComp, erlaubt es mir, wählen Sie ein Unternehmen, und inturn wählen Sie das entsprechende Büro, cboOff, und aktualisiert die entsprechenden tblEmployee.offID Feld korrekt. Felder werden automatisch aktualisiert, für die Adresse auch

cmbComp: RowSource

SELECT DISTINCT tblOffice.compID, tblCompany.compID 
FROM tblCompany 
INNER JOIN AdjusterCompanyOffice 
ON tblCompany.compID=tblOffice.compID 
ORDER BY tblCompany.compName; 

cboOff: RowSource

SELECT tblCompany.offID, tblCompany.Address1, 
tblCompany.Address2, tblCompany.Address3, tblCompany.Address4, 
tblCompany.Address5 
FROM tblCompany 
ORDER BY tblCompany.Address1; 

Das problem ich habe, ist, dass, wenn ich laden einen neuen Rekord, wie die Daten abzurufen und automatisch zu laden cmbComp-und text-Felder.

Den cboOff combo-box lädt richtig als control source für das ist die offID

Ich mir vorstellen, muss es eine Möglichkeit der Einstellung, der Wert auf die öffnung der Scheibe? Nicht sicher, wie obwohl. Ich glaube nicht, dass ich kann, legen Sie die controlsource-cmbComp-oder text-Felder, oder kann ich?

Jede Hilfe/Punkt in die richtige Richtung gewürdigt werden, war die Suche nach einem Weg, dies zu tun, kann aber nicht überall zu bekommen!

Bearbeiten

Ive versucht, indem Sie das folgende für die Ansteuerung eines text-Feld

=[Forms]![frmAdjPersonalDetails]![cboAdjOff].[Column](2)

Dieser Werke an, um die Werte, sondern führt zu einem Fehler mit dem after Update benutzt zum erstellen der cascading combo-box, und aktualisieren Sie die text-Felder.

Private Sub cmbComp_AfterUpdate()
Me.cboOff.RowSource = "SELECT ID, Address1, Address2, Address3, Address4, Address5        FROM" & _
 " tblOffice WHERE CompID = " & Me.cmbComp & _
" ORDER BY Address1"
 Me.cboAdjOff = Me.cboAdjOff.ItemData(0)
Me.txtAdd2 = Me.cboOff.Column(2)
Me.txtAdd3 = Me.cboOff.Column(3)
Me.txtAdd4 = Me.cboOff.Column(4)
Me.txtAdd5 = Me.cboOff.Column(5)
End Sub

Nicht sicher, was der tod tun??

InformationsquelleAutor noelmcg | 2010-03-30
Schreibe einen Kommentar