Skip to main content

AccessTr.neT


Form 2.çift Tıklamada Ekrana Bilgilerle Yükleniyor

Oğuz Türkyılmaz
Oğuz Türkyılmaz
2
373

Form 2.çift Tıklamada Ekrana Bilgilerle Yükleniyor

Çözüldü #1
Merhaba konu başlığını nasıl açacağımı kestiremedim. Ufak bir sıkıntı var ama çözümünü bulamadım. Şöyleki F_AyniYardimCikanListesi formunu direk çağırıp Makbuz no alanında çift tıkladığımda ilgili form bilgileri ile beraber açılıyor burda sorun yok. ama eğer aynı formu
ilk F_AyniYardimCikis formunu açıp kayıt yaptıktan sonra yada kayıt yapmadan önce   F7 fonksiyon tuşu ile çağırırsam ekrana gelen listenin MakbuzNo alanınında ilk çift tıklamada bilgiler olmadan boş form geliyor boş formu kapatıp aynı alanda 2.defa tıkladığımda form bilgileri ile beraber geliyor. Liste Üst ve alt formlarının yüklenme olaylarına Me.Requery kodunu ekledim ama sonuç değişmedi. Teşekkürler.
[Resim: do.php?img=9946]
Visual Basic Code
Private Sub Form_Load()

Dim CikanSql As String
Dim X As Integer
Dim Gveri As Integer

CikanSql = "Select * from T_AyniYardim where CikanMiktar>0"

   CikanRS.Open CikanSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
    If CikanRS.RecordCount <> 0 Then
       CikanRS.MoveFirst
    
    AlanDoldur
    
    End If

Dim fat As Control

   For Each fat In Me.Form.Controls
       Select Case fat.ControlType
          Case acTextBox
          fat.Value = ""
          Case acComboBox
          fat.Value = ""
          Case acCheckBox
          fat.Value = "0"
                              
        End Select
    Next

If Me.OpenArgs <> 0 Then
    
    Tarih_TXT.SetFocus
    
    CikanRS.MoveFirst
    
    For Gveri = 0 To CikanRS.RecordCount - 1

        AlanDoldur
        CikanRS.MoveNext

            If Me.YardimNo_TXT = Me.OpenArgs Then
                Exit For
            End If
    Next Gveri
    
Me.KeyPreview = True

End If

Tarih_TXT = Date

End Sub
.rar LISTE.rar (Dosya Boyutu: 146,08 KB | İndirme Sayısı: 1)
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 26/03/2020, 21:09, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#2
YardimNo_TXT metin kutusunun çift tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Visual Basic Code
If CurrentProject.AllForms("F_AyniYardimCikis").IsLoaded = True Then
    DoCmd.Close acForm, "F_AyniYardimCikis"
End If
DoCmd.OpenForm "F_AyniYardimCikis", , , , , , Me.YardimNo_TXT
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
(27/03/2020 13:38)ozanakkaya Adlı Kullanıcıdan Alıntı: YardimNo_TXT metin kutusunun çift tıklandığında olayındaki kodu aşağıdaki ile değiştir.

Visual Basic Code
If CurrentProject.AllForms("F_AyniYardimCikis").IsLoaded = True Then
    DoCmd.Close acForm, "F_AyniYardimCikis"
End If
DoCmd.OpenForm "F_AyniYardimCikis", , , , , , Me.YardimNo_TXT
Elinize sağlık çok teşekkürler.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da