Merhaba ADO ile kayıt yapılabilmesi için resimdeki referanslardan hangileri eklenmeli. Teşekkürler 2010 32 bit
[Resim: https://resim.accesstr.net/do.php?img=9759]

Merhaba Asagidaki kod ile tabloya kayit yapiliyor. Fakat formda ileri geri gezinirken herhangi bir kaydin uzerindeyanlislikla tekrar kaydet tusuna basildiginda dogal olarak ayni kaydin 2.bir kopyasini daha tabloya ekliyor. Bu durumun engellenmesi icin ne yapilabilir. msgbox ile islemin engellenmesine yonelik bir  durum yaratip sub dan cikilmasini saglamak dogru bir yontem olurmu baska ne gibi bir onlem alinabilir. Tesekkurler.
[vb]Private Sub KAYDET_BTN_Click()

If Me.UyeNo_TXT = "" Or IsNull

Merhaba
Formda ADO ile kaydedilen kayıtlar arasında gezinti tuşlarında sadece ilk kayıt tuşu stabil çalışıyor. 1,2,3,4 no lu uyelerın kayıtları arasında gezmek için sadece ilk kayıt tuşuna bastığınızda ilk kayda gidiyor sonra son kayıt tuşuna basarsanız 4 nolu uye yerıne 2 nolu uyeye gıdıyor sonra 3 ve 4 numaralı uyelerın kayıtlarına gidiyor oncekı ve sonrakı tuşlarda da farklı sorunlar var."
[vb]Private Sub OncekiKayit_BTN_Click()

If UyeRS.AbsolutePosition = 1 Then Exit Sub
UyeRS.MovePrev

Merhaba Resim yolu tabloya ADO ile kaydoluyor Form üstünde de gözüküyor fakat form kapatıp açılınca tabloda kayıtlı olmasına
ragmen Formda götüntülenemiyor. Yardımlarınız için teşekkür ederim.
[vb]Sub AlanDoldur()
ID_TXT = UyeRS(0)
Me.UyeNo_TXT = UyeRS(1)
Me.AdSoyad_TXT = UyeRS(2)
Me.TcNo_TXT = UyeRS(3)
Me.Tabiyeti_TXT = UyeRS(4)
Me.DogumTarihi_TXT = UyeRS(5)
Me.DogumYeri_TXT = UyeRS(6)
Me.AnaAd_TXT = UyeRS(7)
Me.BabaAd_TXT = UyeRS(8)
Me.Cinsiyeti_CBO = UyeRS(9)
Me.OgrenimDurumu_CBO = UyeRS(10)

Merhaba
Ado Bağlantılı Form Yuklendiğinde yada Yeni kayıt butonu tıklandığında Forma  Resim Klasörü içindeki "ResimYok" adlı Resim Bağlantı Yolunu gösteremiyorum. Yardımlarınız için teşekkür ederim.

[vb]Private Sub Form_Load()

Dim UyeSql As String
Dim x As Integer


UyeSql = "Select * from T_Uye order by uyeno"

    UyeRS.Open UyeSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If UyeRS.RecordCount <> 0 Then
    UyeRS.MoveFirst
    AlanDoldur
End If
Dim fat As Con

Merhaba.

Ekteki dosyada kapalı dosyadaki A sütununun son verisini ve satır numarasını bulur.

Kod başka bir forumdan Haluk hocaya aittir sağolsun kendisi.

Merhaba

Formdan T_UyeHesap tablosuna ıslem turunu Alacak olarak kaydettiğim kayıt işlemini ADO ile kayıt yaparken nasıl tanımlayabilirim. Teşekkürler

'CurrentDb.Execute " insert into T_UyeHesap " & _

 '            " (  UyeNo,Tarih,IslemTuru, Tutar, Aciklama ) values " & _

              " ( " & Me.UyeNo_TXT & ",'" & Me.Tarih_TXT & "','Alacak', '" & Me.Tutar_TXT & "','" & Me.Aciklama_TXT & "')"

'End If

  

ADO 


[vb]Private Sub Kaydet_BTN_Click()

If MsgBox("Girdiğiniz ver

Merhaba 
F_Sporcular Formum da 2 adet Alt formum var. Form ado ile kayıt yaparken alt formlara girilen kayıtlarında F_Sporcular formundakı TC Numarası gırılmıs sporcuya bağlanmasını ve F_Sporcular Formunda kayıtlar arasında gezerken alt formlarda Formdaki sporcuya ait bilgilerin gelmesini sağlamaya çalışıyorum. Bu bağlantı nasıl yapılabilir. Yardımlarınız için teşekkürler. 
[img]https://resim.accesstr.net

Merhaba
Otomatik sayi olan ID alaninda ADO ile kaydet tiklandığında hata aliyorum. Çözümü konusunda bilgi vermenizi rica ederim.
[Resim: https://resim.accesstr.net/do.php?img=9873]
b-
[Resim: https://resim.accesstr.net/do.php?img=9874]
c-
[Resim: https://resim.accesstr.net/do.php?img=9875]
d-
[Resim: https://resim.accesstr.net/do.php?img=9876]

[vb]Dim rstkayit As ADODB.Recordset
Dim strSQL As String

strSQL = "SELECT * FROM T_GelenEvrak "
    Set rstkayit = New ADODB.Recor

Arkadaşlar merhaba,

Çalışma kitabımda "RAPOR" sayfası "G" sütununda tarihler mevcut, Bu tarihlerden bugüne eşit olanları bulup ilgili satırı "C:/" deki YEDEK.xlsx kitabında "LOJİSTİK" sayfasına son boş satıra kaydetmesi için kod bloğuna ihtiyacım var.

Desteklerinizi rica ediyorum.