Alttaki kodda hata veriyor normalde vermemesi gerekir ne gıcık birşeymiş bu Access.
İnsanı yaşamadan soğutuyor uğraştıkça.
Ama illaki çözülecek
Set TxtOpt.opt = Controls("L00")Yukarıdaki yeri birtürlü aşamadım.
Class kod
Kod:
Option Compare Database
Public WithEvents opt As MSComctlLib.ListView
Private Sub opt_ItemClick(ByVal Item As MSComctlLib.ListItem)
veri = opt.SelectedItem
End Sub
Private Sub opt_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Call güncelle(opt.Name, veri)
End SubKod:
Dim TxtOpt As ClsLstvew
For i = 0 To 3
Set TxtOpt = New ClsLstvew
Select Case i
Case 0
Set TxtOpt.opt = Controls("L00")
Case 1 To 9
Set TxtOpt.opt = Controls("L0" & i)
Case 10 To 99
Set TxtOpt.opt = Controls("L" & i)
End Select
Kontrol.Add TxtOpt
Next