Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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 ?
.rar ado-ekle-güncelle-sil.forma veri al (1).rar (Dosya Boyutu: 25,24 KB | İndirme Sayısı: 11)
Cevapla
#2
(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
Cevapla
#3
(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
Cevapla
#4
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
Cevapla
#5
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
Cevapla
#6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task