Mrfivejunior

oh sorry, ich verwende access 07

Hallo, ich komm irgendwie nicht weiter. Bis jetzt schaut es so aus, dass ich ein Formular habe, in dem ich zum Beispiel die 3 Textfelder: Gegenstand, Typ und Ausführung habe. Über einen button kann ich eine Abfrage öffnen. Die Abfrage soll nun nach Datensätzen suchen, die mit in den 3 Textfeldern angegebenen Werte übereinstimmen. Bis jetzt klappt die Abfrage aber nur wenn ich in jedes Textfeld einen Wert eingebe. Es soll aber so sein, dass wenn zum Beispiel eines des 3Textfelder leer ist, dann die Abfrage nach den Datensätzen sucht, die mit den anderen beiden Textfeldern übereinstimmt und das dritte Kriterium nicht berücksichtigt. Kann mir bei meinem Problem vielleicht jemand helfen?? Schon mal Danke. LG Tobias

also der Fehler triet in der Zeile: OldGQMNr = [rsInTable]![GQM-Nr] auf Ich hab den ganzen code von meiner Datenbank rauskopiert und in die gleiche Datenbank, die jedoch etwas älter ist, eingefügt Bei der anderen Datenbank hat alles ohne Probleme fuktioniert.

Hallo, ich komm nicht mehr weiter, bitte um Hilfe. Ich hab einen Botton auf den fogender code hinterlegt ist: Private Sub Befehl35_Click() Dim rsInTable As New ADODB.Recordset Dim OldGQMNr As String Dim NewGQMNR As String Dim LastGQMNR As String Dim YearGQMNR As Byte Dim ActualYear As Byte Dim ReturnValue As String ActualYear = Mid(CStr(Year(Now())), 3) Set rsInTable = New ADODB.Recordset ' Recordset-Objekt instanziieren rsInTable.ActiveConnection = CurrentProject.Connection ' Connection zuweisen rsInTable.CursorType = adOpenDynamic ' Zugriffsmodus für DB-Cursor rsInTable.LockType = adLockOptimistic rsInTable.Open "SELECT Last(Stammdaten.[Stammdaten-ID]) AS [Stammdaten-ID], Last(Stammdaten.[GQM-Nr]) AS [GQM-Nr] " & _ "FROM Stammdaten " & _ "ORDER BY Last(Stammdaten.[GQM-Nr]);" OldGQMNr = [rsInTable]![GQM-Nr] If IsNull(OldGQMNr) Then Me.QM_Nr = "Fehler" Exit Sub Else LastGQMNR = Mid(OldGQMNr, 6) YearGQMNR = Mid(OldGQMNr, 4, 2) If ActualYear = YearGQMNR Then 'Neuer Datensatz ist im gleichen Jahr -> Nummer + 1 ReturnValue = "GQM" & Mid((YearGQMNR + 100), 2) & Mid((LastGQMNR + 1000 + 1), 2) Else ReturnValue = "GQM" & Mid((ActualYear + 100), 2) & "001" End If Me.QM_Nr = ReturnValue End If rsInTable.Close Set rsInTable = Nothing End Sub Wenn ich aber nun den button betätige kommt folgenden Fehlermeldung: Laufzeitfehler 94, Unzulässige verwendung von Null Was muss ich ändern das die Funktion wieder funtioniert??

Hallo zusammen, Ich hab mal wieder ein Problem. Bei mir zeigen nun 3 Formulare den Laufzeitfehler 2424 (Der von Ihnen eingegebene Ausdruck enthält einen Feld-, Steuerelement- oder Eigenschaftsnamen, der von MS Office nicht gefunden werden kann.) Auserdem steht dabei: Das Steuerelement kann nicht bearbeit werden, es ist an das unbekannte Feld 'XY' gebunden. Ich kann somit nichts mehr im Formular eingeben bzw. ändern. Das komische ist nur das die Formulare schon mal funktioniert haben und ich meines Wissens nichts, das im Zusammenhang mit den Formularen steht, geändert hab. Was kann ich machen, dass die Formulare wieder funktionieren?? Kann mir da vielleicht jamand weiterhelfen?? Schonmal Danke Tobias