03/04/2020, 10:32
Kaydı Yönetici Şifresi İle Silmek
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?
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, 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"