AccessTr.neT

Tam Versiyon: Bir kayıt grubunu işaretlemek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5
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.Img-cray
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.
Sayfalar: 1 2 3 4 5