thomas1972
Mar 30, 2015 at 19:44:15 (UTC)
view972
view4
0
Goto Top

Vba anzahl wert x heraus finden access2010

GermansolvedQuestionMicrosoft OfficeMicrosoft
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
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 267891

Url: https://administrator.de/contentid/267891

Printed on: April 26, 2024 at 22:04 o'clock

4 Comments
Latest comment
Goto Top
Mitglied: 114757
114757 Mar 30, 2015, updated at Mar 31, 2015 at 08:51:12 (UTC)
Goto Top
Moin,
was heißt bei dir es soll x passieren ansonsten y ?
Ich hab das jetzt mal so interpretiert:
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
Member: thomas1972
thomas1972 Mar 31, 2015 at 12:00:30 (UTC)
Goto Top
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"...
Mitglied: 114757
114757 Mar 31, 2015 at 12:03:32 (UTC)
Goto Top
Achso... na dann ist DCount() dein Freund:
Dcount in VBA

Gruß jodel32
Member: thomas1972
thomas1972 Mar 31, 2015 at 14:09:11 (UTC)
Goto Top
Danke das wars,
damit komme ich weiter.

Gruß
Thomas
GermansolvedQuestionMicrosoft OfficeMicrosoft