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
726

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]
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ı: 6)
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.

If CurrentProject.AllForms("F_AyniYardimCikis").IsLoaded = True Then
    DoCmd.Close acForm, "F_AyniYardimCikis"
End If
DoCmd.OpenForm "F_AyniYardimCikis", , , , , , Me.YardimNo_TXT
Cevapla
#3
(27/03/2020, 13:38)ozanakkaya yazdı: YardimNo_TXT metin kutusunun çift tıklandığında olayındaki kodu aşağıdaki ile değiştir.

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
Task