+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Kaydı Yönetici Şifresi İle Silmek (/konu-kaydi-yonetici-sifresi-ile-silmek.html)
Cvp: Kaydı Yönetici Şifresi İle Silmek - Oğuz Türkyılmaz - 03/04/2020
Sn.@berduş kodu ana uygulamama yazınca
Bu hatayı aldım. Neyi eksik yaptım acaba.
Cvp: Kaydı Yönetici Şifresi İle Silmek - berduş - 03/04/2020
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?
Cvp: Kaydı Yönetici Şifresi İle Silmek - Oğuz Türkyılmaz - 03/04/2020
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
Cvp: Kaydı Yönetici Şifresi İle Silmek - berduş - 03/04/2020
Hata kayıt sil düğmesine basınca mi oluşuyor
Cvp: Kaydı Yönetici Şifresi İle Silmek - Oğuz Türkyılmaz - 03/04/2020
(03/04/2020, 11:09)berduş yazdı: Hata kayıt sil düğmesine basınca mi oluşuyorEvet
Cvp: Kaydı Yönetici Şifresi İle Silmek - berduş - 03/04/2020
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"