Ado İle Formlar Arası Veri Aktarımı.

1 2 3 4
03/03/2021, 00:54

yahzee_61

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, 15:24

berduş

(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, 15:48

berduş

(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
03/03/2021, 16:52

yahzee_61

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
04/03/2021, 10:32

berduş

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
06/03/2021, 12:13

yahzee_61

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
1 2 3 4