merhaba arkadaşlar
access de birşeyler yaparken hep karşımıza yeni şeyler çıkıyor. ben ado ile form düzenleme ile ilgili bir örnek uygulama gördüm bunu incelerken aklıma takılan bir konu oldu.
1. muslistesi formundan müşteriyi çif tıklayınca musteriler formuna atması.
2. musteriler formunda kayıt yapıldığında muslistesi formunu güncellemesi.
3. ADO ile ilgili sıfırdan başlayıp bilgi alacağım sayfa önerileriniz ?

(03/03/2021, 00:54)yahzee_61 yazdı: 1. muslistesi formundan müşteriyi çif tıklayınca musteriler formuna atması.

liste1'in çift tıklama olayına aşağıdaki kodu yazıp dener misiniz

Private Sub Liste1_DblClick(Cancel As Integer)

frmadi = "musteriler"

   DoCmd.OpenForm frmadi, acNormal ' Form açma kodu

       Forms(frmadi).Controls("Liste1").Value = Me.Liste1.Value 'açılan formun liste kutusuna değer atama

       Forms(frmadi).ListeyeAl 'açılan formdaki yordamı çalıştırma

End Sub

(03/03/2021, 00:54)yahzee_61 yazdı: 2. musteriler formunda kayıt yapıldığında muslistesi formunu güncellemesi.

bu soru içinde aynı mantık kullanılacak kaydet butonuna aşağıdaki kod eklenevilir

Forms("muslistesi").Controls("Liste1").Requery

ilginiz için tşk. kod bu şekliyle çalışıyor.
fakat şöyle bi durum var ben başka formda kayıt ekranı ile liste ekranı ayrı kullanacak olduğum için bu kodu kullanma şansım olmaz
ben liste formundan veriyi kayıt formunda alıp değişiklik yapmak.

Dim RS As Object
Set RS = Me.Recordset.Clone
RS.OpenForm "FrmRapor"
RS.FindFirst "[idxizin]=" & Izin_Listesi.Column(9)
If Not RS.EOF Then Me.Bookmark = RS.Bookmark
TxİzinBaslama = Izin_Listesi.Column(5)
TxİzinBitis = Izin_Listesi.Column(6)
TxİzinTarih = Izin_Listesi.Column(10)

ben böyle bir kodu uyarlamaya çalışıyorum amma nasıl olur

aslında amacınızı anlamadım çalışmanızdaki tüm kodlar sorunsuz çalışıyor ekleme/düzeltme/silme....
sorun nerede?
amacınız sadece recordset ile aldığınız verileri açtırdığınız formdaki metin kutularına aktarmaksa o kısım çok da sorun değil 2. mesajdaki mantığı kullanabilirsiniz

(03/03/2021, 00:54)yahzee_61 yazdı: 1. muslistesi formundan müşteriyi çift tıklayınca musteriler formuna atması.

muslistesi formundaki liste kutusunu çift tıklama olayı

Private Sub Liste1_DblClick(Cancel As Integer)

Dim rs As New ADODB.Recordset

rs.Open "musteriler", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.Find "[MusteriNo]=" & Me.Liste1.Value

frmadi = "musteriler"

DoCmd.OpenForm frmadi, acNormal ' Form açma kodu

With Forms(frmadi)

    .musterino = rs("musterino")

    .adi = rs("Adi")

    .soyadi = rs("Soyadi")

    .adres = rs("Adres")

End With

End Sub

aslında amacınızı anlamadım çalışmanızdaki tüm kodlar sorunsuz çalışıyor ekleme/düzeltme/silme....
sorun nerede?
burada sıkıntı yok vermiş olduğunuz kodlar çalışıyor.
amacınız sadece recordset ile aldığınız verileri açtırdığınız formdaki metin kutularına aktarmaksa o kısım çok da sorun değil 2. mesajdaki mantığı kullanabilirsiniz.

benim asıl gayem şu. müşteri listesindeki bir müşteriyi müşteri ekleme formuna aktararak üzerinde değişiklik yapmak. burada ben müşteriler formunda ki listeyi bunu başarırsam kaldıracağım müşteriler formu ekleme düzeltme ve silme için kullanılacak. sizin veriğiniz kod anladığım kadarıyla muslistesi ndeki ki IP ile musteriler formunun içinde olan listeyi tetikleyerek aktarım yapıyor.
sanırım meramımı anlatabildim