Syntaxfehler !

Computer: Software & Programmierung Microsoft Access
#1

Hallo Leute,

ich bekomme plötzlich einen Syntaxfehler in meiner Prozedur angezeigt, die sonst immer funktioniert hat. Und zwar inder Folgenden Zeile: „Me!UF1.Form.RecordSource = SQL“

Kann jemand da mal einen Blick darauf werfen ?!

Option Compare Database
Option Explicit

Private Sub Befehl73_Click()

Dim Depot_Nr As String
Dim Krit As String, SQL As String
Krit = „“
If Not IsNull(Me!Depot_Nr) Then Krit = Krit & " AND Depot_Nr LIKE ‚" & Me!Depot_Nr & "*‘"

SQL = „SELECT * FROM Konto_nicht_existent“
If Krit „“ Then SQL = SQL & "WHERE " & Mid(Krit, 5)
Me!UF1.Form.RecordSource = SQL
Depot_Nr = UF1.Form.[Depot_Nr].Value

End Sub

#2

Hallo,

„plötzlich“ und „funktioniert hat“ ??

Private Sub Befehl73\_Click()

Dim Depot\_Nr As String
Dim Krit As String, SQL As String
Krit = ""
If Not IsNull(Me!Depot\_Nr) Then Krit = Krit & " AND Depot\_Nr LIKE '" & Me!Depot\_Nr & "\*'"

SQL = "SELECT \* FROM Konto\_nicht\_existent"
If Krit "" Then SQL = SQL **& " WHERE**" & Mid(Krit, 5) ' Leerzeichen vor Where
Me!UF1.Form.RecordSource = SQL ' ME nicht vergessen
Depot\_Nr = **Me!** UF1.Form![Depot\_Nr] 'gefährlich... Depot\_Nr aus dem ERSTEN DS im UFO. Wozu hier nochmal auslesen? 


End Sub
#3

Private Sub Befehl73_Click()

Dim Depot_Nr As String
Dim Krit As String, SQL As String
Krit = „“
If Not IsNull(Me!Depot_Nr) Then Krit = Krit & " Depot_Nr
LIKE ‚" & Me!Depot_Nr & "*‘"

SQL = „SELECT * FROM Konto_nicht_existent“
If Krit „“ Then SQL = SQL & "WHERE " & Mid(Krit, 5)
Me!UF1.Form.RecordSource = SQL
Depot_Nr = UF1.Form.[Depot_Nr].Value

End Sub

Meines Erachtens ist AND in dieser Zeile völlig fehl am Platz. Krit ist doch leer. Mehrere Bedingungen werden mit AND oder OR verknüpft, du hast aber nur diese eine.

If Not IsNull(Me!Depot_Nr) Then Krit = Krit & " Depot_Nr IKE ‚" & Me!Depot_Nr & "*‘"

Gruß
EPa

#4

Danke, das Leerzeichen hinter „Wherer_“ war es !

Danke Dir !

#5

…ich nochmal, Du hattest natürlich mal wieder Recht mit der Anmerkung
'gefährlich…
Ich hab jetzt bei Ausführung des Makros die Situation, dass im UFO alle Datensätze ausgeblendet werden bis auf den gesuchten. Das UFO springt aber mit der Anzeige nicht zu diesem Datensatz, sondern zeigt alle Datensätze leer an, bis auf den gesuchten.
Wie bekomme ich es hin, dass das UFO auch nur diesen Datensatz anzeigt?

Private Sub Befehl73_Click()

Dim Depot_Nr As String
Dim Krit As String, SQL As String
Krit = „“
If Not IsNull(Me!Depot_Nr) Then Krit = Krit & " AND Depot_Nr
LIKE ‚" & Me!Depot_Nr & "*‘"

SQL = „SELECT * FROM Konto_nicht_existent“
If Krit „“ Then SQL = SQL & " WHERE" & Mid(Krit,
5) ’ Leerzeichen vor Where
Me!UF1.Form.RecordSource = SQL ’ ME nicht vergessen
Depot_Nr = Me! UF1.Form![Depot_Nr] 'gefährlich…
Depot_Nr aus dem ERSTEN DS im UFO. Wozu hier nochmal auslesen?

End Sub

Gruß Christian

#6

Hallo,

…ich nochmal, Du hattest natürlich mal wieder Recht mit der
Anmerkung
'gefährlich…

Ja…
:wink:

Ich hab jetzt bei Ausführung des Makros die Situation, dass im
UFO alle Datensätze ausgeblendet werden bis auf den gesuchten.
Das UFO springt aber mit der Anzeige nicht zu diesem
Datensatz, sondern zeigt alle Datensätze leer an, bis auf den
gesuchten.

??? alle ausgeblendet, trotzdem leere DS?

Ist „Konto_nicht_existent“ am Ende eine Abfrage mit einem Left/Right-Join? Wie heißt der SQL-String dieser Abfrage, falls zutreffend?

Wie bekomme ich es hin, dass das UFO auch nur diesen Datensatz
anzeigt?

Das Ufo zeigt alle DS an, die dem Kriterium entsprechen.

Private Sub Befehl73_Click()

Dim Depot_Nr As String
Dim Krit As String, SQL As String
Krit = „“
If Not IsNull(Me!Depot_Nr) Then Krit = Krit & " AND Depot_Nr
LIKE ‚" & Me!Depot_Nr & "*‘"

SQL = „SELECT * FROM Konto_nicht_existent“
If Krit „“ Then SQL = SQL & " WHERE" & Mid(Krit,
5) ’ Leerzeichen vor Where
Me!UF1.Form.RecordSource = SQL ’ ME nicht vergessen
Depot_Nr = Me! UF1.Form![Depot_Nr] 'gefährlich…
Depot_Nr aus dem ERSTEN DS im UFO. Wozu hier nochmal auslesen?

End Sub

Und ungeklärt ist die Frage, WARUM „Depot_Nr“ nochmal aus einem UFO-DS
ausgelesen werden soll, wenn die DS eh nach dieser Depot_Nr gefiltert sind und die Nummer in Me!Depot_Nr schon drinsteht ??

Das deutet eh alles auf ein unzureichendes Daten/Tabellenmodell hin.
Und dann sollte besser an der Basis getuned werden(Normalisierung).

MFG
DF6GL