Quantcast
Channel: Microsoft Access Forum
Viewing all articles
Browse latest Browse all 880

Simple search with loop on condition does not work / Accesse 2003

$
0
0

Hallo Freunde der VBA Programmierung.... ich hasse es langsam :-((

Ich bastle immer noch an meiner  Lern DB. Möchte nur ein Lesezeichen setzen 

Hier mal ein Clip zu meiner Kodierung. Funktioniert so nicht, dabei ist es simpel gedacht. Wollte nur auf einen Marker "1" einen Loop aufsetzen. Wenn jemand eine Idee hat, Hilfe wird gerne angenommen 

Ich kann leider keinen Stop aufbauen, da ich dann einen Laufzeitfehler bzw. Meldung bekomme.

Private Sub Flag_DblClick(Cancel As Integer)

'Suchen Flag = 1 Lesezeichen Feldname Flag ist NumFeld

Dim V1 As Integer

DoCmd.GoToRecord , , acFirst

Do Until V1 <> 1              ' loop wenn Flag nicht gefunden

DoCmd.GoToRecord , , acNext

If V1 = 1 Then Exit Do

Loop

MsgBox "Flag gefunden"

End Sub

Diese Meldung kommt wenn ich einen Stop setze 

Laufzeit Fehler 2499

Sie können die geheZuDatensatz-Aktion bzw GoToRecord methode nicht für ein Objekt ausführen, das sich in der Entwurfsabsicht befindet...

Diese Meldung ist einfach nur noch Irre führend  Kann da jemand helfen?




Viewing all articles
Browse latest Browse all 880


<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>