Hocam teşekkür ederim. kasadaki çekleri bankaya tahsile yada başka cariye ciro edecem. Bu işime yarar. Anladığım kadarıyla komut düğmesine tıklandığında özelliğine kod yazmışsınız. Yanlışım varsa cevaplayın. Yalnız sizin örneği açar açmaz kod çalıştırlamadı uyarısı veriyor vede çalışmıyor.
Ben bu kodları yazarsam nasılçalışacakki...
Daha çok çalışıp sonra soru sormalıyım.
Seçim yaptığınızda "+" resmi aktif oluyor (buton) tıklarsanız
Kod:
'Temp tablo kayıtlarını sil
DoCmd.RunSQL "DELETE TblTemp.* FROM TblTemp;"
'Listbox ta seçili kayıtları temp tablosuna aktar
Dim strPoz As String
Dim row As Integer
Dim rst As New ADODB.Recordset
Dim x As Integer
rst.Open "TblTemp", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
For x = 0 To Me.cihazlistesi.ItemsSelected.Count - 1
row = Me.cihazlistesi.ItemsSelected(x)
rst.AddNew
rst(0) = Nz(Me.cihazlistesi.Column(0, row), "")
rst(1) = Nz(Me.cihazlistesi.Column(1, row), "")
rst(2) = Nz(Me.cihazlistesi.Column(2, row), "")
rst(3) = Nz(Me.cihazlistesi.Column(3, row), "")
rst.Update
Next x
rst.Close
Me.cihazlistesi.Requery
Me.KAYITSAY = "0 cihaz seçildi"
Me.addpic.Visible = False
Seruz hocanın önerdiği kod çalşıyor
Sırasıyla,
1. TblTemp tablosunu sıfırlıyor
2. Seçili kayıtları tabloya aktarıyor
3. Seçimleri iptal ediyor
4. Butonu yeniden görünmez yapıyor
5. "0 cihaz seçildi" yazıyor
Sizde hata vermesinin sebebini anlayamadım
ekran resmini (Shift+PrtSC) gönderebilirmisiniz
Kolay gelsin
bende sizlere daha net sorabilmek için resim göndermeye çalışıyorum. bu sorunu aşabilirsem daha net olacak.(2003 e geri döndüğümü söylemiştim. şu an 2003 kullanıyorum.)
"Olay özellik deyimi ayarı olarak girdiğiniz Tıkladığında deyimi hataya neden oldu: Microsoft office
Access ile Ole sunucusu veya Active X denetimi arasındaki
İletişim sırasında bir sorun ortaya çıktı.
*Deyim bir makro adı, kullanıcı tanımlı bir işlev adı veya [olay yordamı] ile sonuçlanmıyor.
*bir işlevi makroyu veya olayı değerlendirme hatası olmuş olabilir."
diyor. Acaba araçlar seçeneklerde mi yapmam gereken bir ayar var.
2007 de alpeki höcam nasıl ayarlanacağını anlatmıştı ama onun mesajını ben alana kadar 2007 yi bilgisayarımdan kaldırdım.
Yeni bir
Access veritabanı oluştur ve hata veren veritabanındaki tüm nesneleri yeni veritabanına aktar. Konu taşınmıştır.
Bu
Vba kodu ile sizde nasıl çalışabiliyor anlayamadım, Ancak,
Form özelliklerinde buton isimlerinde altçizgi yani _ işaretini kullanamazsınız. Yani "btn_SEC" olamaz, aradaki altçizgiyi kaldırmalısınız. Çünkü altçizgiden sonra olay gelir, yani "btn_SEC_Click" olduğunda VB ilk altçizgiden sonraki kelimeye "SEC" e bakarki buda hataya neden olur. Ben ofis 2007 kullanıyorum hata verdi isimleri düzeltince hata gitti.