Sn.@berduş  kodu ana uygulamama yazınca 


Bu hatayı aldım. Neyi eksik yaptım acaba.

1 - frm.AcikMi  ana forumunuzda var, kayıt sil butonun olduğu formda tanımlanmış bir fonksiyon
2 - aynı şifre formunu başka formlarda da kullanma ihtimaliniz olduğu için ana form yada şifre girme formunu hangi form çağrıyorsa formun adını yollamak için kullanılmıştır.me.name kodun yazılı oldugu formun adını verir.
4 - ado ile yapılsaydı da aynı taklalar bir adım az yine olurdu belki açıkmi fonksiyonuna gerek kalmazdı o kadar.

---

Bilgisayar yok o nedenle inceleyemedim ama başka b8r forma mi eklediniz kodu?
O formda IDtxt var mı? Yada form açmayı iptal eden bir kod?

Sn.@berduş bu fonksiyon sayfanın en sonunda imiş gözümden kaçmış onuda ekledim ama aynı hata devam ediyor. İncelemeye devam ediyorum. Kodu aynı formda kullandım başka bir fark şimdilik göremedim incelemeye devam ediyorum.

Public Function AcikMi()



CikanRS.Close

Set CikanRS = Nothing

Dim CikanSql As String

Dim X As Integer

Dim Gveri As Integer

Dim fat As Control



    

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

    CikanRS.Open CikanSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

    

    If CikanRS.RecordCount <> 0 Then

       CikanRS.MoveFirst

    

    AlanDoldur

    Else

       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



    End If

End Function

Hata kayıt sil düğmesine basınca mi oluşuyor

(03/04/2020, 11:09)berduş yazdı: Hata kayıt sil düğmesine basınca mi oluşuyor

Evet

If Len(Me.ID_TXT) > 0 Then DoCmd.OpenForm "F_Password", , , , , , Me.Name & ";" & Me.ID_TXT Else MsgBox "herhangi bir kayıt seçilmedi?" satırını iptal edip sadece mesaj kutusu ekleyerke deneyin

---

Msgbox "sil dugmesine basildi"

gibi bir mesaj kutusunun çalışması gerek