ana form açılma hatası

1 2 3
29/05/2016, 19:45

1tk

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
29/05/2016, 20:00

atoz112

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.
29/05/2016, 20:10

atoz112

sayın 1tk,

1)

Kod:
DoCmd.OpenForm “Form_Ana”,,,,, “Value=”+str
kod ifadesi yerine,

Kod:
DoCmd.OpenForm "Form_Ana", , , "[Value]=" & str
olarak deneyiniz.

2)

Private Sub Form_Close() olayındaki

Kod:
DoCmd.penFOrm”Form_Ana”
kod ifadesi yerine,

Kod:
DoCmd.OpenForm "Form_Ana", acNormal
DoCmd.Close acForm, "sifre_giris_formunun_adi"
olarak deneyiniz.bilginize...iyi çalışmalar,saygılar.
29/05/2016, 20:54

1tk

sayın atoz112
bilgileriniz için teşekkür ederim.
önerilerinizi çalışma üzerinde inceledikten sonra size bilgi vereceğim.
31/05/2016, 21:55

1tk

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
01/06/2016, 03:35

ozanakkaya

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