VB6.0 - Run Time Error.

[anoniem]

Hoi Wij bladeren met onze database via een cmd-button. Als we via deze button bladeren gaat alles goed, behalve als je aan het begin bent. Want dan krijgen we de foutmelding: [i:63371d6b44][b:63371d6b44]Run time error “3426” This action was cancelled by an associated object[/b:63371d6b44][/i:63371d6b44] Het programma loopt vast zodra je bij de BOF bent en de volgende regel wordt met een gele achtergrond opgelicht. [code:1:63371d6b44]Data1.Recordset.MoveFirst[/code:1:63371d6b44] De volledige code van de cmd-button. [code:1:63371d6b44]Private Sub Command1_Click() Data1.Recordset.MovePrevious Picture2.picture = LoadPicture(Text4(7).Text) ' pad en naam plaatje. If Data1.Recordset.BOF Then MsgBox "Already at beginning of recordset!" Data1.Recordset.MoveFirst Picture2.picture = LoadPicture(Text4(7).Text) ' pad en naam plaatje. End If End Sub[/code:1:63371d6b44] Als je de code-regel [code:1:63371d6b44]Picture2.picture = LoadPicture(Text4(7).Text) ' pad en naam plaatje. [/code:1:63371d6b44] verwijderd dan gaat het goed. Maar dan bladeren de plaatjes niet mee. Heeft iemand enig idee ? Grt, Yvonne en Frans

[anoniem]

Als ik het goed begrijp dan blader je dus terug met deze knop Dan laad je eerst het plaatje van een record voor het eerste record en daarna ga je pas controleren of dat record bestaat. Misschien kan je beter eerst controleren of het record bestaat en daarna het plaatje laden. Kortom zoiets als dit dus: [code:1:f1b78b795c]Private Sub Command1_Click() Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then MsgBox "Already at beginning of recordset!" Data1.Recordset.MoveFirst End If Picture2.picture = LoadPicture(Text4(7).Text) ' pad en naam plaatje. End Sub[/code:1:f1b78b795c]

[anoniem]

Hoi Wouter Inderdaad beter geprogrammeerd. Ook maar één keer de regel [code:1:7677e9cc06]Picture2.picture = LoadPicture(Text4(7).Text) [/code:1:7677e9cc06] Maar helaas, het loopt weer vast met de zelfde foutcode op de zelfde regel, enwel [code:1:7677e9cc06]Data1.Recordset.MoveFirst[/code:1:7677e9cc06] Na dat wij weer de regel [code:1:7677e9cc06]Picture2.picture = LoadPicture(Text4(7).Text) [/code:1:7677e9cc06] hebben verwijderd uit jouw code gaat het weer goed. Het moet toch mogelijk zijn te bladeren met plaatjes :x :x grt, Y&F

[anoniem]

Hoi Het werkt, enwel: [code:1:7d96c8d748]Private Sub Command1_Click() Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then MsgBox "Already at beginning of recordset!" Data1.Refresh Data1.Recordset.MoveFirst End If Picture2.picture = LoadPicture(Text4(7).Text) ' pad en naam plaatje. End Sub [/code:1:7d96c8d748] Ik heb de volgende regel code toegevoegd: [code:1:7d96c8d748]Data1.Refresh [/code:1:7d96c8d748] grt, Yvonne en Frans