Rechenproblem bei Textfeldern

Computer: Software & Programmierung Microsoft Access
#1

Moin, alle zusammen.

Ich will bei Access in VBA nachpruefen, ob in Textfeldern Werte (Zahlen) stehen. Wenn ja, dann soll der Zaehler +1. Wenn nein, andert sich nichts.
Soweit, nicht schwer.
Ich habs mit:

Dim intFaktor As Integer
intFaktor = 0
If Text43.Value > 0 Then
intFaktor = intFaktor + 1
End If
If Text45.Value > 0 Then
intFaktor = intFaktor + 1
End If
If Text47.Value > 0 Then
intFaktor = intFaktor + 1
End If
.
.
.
gemacht.
Aber, trotzdem klappt es bei manchen Feldern einwandfrei und bei anderen nicht. Ach die Verwendung von „“ aendert nichts.
Warum es bei manchen Feldern nicht klappt, weiss ich nicht.
Kennt jemand noch eine andere Methode um trotzdem den gleichen Effekt zu erzielen?
cu
maik

#2

Hallo,

Ich will bei Access in VBA nachpruefen, ob in Textfeldern
Werte (Zahlen) stehen. Wenn ja, dann soll der Zaehler +1.

Wie wäre es mit

If IsNull(Text43) = False Or Text43 „“ Then
intFaktor = intFaktor + 1
End If

Wenn Du prüfen willst, ob wirklich Zahlen im Textfeld stehen, hilft die Funktion IsNumeric() weiter.

Ulrich

#3

Hi,

Wie wäre es mit

If IsNull(Text43) = False Or Text43 „“ Then
intFaktor = intFaktor + 1
End If

damit erreiche ich das selbe wie mit meiner urspruenglichen Form.
Die Textfelder beziehen ihre Daten aus Kombifeldern. Manchmal fuellt eine Kombi ein Textfeld, dann zaehlt er ganz normal. Wenn aber eine Kombi mehrere Textfelder versorgt, dann zaehlt er z.B. bei zwei Textfeldern mit Zahlen drin den Wert 4 statt 2 ???
Ich verstehe halt nicht, warum er bei manchen Textfeldern so weit zaehlt.
Beispiel: In 4 Textfeldern (von 44) stehen Zahlen. Bei richtigem Funktionieren muesste der Zaehler auf 4 Stehen. Mir zeigt er aber 6 an. Manchmal liegt dert Zaehler noch weiter daneben.
Hilfe
cu
maik

#4

Hat sich erledigt, danke.
Moin, mit :

If Text43.Value „“ Then
intFaktor = intFaktor + 1
End If

ging es am Ende doch. Hatte wahrscheinlich nur einen bloeden Tippfehler uebersehen.

Danke trotzdem an alle, die sich Gedanken gemacht haben.
cu
maik