Office: Im Formular mit VBA-Code in Datensätzen blättern

Hallo Forum,
wie kann ich in einem Formular mit VBA-Code nach Datensätzen blättern ?
ich möchte in einem numerischen Feld den ersten Datensatz finden, in dem das Feld leer ist.

Wie sieht eine Lösung aus ?

 

Moin Salamander
wenn Du mit einem Formular eine VBA-Userform meinst, kannst Du eine ComboBox nutzen, die nur mit den Werten gefüllt sind, die eine bestimmte Bedingung erfüllen. Alternativ funktioniert auch ein Makro, das eine bestimmte Spalte per Schleife durchsucht und an der ersten leeren Zelle stoppt.
Vielleicht beschreibst du etwas genauer, wie Deine Daten aussehen, was Du mit Formular meinst und was Du erzielen willst.
Grüße

 

ja, meine eine UserForm, Basis ist eine Abfrage...
Inhalt sind mehrere Felder, das 3. Feld in der Reihenfolge ist das numerische Feld "Zahl", das indiziert ist, ohne Primärschlüssel, weil mehrere gleiche Zahlen möglich sein müssen. Es sind jedoch auch Datensätze enthalten, die keinen Inhalt im Feld "Zahl" enthalten. Nun möchte ich den ersten Datensatz finden, in dem das Feld "Zahl" leer ist.

 

Dann also die VBA-Schleife:

Code:

Option Explicit

Sub Versiv()
Dim r As Integer, i As Integer

r = UsedRange.Rows.Count + 1

For i = 1 To r
    If Cells(i, 3) = "" Then 'hier wird Spalte 3 = C abgefragt, ggf anpassen
        Cells(i, 3).Activate
        Exit Sub
    End If
Next i

End Sub

Gehört in den Code der Tabelle und setzt voraus, dass es einen größeren UsedRange, also genutzten Zellbereich gibt.

Grüße

 

ähm, es geht doch wohl eher um Access, nicht Excel, oder?

Code:

Compare Database
Option Explicit

Private Sub Suchen()
 Dim suchID As Long
    suchID = Nz(DMin("ID", "Abfrage", "Zahl Is Null"), 0)
    If suchID <> 0 Then
        DoCmd.GoToRecord , , acGoTo, suchID
    Else
        MsgBox "Kein Datensatz erfüllt das Kriterium"
    End If
End Sub

 

Hüstel & schähm ... Bitte um Entschuldigung.

 

Hallo Doming,
absolut i.O. die Lösung wird funktionieren. Ich halte es allerdings für etwas unglücklich das Suchkriterium vor dem Suchvorgang auf 0 zurecht zu biegen. Was ist wenn ein Feld den Wert 0 hat und dieser auch relevant ist.
Ich würde direkt auf "Leer" abfragen.

Code:

If IsNull(ID) then.....

 

Ich habe die Anweisung "suchID = Nz(DMin("ID", "qryPflanzen", "Zahl Is Null"), 0)" für meinen Bedarf angepaßt,
bekomme aber eine Fehlermeldung:
"der Ausdruck im Abfrageparameter hat folgenden Fehler verursacht ("ID")"
außerdem verstehe ich "Nz(DMin)" nicht

 

Hallo,
Nz macht eigentlich genau das, was ich im vorigen Post als unglücklich bezeichnete.
Einmal goggeln brigt den Link:

Code:

https://support.microsoft.com/de-de/office/nz-funktion-8ef85549-cc9c-438b-860a-7fd9f4c69b6c

Wie gesagt ist der relativ komplizierte Ausdruck nicht unbedingt nötig. Abfrage auf IsNull(.. ist m.M. hier ausreichend.

 

Liegt wohl daran, dass Deine Abfrage kein Feld namens „ID“ hat