Vba anzahl wert x heraus finden access2010

Hallo,

Ich suche per vba eine Möglichkeit in einer Tabelle eine Spalte zu durchsuchen nach einem Kriterium x.
Sollte der Wert größer 1 sein soll x passieren sonst y.

Vielleicht hat jemand einen Ansatz.

Grüße aus München

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 267891

Url: https://administrator.de/forum/vba-anzahl-wert-x-heraus-finden-access2010-267891.html

Ausgedruckt am: 07.04.2025 um 20:04 Uhr

4 Kommentare

Neuester Kommentar

Moin,
was heißt bei dir es soll x passieren ansonsten y ?
Ich hab das jetzt mal so interpretiert:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub testvalues()
    Dim rs As Recordset, strSQL as String
    strSQL = "SELECT * FROM TabelleXyz"  
    Set rs = CurrentDb.OpenRecordset(strSQL)
    rs.MoveFirst
    While Not rs.EOF
        if rs.Fields("SpalteXYZ").Value > 1 then  
            ' Wert größer 1  
        Else
            ' Wert kleiner 1  
        End if
        rs.MoveNext
    Wend
    rs.Close
End Sub

Gruß jodel32

Hallo Jodel32,

vielen Dank für die Rückmeldung.

Danke für den Ansatz,
Ich erkläre nochmal ein wenig im Detail was passieren soll

Ich gebe ich einem Formularfeld ein wert z.b 12345 ein.
dieser Wert soll in einer Tabelle in einer bestimmten Spalte gesucht werden.
Sollte dieser Wert mehr als 1x vorhanden sein
dann soll eine MSXBOX angezeigt werden

MSGBOX "Wert mehrfach vorhanden, bitte Datensatz auswählen"
ansonsten
MSGBOX "OK, beginne mit der Übertragung"...