Ich will das Ergebnis einer SQL Abfrage einem Kombinationsfeld zuweisen.
Die Datenabfrage funktioniert. Im Recordset rs speichere ich das Ergebnis und will es dann in der Zeile "FreieLager.Recordset = rs" dem Kombinationsfeld zuweisen.
Beim Ausführen bekomme ich aber dann den Fehler "Objektvariable oder With-Blockvariable nicht festgelegt"
was mach ich da falsch oder funktioniert das jetzt under Windows XP prinzipiell anders? Denn die Änderung das man jetzt DAO vor Database schreiben muss ist für mich auch neu
Private Sub FreiLagerPlätze_Click()
Dim Anwendung As DAO.Database
Dim rs As DAO.Recordset
Set Anwendung = CurrentDb
Set rs = Anwendung.OpenRecordset("SELECT Reihe FROM Lager" & Lager & "
where Kapazität>" & Kartongröße)
FreieLager.Recordset = rs
FreieLager.Requery
Me.Requery
End Sub
mfg Digga
Die Datenabfrage funktioniert. Im Recordset rs speichere ich das Ergebnis und will es dann in der Zeile "FreieLager.Recordset = rs" dem Kombinationsfeld zuweisen.
Beim Ausführen bekomme ich aber dann den Fehler "Objektvariable oder With-Blockvariable nicht festgelegt"
was mach ich da falsch oder funktioniert das jetzt under Windows XP prinzipiell anders? Denn die Änderung das man jetzt DAO vor Database schreiben muss ist für mich auch neu
Private Sub FreiLagerPlätze_Click()
Dim Anwendung As DAO.Database
Dim rs As DAO.Recordset
Set Anwendung = CurrentDb
Set rs = Anwendung.OpenRecordset("SELECT Reihe FROM Lager" & Lager & "
where Kapazität>" & Kartongröße)
FreieLager.Recordset = rs
FreieLager.Requery
Me.Requery
End Sub
mfg Digga
