Probleempjes met <volgende> en <vorige>-button

[JJZijlstra]

Geachte lezer,

Hoe kan ik in een ListView navigeren dmv een <volgende>- en <vorige>knop.
In het bijgevoegde bestandje werkt dit alleen in het werkblad zelf.

Graag hoor ik van u.
Bestandje is bijgevoegd.


Vriendelijke groet,
Johan

 

[Leotaxi]

iets andere manier


mvg
Leo

 

[Leotaxi]

en dan ook het bestandje

mvg
Leo

 

[JJZijlstra]

Dank je Leontaxi,

Het werkt!!

Is er ook de mogelijkheid om het gegeven te kunnen wijzigen als dat nodig is?

Gr.
Johan

 

[Leotaxi]

iets als dit Johan ?


mvg
Leo

 

[JJZijlstra]

Allereerst dank voor uw antwoord.

Het programma werkt werkt helemaal in het begin goed, maar verder op in het bestand gaat het fout en gebeurt het volgende:

-- Ik ga uit van userform1 en selecteer dmv <Volgende>- of <Vorige>knop het te wijzigen of te verwijderen record.
-- Dan druk ik op de <CommandButton1> in userform1.
-- In het menu "Overzicht Transacties" wat dan verschijnt, druk ik op de knop <Wijzigen - Verwijderen>.
-- Dan zou het geselecteerde moeten verdwijnen maar dan komt er een menu met Fout 13. In de code geeft hij dan geel aan bij Userform2.

Hoe kan deze fout opgelost worden?

Groet,
Johan

 

[Leotaxi]

krijg die fout hier niet, anders eens bestandje plaatsen waar de fout zich voordoet


mvg
Leo

 

[JJZijlstra]

hallo Leotaxi,

Ik heb nog eens uitgeprobeerd.
Tot en met regel 7 gaat het goed, vanaf regel 8 krijg ik die foutmelding.

Groet,
Johan

 

[Leotaxi]

Johan,

het komt door de foutmelding in kolom G
deze zal je moeten onderdrukken met een als.fout formule zodanig dat deze leegt blijft.


mvg
Leo

 

[JJZijlstra]

Dank je Leotaxi, het werkt nu !! Ik heb de G-kolom geheel verwijderd, deze was niet nodig.

Nog een laatste vraagje, hoe combineer of verbind je de tekstvakken in userform2 met Me.controls?


mvg
Johan

 

[Leotaxi]

heb gebruik gemaakt van de index nummering

textboxen zijn controls 0 tot en met 17
labels zijn controls 18 tot en met 35

zo komen 18 kolommen van actieve rij in textboxen

mvg
Leo

 

[JJZijlstra]

Dank nogmaals Leotaxi.

Nog één vraagje als ik nog een keer onbescheiden mag zijn.
Wat betekent in uw code: Me.control ? Dit in de volgende code:

For x = 1 To 18
   Cells(ActiveCell.Row, x).Value = Me.Controls(x - 1).Value
   Next
End With

Je komt als beginneling zoveel begrippen tegen. Hoe kan ik me deze taal in korte tijd eigen maken?


mvg
Johan

 

[Leotaxi]

Johan,

is een loop die 18 keer wordt uitgevoerd, dus eerste
keer van loop wordt in actieve rij in eerste kolom de waarde gezet van textbox 1 en textbox 1 = me.control 0
tweed keer de waarde van texbox 2 of me.control 1 naar actieve rij kolom 2
enzoverder.

hopelijk is het zo wat duidelijk.

mvg
Leo