Hallo Forum!
Folgendes Problem: Habe ein Access-Projekt (adp) im Access 2002-2003-Format mit Anbindung an SQL Server 2005. Möchte nun per Ereignisprozedur in VBA 6.5 (unter Access 2007) einer Variable einen Wert zuweisen, welcher aus einer Tabelle gelesen wird. Habe diverses ausprobiert und bekomm es einfach nicht hin. Folgender Ansatz ist die letzte Version:
Private Sub Liste0_Click()
Dim FNR_akt As Integer
Dim Matchcode_akt As String
Dim strSQL As String
Dim Liste As Recordset
Dim db As Database
FNR_akt = Screen.ActiveControl
Set db = CurrentDb()
strSQL = "SELECT Firma_RAW.Matchcode FROM Firma_RAW WHERE Firma_RAW.FNR=" & FNR_akt
Set Liste = db.OpenRecordset(strSQL, dbOpenDynaset)
DoCmd.ApplyFilter , "([SORT_Konzern].[Matchcode]='" & Matchcode_akt & "')", Y_Konzern
End Sub
In der Tabelle Firma_RAW bestehen die Spalten "FNR" und "Matchcode", im Großen und Ganzen soll also der der "FNR_akt" zugehörige Eintrag (in der Spalte "Matchcode") der Variable "Matchcode_akt" zugewiesen werden. Die FNR_akt wird korrekt ausgelesen und die Filter-Anwendung am Ende funktioniert auch. Im Mittelteil steigt Access mit der Meldung "Objektvariable nicht festgelegt" aus, der Debugger bleibt bei der Zeile "Set Liste [...]" stehen.
Hilfe bitte!!
Viele Grüße |