Selectie in keuzelijst

[Dnereb]

Ja en zet daar boven

Option Explicit

het zal fouten regenen. Voornamelijk om dat je variabelen niet hebt gedeclareerd, en vermoedelijk ook een paar keer wat anders.
zodra je een fout met unknown variable o.i.d. krijgt dan moet je je afvragen watvoor variabele dat is (Integer, Long, String, Recordset etc..) en de variabele declareren.
dit maakt je code efficienter, stabieler en beter te debuggen.

Suc7

 

[Zurrik]

Wat de fouten betreft valt 100% mee. Maar nog steeds selecteerd ie niks in de lijst. Als ik een orderID verwijderd blijft er ook nog tsaan dat ie verwijderd is ipv dat het orderID weggehaald wordt. ????

 

[Dnereb]

met een refresh of requery van je listbox verdwijnt de melding.
Ik kan zonder jouw database niet zien wat er mis gaat, omdat het bij mij werkt.
met welke versie werk je eigenlijk? Toch niet 97 hé?

 

[Zurrik]

Requery en refresh had ik er al in staan. Ik werk met 2003.
Mijn database is veel te groot om hier neer te zetten. Ik begrijp nog steeds niet waarom het niet werkt.

iig super bedankt dat je een poging wilde wagen.

Ik blijf nog ff puzzelen en als ik het gevonden heb, zal ik het hier neer zetten

 

[Dnereb]

doe ook eens een currentdb.querydefs.refresh voor de andere refreshes, wellicht helpt dat
als dat werkt kan je proberen of je ook en....... je doet de refreshin toch wel VOORDAT je de waarde opzoekt en selecteert?

Private Sub Command10_Click()

If Len(Me.List2 & "") > 0 Then
    On Error GoTo Iscancelled
    DoCmd.RunSQL "Delete Ordernummers.OrderId FROM Ordernummers WHERE OrderId =  " & Me.List2 & ";"
    On Error GoTo 0
    If Me.List2.ListCount > 0 Then
        CurrentDb.QueryDefs.Refresh
        Me.List2.Requery
        Me.Refresh
        Me.List2.SetFocus
        Me.List2.Selected(Me.List2.ListCount - 1) = True
    End If
End If

Exit Sub
Iscancelled:
    On Error GoTo 0

End Sub

 

[Zurrik]

Het werkt. Ik was niet zo slim om mijn refreshin daar neer te zetten.

Nog een ding, hij pakt nu wel steeds de eerste ipv de laatste orderID.

 

[Dnereb]

En zo?

Private Sub Command10_Click()

If Len(Me.List2 & "") > 0 Then
    On Error GoTo Iscancelled
    DoCmd.RunSQL "Delete Ordernummers.OrderId FROM Ordernummers WHERE OrderId =  " & Me.List2 & ";"
    On Error GoTo 0
    CurrentDb.QueryDefs.Refresh
    Me.List2.Requery
    Me.Refresh
    If Me.List2.ListCount > 0 Then
               Me.List2.SetFocus
        Me.List2.Selected(Me.List2.ListCount - 1) = True
    End If
End If

Exit Sub
Iscancelled:
    On Error GoTo 0

End Sub