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??
Du musst angemeldet sein, um einen Kommentar abzugeben.
Wenn ich Sie richtig verstehe, suchst du den "Requery" - Anweisung.
Dies wird mit "aktualisieren" die Daten in Ihrer combobox oder form.
Sie können eine
In den entsprechenden Event-handler. Wahrscheinlich "AfterUpdate" wenn ich mich richtig erinnere.
versuchen
Datensatzherkunft im Kombinationsfeld =
"SELECT DISTINCT Tabelle.Feld FROM Tabelle;"
findet alle eindeutigen Werte in der Tabelle, alphebetizes Sie, dann lässt Sie in einem langen drop-down-Menü.