title image


Smiley Noch eine Frage an die Experten (Reinhard)
Großes Problem!



Ich benötige einen Rückgabewert der vier Kriterien erfüllen muß :(



Mit meinem Code funzt es nicht (war auch nicht anders zu erwarten)





Private Sub BuchText_AfterUpdate()

Dim db As Database, rs As Recordset, f As String



Set db = CurrentDb

Set rs = db.OpenRecordset("details")



f = "[Konto] = " & Me![Konto] And "[KSt] = " & Me![KstStelle] And "[Kreditor] = " & Me![Kreditor] And "[Text] = '" & Me![BuchText] & "'"



rs.FindFirst f



If rs.NoMatch Then

Exit Sub

Else

Me![ZahlBed] = rs![ZB]

usw.

usw.

End If



End Sub



Was man noch wissen muß:



Konto, KstStelle, Kreditor sind Felder vom Typ Double und BuchText vom Typ String.



Was stimmt an meinem Code nicht ?



Für sachdienliche Hinweise werden 10 Gummibärchen zur Belohnung ausgesetzt :)



Many THX im Voraus.



Best regards

S. Dietrich

Gruß aus Wuppertal
Stefan

-------------------------------------------------------------------------------
Soweit nicht anders angegeben, beziehen sich meine
Antworten auf WinXP SP2 und Access2003.
-------------------------------------------------------------------------------

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: