AccessTr.neT

Tam Versiyon: formda veri ekleme ve yineleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
ekteki dosya "adısoyadiunvani" olan kısımda kayıtlar var açılan kutuda listede yokken veri eklemesini istedik sonrada veri ekleme formu açıldı fakat yeni eklediğim verinin "adısoyadiunvani" olan kısma eklmesini istiyorum veri ekliyor ama listeede göremiyorum ancak formu kapatıp açtığım zaman geliyor bunun için bana yardımcı olurmusunuz ?

Ek Dosyalar
 yineleme.rar(76.86 KB)
Private Sub tcno_Exit(Cancel As Integer)
Dim c
c = MsgBox("Kayıt eklendi Çıkılsın mı?", vbYesNo + vbInformation, "Kayıt Onayı")
If c = vbYes Then
Me.ID = Me.Metin8
Me.Requery
'DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Forms!alislar!alt0![Açılan Kutu23].Requery
Forms!alislar!alt0![Açılan Kutu23]= me.adisoyadiünvani
Me.Form.Visible = False
End If
End Sub
ELİNİZE ÇOK TŞK EDERİM BİR SORUN DAHA VAR SATİCİ EKLEDİKTEN SONRA Kİ EKRANA EN SON EKLEDİĞİM VERİ AÇILAN KUTUDA SEÇİLMİŞ OLSUN BUNUDA YAPABİLİRMİSİNİZ
mesaj 2 deki kod düzenlenmiştir. 1 satır eklendi.

Forms!alislar!alt0![Açılan Kutu23]= me.adisoyadiünvani
(30/12/2011, 13:13)Yandemir yazdı: [ -> ]mesaj 2 deki kod düzenlenmiştir. 1 satır eklendi.

Forms!alislar!alt0![Açılan Kutu23]= me.adisoyadiünvani


olmadı aktarmıyor
kodunuzu aşağıdaki gibi yazınız.

Private Sub tcno_Exit(Cancel As Integer)
Dim c
Dim Gecici As String
c = MsgBox("Kayıt eklendi Çıkılsın mı?", vbYesNo + vbInformation, "Kayıt Onayı")
If c = vbYes Then
Me.ID = Me.Metin8
Gecici = Me.adisoyadiünvani
Me.Requery
Forms!alislar!alt0![Açılan Kutu23].Requery
Forms!alislar!alt0![Açılan Kutu23] = Gecici
Me.Form.Visible = False
End If
End Sub
Sayfalar: 1 2