Skip to main content

AccessTr.neT


formda veri ekleme ve yineleme

formda veri ekleme ve yineleme

Çözüldü #1
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)
Son Düzenleme: 29/12/2011, 15:50, Düzenleyen: adsoft.
Cevapla
Çözüldü #2
Visual Basic Code
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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #3
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
Cevapla
Çözüldü #4
mesaj 2 deki kod düzenlenmiştir. 1 satır eklendi.

Forms!alislar!alt0![Açılan Kutu23]= me.adisoyadiünvani
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla
Çözüldü #5
(30/12/2011 13:13)Yandemir Adlı Kullanıcıdan Alıntı: mesaj 2 deki kod düzenlenmiştir. 1 satır eklendi.

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


olmadı aktarmıyor
Cevapla
Çözüldü #6
kodunuzu aşağıdaki gibi yazınız.

Visual Basic Code
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
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da