AccessTr.neT

Bul · 03/03/2021, 00:54

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 ?

Bul · 03/03/2021, 15:24

(03/03/2021 00:54)yahzee_61 Adlı Kullanıcıdan Alıntı: 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

Visual Basic Code

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

Bul · 03/03/2021, 15:48

(03/03/2021 00:54)yahzee_61 Adlı Kullanıcıdan Alıntı: 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

Visual Basic Code

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

Bul · 03/03/2021, 16:52

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

Bul · 04/03/2021, 10:32

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 Adlı Kullanıcıdan Alıntı: 1. muslistesi formundan müşteriyi çift tıklayınca musteriler formuna atması.

muslistesi formundaki liste kutusunu çift tıklama olayı

Visual Basic Code

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

Bul · 06/03/2021, 12:13

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

AccessTr.neT

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

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

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

Giriş yap

Hesap oluştur

Konu Linkleri