Thread: [PROG]VBA Listbox
-
26-07-2007, 13:45 #1
[PROG]VBA Listbox
Ik heb een applicatie gemaakt in access 07 en probeer nu vb code te koppelen aan een listbox.
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.Code:Private Sub List2_Click() Dim iHuidigeRecord As Integer iHuidigeRecord = List2.ListIndex Me.CurrentRecord = iHuidigeRecord End Sub
Hoe komt dit?no votes
-
-
26-07-2007, 14:21 #2
Ik dacht dat je, wanneer je een control wil aanspreken, er eerst de focus op moet zetten:
(wel niet uitgetest)Code:Private Sub List2_Click() Dim iHuidigeRecord As Integer List2.setFocus() iHuidigeRecord = List2.ListIndex Me.CurrentRecord = iHuidigeRecord End Sub
no votes
-
26-07-2007, 14:30 #3
Bedankt maar dit doet niks..
no votes
-
26-07-2007, 14:48 #4
Hmmm... vraag verkeerd gelezen, je kan Me.CurrentRecord geen waarde toekennen, probeer het zo eens:
waarbij "Employees" de naam is van het formulier.Code:Private Sub List2_Click() Dim iHuidigeRecord As Integer iHuidigeRecord = List2.ListIndex DoCmd.GoToRecord acDataForm, "Employees", acGoTo, iHuidigeRecord End Sub
no votes
-
26-07-2007, 15:05 #5Member
- 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
-
26-07-2007, 15:07 #6
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
-
26-07-2007, 16:47 #7
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
-
28-07-2007, 21:50 #8
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
-
28-07-2007, 22:09 #9
Ik denk dat je beter wat code kan posten, dit kan verschillende oorzaken hebben.
no votes
-
28-07-2007, 22:29 #10
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
-
29-07-2007, 15:13 #11
Hier is de database.. http://rapidshare.com/files/45723885...se1.accdb.html
Kan iemand hier ff naar kijken?no votes
-
30-07-2007, 16:15 #12
Niemand?
no votes
-
06-08-2007, 11:40 #13
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 Subno votes
-
06-08-2007, 22:47 #14Approved 9liver
- Registered
- 10/11/03
- Location
- Gent
- Posts
- 6,158
- iTrader
- 41 (100%)
- Mentioned
- 0 Post(s)
- Reputation
- 1/121
no votes
-
06-08-2007, 23:16 #15
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

