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