Hallo,

ich will was kleines in Vb programmieren und zwar mit nem Datenbankzugriff auf Acces. Das funktioniert auch alles schon ganz toll, nur ich will jetzt prüfenm wenn jemand was in die Datenbank neu einpflegt, ob der Name(in diesemfall ein Land) schon vergeben ist. Dachte mir das so:

Do While Not RS.EOF

If RS.Fields("name") = tf_name.Text Then

MsgBox("Datensatz bereits in der Datenbank vorhanden!")

Exit Sub

End If

RS.MoveNext()

Loop

Nur leider sagt er mir immer:

Beim umwandeln in eine Zahl, muss der Wert eine Zahl sein, die kleiner als unendlich ist.

danke schonmal für eure Antworten :uli

gruß socke

ungetestet: verwende RS.Fields("name").Value oder rs("name"). prüfe im debuggingfenster, ob der ausdruck den feldinhalt beinhaltet. vergleiche diesen wert mittels StrComp() mit tf_name.Text, und werte den rückgabewert aus.

bedenke, dass du bei sehr vielen DS alle durchgehen musst, und ob eine select count nicht performanter wäre.

s'Amstel

wow,

danke für die super schnelle antwort und funktioniert jetzt.

Danke

socke :marine