Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

VB6.0 - Run Time Error.

None
4 antwoorden
  • 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
  • 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]
  • 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
  • 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

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.