Kaydı Yönetici Şifresi İle Silmek

1 2 3 4
03/04/2020, 10:32

Oğuz Türkyılmaz

Sn.@berduş  kodu ana uygulamama yazınca 


Bu hatayı aldım. Neyi eksik yaptım acaba.
03/04/2020, 10:38

berduş

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?
03/04/2020, 11:05

Oğuz Türkyılmaz

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


03/04/2020, 11:09

berduş

Hata kayıt sil düğmesine basınca mi oluşuyor
03/04/2020, 12:10

Oğuz Türkyılmaz

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

berduş

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
1 2 3 4