1. #1
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0

    [PROG]VBA Listbox

    Ik heb een applicatie gemaakt in access 07 en probeer nu vb code te koppelen aan een listbox.

    Code:
    Private Sub List2_Click()
    
     Dim iHuidigeRecord As Integer
     
     iHuidigeRecord = List2.ListIndex
     Me.CurrentRecord = iHuidigeRecord
    
    End Sub
    Deze code moet er normaal voor zorgen dat wanneer je een record in de listbox selecteert dat hij ook navigeert naar deze record in access. Dat gebeurt dus niet en ik krijg deze error: Run-time error '2135' This property is read-only and can't be set.
    Hoe komt dit?
    no votes  

  2. #2
    VenomGameworld's Avatar
    Registered
    21/01/04
    Posts
    244
    iTrader
    0
    Mentioned
    0 Post(s)
    Reputation
    0/1
    Ik dacht dat je, wanneer je een control wil aanspreken, er eerst de focus op moet zetten:

    Code:
    Private Sub List2_Click()
    
     Dim iHuidigeRecord As Integer
     
     List2.setFocus()
    
     iHuidigeRecord = List2.ListIndex
     Me.CurrentRecord = iHuidigeRecord
    
    End Sub
    (wel niet uitgetest)
    no votes  

  3. #3
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    Bedankt maar dit doet niks..
    no votes  

  4. #4
    VenomGameworld's Avatar
    Registered
    21/01/04
    Posts
    244
    iTrader
    0
    Mentioned
    0 Post(s)
    Reputation
    0/1
    Hmmm... vraag verkeerd gelezen, je kan Me.CurrentRecord geen waarde toekennen, probeer het zo eens:

    Code:
    Private Sub List2_Click()
    
     Dim iHuidigeRecord As Integer
     
     iHuidigeRecord = List2.ListIndex
    
     DoCmd.GoToRecord acDataForm, "Employees", acGoTo, iHuidigeRecord
    
    End Sub
    waarbij "Employees" de naam is van het formulier.
    no votes  

  5. #5

    Registered
    31/05/06
    Location
    Tongeren
    Posts
    195
    iTrader
    3 (100%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    idd, Me.CurrentRecord is Read Only
    Insert sig here...
    no votes  

  6. #6
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    Ok. Nu geeft hij een andere error: Run-time error '2489' The object 'Form_categorie' isn't open. ??

    Dit heb ik ergens gevonden over deze command:


    Code:
    DoCmd.GoToRecord acDataForm, "[Forms]![frmMain].[Form]![frmSub1]", acNext
    Last edited by swordfish; 26-07-2007 at 15:21.
    no votes  

  7. #7
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    ik heb het al gevonden. Ik was de VB form name aan het oproepen terwijl ik de access form name nodig had.. merci
    no votes  

  8. #8
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    nu heb ik een ander probleem gevonden..
    Wanneer ik een record toevoeg komt dit bij in de listbox (gesorteerd) maar wanneer ik erop klik geeft de textbox de naam weer van de volgende record en wanneer ik op de laatste record klik krijg ik de naam van de toegevoegde record. Een probleem met de index dus. Als ik het form sluit en terug open werkt alles wel. Hoe kan ik dit oplossen zonder het form steeds te sluiten?

    hier enkele screenshots:



    no votes  

  9. #9
    VenomGameworld's Avatar
    Registered
    21/01/04
    Posts
    244
    iTrader
    0
    Mentioned
    0 Post(s)
    Reputation
    0/1
    Ik denk dat je beter wat code kan posten, dit kan verschillende oorzaken hebben.
    no votes  

  10. #10
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    Hier de code van de listbox:

    Code:
    Private Sub List2_Click()
    
     Dim iHuidigeRecord As Integer
     
     iHuidigeRecord = List2.ListIndex + 1
    
     DoCmd.GoToRecord acDataForm, "categorieewa", acGoTo, iHuidigeRecord
     
    End Sub
    no votes  

  11. #11
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    Hier is de database.. http://rapidshare.com/files/45723885...se1.accdb.html
    Kan iemand hier ff naar kijken?
    no votes  

  12. #12
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    Niemand?
    no votes  

  13. #13
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    Ik heb de juiste code nu gevonden. Maar ik krijg nog een syntax error. Weet iemand wat hier nog mis aan is?

    Code:
    Private Sub List2_AfterUpdate()
        Dim rs As Object
        Set rs = Me.Recordset.Clone
    
        rs.FindFirst "Categorie =" & Me!List2
    
        If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    End Sub
    no votes  

  14. #14
    Timmos's Avatar
    Registered
    10/11/03
    Location
    Gent
    Posts
    6,158
    iTrader
    41 (100%)
    Mentioned
    0 Post(s)
    Reputation
    1/121
    moet je bij rs.FindFirst geen haakjes gebruiken, je plakt er 2 strings aan elkaar maar misschien ziet hij enkel "Categorie =" als argument.
    no votes  

  15. #15
    swordfish's Avatar
    Registered
    17/10/02
    Posts
    251
    iTrader
    7 (89%)
    Mentioned
    0 Post(s)
    Reputation
    0/0
    OK heb het al. Nu heb ik nog een vraag.
    Wanneer ik de code .currentattachment (access 07) gebruik op een button werkt dit, maar als ik dit op een tab gebruik niet. Weet iemand hoe ik dit toch kan laten werken? De bedoeling is als je op een tab drukt, je een andere attachment te zien krijgt.
    no votes  

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Log in

Log in