3021 Fehler - Auslesen ob Datensatz vorhanden ist?

[anyaa]

Hi

Ich bekomme die Fehlermeldung 3021 (wer kennt sie nicht ) wenn ich
mit SQL auf eine nicht vorhandene Spalte in der Tabelle zugreife

Ich würde jetzt gerne ( im Programmcode) wissen ob Exicute erfolgreich war mit der SQL Anweisung,
um das Problem damit zu umgehen.

Mit rs.RecordCount bekomme ich die Fehlermeldung das es im geschlossenen Objekt nicht funktioniert.


'ZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZZ


Public Function sql_querys(Query_ausführen$, aktion$)


Dim wert As Boolean

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\db\Rickmer.mdb", "", "", -1
Set rs = cn.Execute(Query_ausführen)


' Registernummer testen ZZZZZZZZZZZZZZZZZZZZ

If aktion = "RegNrPrüf" Then


If Module1.rs.Fields("RegNr").Value <> "" Then

wert = True

Else

wert = False

End If
End If

cn.Close
sql_querys = wert
End Function


Weiss denn keiner RAT ?

 

[anyaa]

Hi,... nun ich bin immernochn kein schritt weiter,

Weiss denn jedenfalls irgentjemand wie ich sehen kann ob mein

recortset rs. Offen oder geschlossen ist ? würde schon helfen

bei EOF kommt die Meldung das es nicht für ein geschlssenes Objekt zugelassen sei

 

[anyaa]

Nach tausenden von verschenkten stunden... und vieleicht kanns ja mal jemand gebrauchen.
So es:


If aktion = "RegNrPrüf" Then

If rs.EOF = True And rs.BOF = False Then

If Module1.rs.Fields("RegNr").Value <> "" Then


wert = True

Else

wert = False
End If
End If
End If


Das geheimniss scheint zu sein das das RECORDSET .EOF
beim SQL ( UPDATE ) nicht mehr verfügbar ist ?
Warum auch immer....weiss vieleicht ein jemand


Danke für nichts