AccessTr.neT

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.

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

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

(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.