ana form açılma hatası - Baskı Önizleme +- 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ığı: ana form açılma hatası (/konu-ana-form-acilma-hatasi.html) |
ana form açılma hatası - 1tk - 29/05/2016 arkadaşlar şifreli giriş ekranında kullanıcı adı ve şifreyi girdikten sonra ana form ekrana gelmiyor (aynı zamanda program çalışıyor gözüküyor) nerde yanlış yapmış olabilirim ? şifre ekranın giriş butonu kodu aşağıdaki gibi; Option Compare database Option Explicit Dim YanlisSifre -------------------------- Private Sub Form_Close() DoCmd.penFOrm”Form_Ana” End Sub --------------------------- Private Sub Form_Open(Cancel As Integer) Dim KulSay As String KulSay=DCount(“*”,”Tbl_Kullanici”) If KulSay=0 Then DoCmd.OpenForm "Form_SfrShrbaz" End If End Sub --------------------------------- Private Sub Komut”0_Click() On Error GoTo Hata Dim str As String str=oturum.value on Error GoTo hatas If Me.Dogrusifre=Me.sifre Then YetkiNe=Me.dogruyetki KullaniciKim=Me.Kullanici AktifKullaniciYetkisi AktifKullanici DoCmd.SetWarnings False CurrentDb.Execute “INSERT INTO Tbl_Kullanici_Kayit ( [user] ) SELECT aktifkullanici()” DoCmd.SetWarnings True Hatas: DoCmd.Close DoCmd.OpenForm “Form_Ana”,,,,, “Value=”+str Else YanlisSifre=YanlisSifre+1 MsgBox YanlisSifre & “. Denemenizde Şifrenizi Yanlış Girdiniz. Lütfen Tekrar Deneyiniz.” & Chr(13) & “4. Hatanızda Program Kapanacaktır.”, vbOKOoly+vbritical, “Hatalı Şifre” If YanlisSifre=4. Then DoCmd.Quit(acQuitSaveNone) End If Exit Sub Hata: End Sub ------------------------------ Private Sub Kullanici_AfterUpdate() Me.Sifre.SetFocus End Sub Cvp: ana form açılma hatası - atoz112 - 29/05/2016 sayın 1tk, siz de takdir edersiniz ki, Site Kuralları gereği; örnek uygulamanızı incelemeksizin resimler veya kodlar üzerinden sadece ifadeler ya da bilgisel bazda açıklamalarda bulunmak,hem çözüme yetersiz kalacak hem de konunuzdaki mesaj yoğunluğunu artırmış olacaktır. kaldı ki, kimi durumda kodların dışında,nesne ayarlarından veya yapılandırmalarından kaynaklı sorunlar da söz konusu olabilir. kodlar üzerinde bazı kısımlarda hatalı yazımların olduğu da görülmektedir. bu nedenle,lütfen, içeriğinde farazi gerçek dışı ve işlemlerin neticelerini görebilecek şekilde 4-5 kayıt olacak halde örnek uygulamanızı eklemeye özen gösteriniz.teşekkürler. bilginize...iyi çalışmalar,saygılar. Cvp: ana form açılma hatası - atoz112 - 29/05/2016 sayın 1tk, 1) Kod:
DoCmd.OpenForm “Form_Ana”,,,,, “Value=”+str Kod:
DoCmd.OpenForm "Form_Ana", , , "[Value]=" & str 2) Private Sub Form_Close() olayındaki Kod:
DoCmd.penFOrm”Form_Ana” Kod:
DoCmd.OpenForm "Form_Ana", acNormal Cvp: ana form açılma hatası - 1tk - 29/05/2016 sayın atoz112 bilgileriniz için teşekkür ederim. önerilerinizi çalışma üzerinde inceledikten sonra size bilgi vereceğim. Cvp: ana form açılma hatası - 1tk - 31/05/2016 sayın atoz112 önerileriniz doğrultusunda mesaide değişiklikleri yaptım ama yine aynı hatayı veriyor bilgi ölçüsünde değişik varyasyonları denedim örneği mesaiden getirip eklemem gerekecek Cvp: ana form açılma hatası - ozanakkaya - 01/06/2016 Kodda gördüğüm kadarıyla penFOrm Hatas: +str Kodları hatalı. Atozun belirttiği gibi örnek uygulamanın incelenmesi gerekli. Ayrıca pencere gizleme olayı örneğinizde aktif mi? Aktif ise ana formun açılen ve kalıcı özellikleri nedir? |