ik gebruik deze rolo maar klopt iets niet

[dinoshop]

ik gebruik deze script bij debiteuren en werkt perfect .
nu heb ik hem ook bij personeel neer gezet maar als ik op de P druk krijg de naam van S

hoe pas ik dit aan dat die wel de juiste lette bij de juiste naam zet .

Private Sub RoloButtons_AfterUpdate()

    Dim FldToSearch As String, LookFor As String
    
    FldToSearch = "achternaam"
   
    Dim TempRecSet As Object
    Set TempRecSet = Me.Recordset.Clone
    
    LookFor = "Left([" + FldToSearch + "],1) = " + Chr(34) + RoloButtons.Controls.Item(RoloButtons.Value - 1).Name + Chr(34)
        Debug.Print LookFor
        TempRecSet.FindFirst LookFor
    
    
    If TempRecSet.NoMatch Then
        LookFor = "Left([" + FldToSearch + "],1) >= " + Chr(34) + RoloButtons.Controls.Item(RoloButtons.Value - 1).Name + Chr(34)
        Debug.Print LookFor
        TempRecSet.FindFirst LookFor
    End If
    
    
    If Not TempRecSet.NoMatch Then
        Me.Bookmark = TempRecSet.Bookmark
    End If
    
    
    Me.RoloButtons.Value = 0
    Set TempRecSet = Nothing
End Sub

 

[OctaFish]

Als de code goed werkt in formulier A en niet goed in formulier B, dan kunnen we a.d.h.v. de code niets tot helemaal niets zien. Hooguit constateren dat-ie wel goed zal zijn. Weghalen van de vele overtollige lege regels verhoogt wel de leesbaarheid, maar niet de functionaliteit . Dus we hebben dan echt een db nodig.

 

[dinoshop]

heb hem klein gemaakt maar zit op 1,7 mb en dat krijg ik niet hierin

 

[OctaFish]

Dan zet je 'm op wikisend.com, halen we hem daar wel op.

 

[dinoshop]

http://wikisend.com/download/148932/Test.zip

bij deze

 

[OctaFish]

Ik krijg hem niet gedownload; Windows blijft 'm blokkeren.

 

[OctaFish]

Andere browser gepakt, dat helpt .
Hoe vaak ik al niet gezegd heb dat je geen afbeeldingen in een database moet opslaan.... Ik ben de tel kwijt. Maar laat ik het getal maar weer een keer ophogen: geen afbeeldingen in een database opslaan! Maakt je db idioot groot en onhandelbaar. Je zit met 4 records al aan 2,5 Mb. Reken maar uit wanneer je aan de max zit....

Maar om de een of andere bizarre reden wil hij -2 hebben i.p.v.-1

    LookFor = "Left([" + FldToSearch + "],1) = " + Chr(34) + RoloBut.Controls.Item(RoloBut.Value - 2).Name + Chr(34)

Hoe dat verderop werkt weet ik niet, want je hebt natuurlijk wat letters samengepakt. In mijn cursus doe ik het heel anders. Lees dat er nog eens op na, zou ik zeggen .

 

[dinoshop]

heb je ook een tip welke van de lessen hij staat dan

 

[OctaFish]

Hoofdstuk 15 van de cursus.

 

[dinoshop]

dank is groot