Formulier vorige en volgende

[adile]

Goedemiddag,


Ik heb een formulier gemaakt waarin ik informatie ophaal uit een werkblad dmv een dropdown lijstje wat ik in dat werkblad gemaakt heb.
Nu heb ik in dat werkblad ook een volgende en vorige knop aangemaakt om naar de informatie in de volgende en vorige rij te gaan.

alleen deze knoppen werken niet zo goed.
ze gaan wel naar de volgende en naar de vorige, alleen stoppen ze niet op het juiste moment en krijg ik een foutmelding.
De vorige knop moet stoppen als ik bij de de eerste rij ben aangekomen. (de rij daarvoor is de Header dat is rij 3)
de volgende knop moet stoppen als ik bij de laatste rij ben aangekomen. (de rij daarna is een lege rij)

de volgende codes heb ik al.

Private Sub CmbVolgende_Click()

CmbOmschr.ListIndex = CmbOmschr.ListIndex + 1

If Me.CmbOmschr = "" - 1 Then
MsgBox "Dit is het laatste gevonden voorwerp"
GoTo ending


End If

ending:

End Sub

Private Sub CmbVorige_Click()

CmbOmschr.ListIndex = CmbOmschr.ListIndex - 1

Else

If Me.CmbOmschr = "Omschrijving" - 1 Then
MsgBox "Dit is het eerste gevonden voorwerp"
GoTo ending

End If

ending:

End Sub

Weet iemand deze om te bouwen?

gr Adile

 

[HSV]

Tja, de meeste helpers bouwen je bestand niet na.
Maak een klein voorbeeld-bestandje, en er is vast wel iemand die het voor je realiseren wil.

 

[adile]

voorbeeld bestandje

Goed idee HSV,

ik heb een voorbeeld bestandje gemaakt, alleen is ie niet helemaal gelukt.
in mijn bestand laad hij de textboxen 1 t/m 4 met de gegevens op basis van de gegevens die bij combobox1 geselecteerd zijn.
dat wil dit bestandje niet doen.

wanneer dat dus is geladen zou hij met volgende en vorige door de gegevens moeten kunnen navigeren.

ik hoop dat het zo iets duidelijker is.

Gr Adile

 

[sylvester-ponte]

deze voor vorige

Private Sub CommandButton1_Click()
'Vorige
    If Me.ComboBox1.ListIndex = 0 Then
        MsgBox "Dit is het eerste gevonden voorwerp"
    Else
        ComboBox1.ListIndex = ComboBox1.ListIndex - 1
    End If
End Sub

 

[HSV]

Bekijk het resultaat maar eens.
Alleen de knoppen voor het opslaan en annuleren werken nog niet (geen idee wat daar de bedoeling van is).

 

[adile]

HSV en Sylvester,

bedankt voor de hulp.

beide werken ze, maar die van HSV is voor vorige EN volgende daarom ga ik die gebruiken.

alleen HSV waar in jouw formule kan ik een message box plaatsen om aan te geven dat het de eerst en laatste rij is?

Private Sub CmbVolgende_Click()
With CmbOmschr
  .ListIndex = IIf(.ListIndex = .ListCount - 1, .ListIndex, .ListIndex + 1)
 End With
End Sub


Private Sub CmbVorige_Click()
With CmbOmschr
  .ListIndex = IIf(.ListIndex > 0, .ListIndex - 1, .ListIndex)
 End With
End Sub

Gr Adile

 

[HSV]

Private Sub CommandButton1_Click()
 With ComboBox1
  .ListIndex = IIf(.ListIndex > 0, .ListIndex - 1, .ListIndex)
  If .ListIndex = 0 Then MsgBox "Eerste waarde"
 End With
End Sub


Private Sub CommandButton4_Click()
 With ComboBox1
  .ListIndex = IIf(.ListIndex = .ListCount - 1, .ListIndex, .ListIndex + 1)
  If .ListIndex = .ListCount - 1 Then MsgBox "Laatste waarde"
 End With
End Sub

 

[adile]

hartelijk dank weer HSV, zo wilde ik hem precies hebben. :thumb:

fijne avond nog

Gr Adile

 

[HSV]

Graag gedaan, en eveneens een fijne avond natuurlijk.
Zou je de vraag nog als opgelost willen markeren?
Bvd.

 

[adile]

done