12-11-2017, 20:21
arkadaşlar merhaba forumdan da aradım ama benzerleri olmasına rağmen tam olarak çözemedim. şimdi bir formumuz var. sicil no ve parola yazılarak ana menüye ulaşmak istiyorum kodu yazdım ama değerler string olduğundan mı yoksa eksik bıraktığım bir şey mi var anlamadım. Yardımınıza ihtiyacım var.
yazdığım kod.
Private Sub PAROLAGİRİŞ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If ([SAY] = 0) Then
If (SİCİLNOGİRİŞ = DOĞRUSİCİL) Then
If ("PAROLAGİRİŞ" = "DOĞRULAMA") Then
If ([A-PCA] <> [D-PCA]) Then
DoCmd.Close acForm, "GİRİŞ"
DoCmd.OpenForm "KURULUMSOR", acNormal, "", "", , acDialog
Else
DoCmd.OpenForm "AKTİFKULLANICI alt formu1", acNormal, "", "", , acHidden
Forms![AKTİFKULLANICI alt formu1]!Kimlik = 1
Forms![AKTİFKULLANICI alt formu1]![ADI SOYADI] = Forms!GİRİŞ![A-ADI]
Forms![AKTİFKULLANICI alt formu1]![SİCİL NO] = Forms!GİRİŞ!DOĞRUSİCİL
Forms![AKTİFKULLANICI alt formu1]![BİLGİSAYAR ADI] = Forms!GİRİŞ![A-PCA]
DoCmd.OpenForm "ANASAYFA", acNormal, "", "", , acNormal
DoCmd.Close acForm, "GİRİŞ"
DoCmd.Close acForm, "AKTİFKULLANICI alt formu1"
End If
Else
Beep
MsgBox "PAROLANIZ YANLIŞ. 2 HAKKINIZ KALDI", vbExclamation, "HATALI PAROLA"
PAROLAGİRİŞ = Null
SAY = SAY + 1
DoCmd.GoToControl "PAROLAGİRİŞ"
End If
Else
Beep
MsgBox "KAYITLI OLMAYAN KULLANICI SİCİL NO. LÜTFEN KAYITLI SİCİL NO GİRİNİZ.", vbOKOnly, ""
SİCİLNOGİRİŞ = Null
PAROLAGİRİŞ = Null
DoCmd.GoToControl "[SİCİLNOGİRİŞ]"
End If
ElseIf (SAY = 1) Then
If ("SİCİLNOGİRİŞ" = "DOĞRUSİCİL") Then
If ("PAROLAGİRİŞ" = "DOĞRULAMA") Then
If ("[A-PCA]" <> "[D-PCA]") Then
DoCmd.Close acForm, "GİRİŞ"
DoCmd.OpenForm "KURULUMSOR", acNormal, "", "", , acDialog
Else
DoCmd.OpenForm "AKTİFKULLANICI alt formu1", acNormal, "", "", , acHidden
Forms![AKTİFKULLANICI alt formu1]!Kimlik = 1
Forms![AKTİFKULLANICI alt formu1]![ADI SOYADI] = Forms!GİRİŞ![A-ADI]
Forms![AKTİFKULLANICI alt formu1]![SİCİL NO] = Forms!GİRİŞ!DOĞRUSİCİL
Forms![AKTİFKULLANICI alt formu1]![BİLGİSAYAR ADI] = Forms!GİRİŞ![A-PCA]
DoCmd.OpenForm "ANASAYFA", acNormal, "", "", , acNormal
DoCmd.Close acForm, "GİRİŞ"
DoCmd.Close acForm, "AKTİFKULLANICI alt formu1"
End If
Else
Beep
MsgBox "PAROLANIZ YANLIŞ. SON ŞANSINIZ.", vbExclamation, "HATALI PAROLA"
PAROLAGİRİŞ = Null
SAY = SAY + 1
DoCmd.GoToControl "PAROLAGİRİŞ"
End If
Else
Beep
MsgBox "KAYITLI OLMAYAN KULLANICI SİCİL NO. LÜTFEN KAYITLI SİCİL NO GİRİNİZ.", vbOKOnly, ""
SİCİLNOGİRİŞ = Null
PAROLAGİRİŞ = Null
DoCmd.GoToControl "[SİCİLNOGİRİŞ]"
End If
ElseIf (SAY = 2) Then
If ("SİCİLNOGİRİŞ" = "DOĞRUSİCİL") Then
If ("PAROLAGİRİŞ" = "DOĞRULAMA") Then
If ("[A-PCA]" <> "[D-PCA]") Then
DoCmd.Close acForm, "GİRİŞ"
DoCmd.OpenForm "KURULUMSOR", acNormal, "", "", , acDialog
Else
DoCmd.OpenForm "AKTİFKULLANICI alt formu1", acNormal, "", "", , acHidden
Forms![AKTİFKULLANICI alt formu1]!Kimlik = 1
Forms![AKTİFKULLANICI alt formu1]![ADI SOYADI] = Forms!GİRİŞ![A-ADI]
Forms![AKTİFKULLANICI alt formu1]![SİCİL NO] = Forms!GİRİŞ!DOĞRUSİCİL
Forms![AKTİFKULLANICI alt formu1]![BİLGİSAYAR ADI] = Forms!GİRİŞ![A-PCA]
DoCmd.OpenForm "ANASAYFA", acNormal, "", "", , acNormal
DoCmd.Close acForm, "GİRİŞ"
DoCmd.Close acForm, "AKTİFKULLANICI alt formu1"
End If
Else
Beep
MsgBox "PAROLANIZI 3 KEZ YANLIŞ GİRDİNİZ. PROGRAM KAPANACAK", vbQuestion, "HATALI PAROLA"
DoCmd.Quit acExit
End If
Else
Beep
MsgBox "KAYITLI OLMAYAN KULLANICI SİCİL NO. LÜTFEN KAYITLI SİCİL NO GİRİNİZ.", vbOKOnly, ""
SİCİLNOGİRİŞ = Null
PAROLAGİRİŞ = Null
DoCmd.GoToControl "[SİCİLNOGİRİŞ]"
End If
End If
End If
End Sub
yazdığım kod.
Private Sub PAROLAGİRİŞ_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If ([SAY] = 0) Then
If (SİCİLNOGİRİŞ = DOĞRUSİCİL) Then
If ("PAROLAGİRİŞ" = "DOĞRULAMA") Then
If ([A-PCA] <> [D-PCA]) Then
DoCmd.Close acForm, "GİRİŞ"
DoCmd.OpenForm "KURULUMSOR", acNormal, "", "", , acDialog
Else
DoCmd.OpenForm "AKTİFKULLANICI alt formu1", acNormal, "", "", , acHidden
Forms![AKTİFKULLANICI alt formu1]!Kimlik = 1
Forms![AKTİFKULLANICI alt formu1]![ADI SOYADI] = Forms!GİRİŞ![A-ADI]
Forms![AKTİFKULLANICI alt formu1]![SİCİL NO] = Forms!GİRİŞ!DOĞRUSİCİL
Forms![AKTİFKULLANICI alt formu1]![BİLGİSAYAR ADI] = Forms!GİRİŞ![A-PCA]
DoCmd.OpenForm "ANASAYFA", acNormal, "", "", , acNormal
DoCmd.Close acForm, "GİRİŞ"
DoCmd.Close acForm, "AKTİFKULLANICI alt formu1"
End If
Else
Beep
MsgBox "PAROLANIZ YANLIŞ. 2 HAKKINIZ KALDI", vbExclamation, "HATALI PAROLA"
PAROLAGİRİŞ = Null
SAY = SAY + 1
DoCmd.GoToControl "PAROLAGİRİŞ"
End If
Else
Beep
MsgBox "KAYITLI OLMAYAN KULLANICI SİCİL NO. LÜTFEN KAYITLI SİCİL NO GİRİNİZ.", vbOKOnly, ""
SİCİLNOGİRİŞ = Null
PAROLAGİRİŞ = Null
DoCmd.GoToControl "[SİCİLNOGİRİŞ]"
End If
ElseIf (SAY = 1) Then
If ("SİCİLNOGİRİŞ" = "DOĞRUSİCİL") Then
If ("PAROLAGİRİŞ" = "DOĞRULAMA") Then
If ("[A-PCA]" <> "[D-PCA]") Then
DoCmd.Close acForm, "GİRİŞ"
DoCmd.OpenForm "KURULUMSOR", acNormal, "", "", , acDialog
Else
DoCmd.OpenForm "AKTİFKULLANICI alt formu1", acNormal, "", "", , acHidden
Forms![AKTİFKULLANICI alt formu1]!Kimlik = 1
Forms![AKTİFKULLANICI alt formu1]![ADI SOYADI] = Forms!GİRİŞ![A-ADI]
Forms![AKTİFKULLANICI alt formu1]![SİCİL NO] = Forms!GİRİŞ!DOĞRUSİCİL
Forms![AKTİFKULLANICI alt formu1]![BİLGİSAYAR ADI] = Forms!GİRİŞ![A-PCA]
DoCmd.OpenForm "ANASAYFA", acNormal, "", "", , acNormal
DoCmd.Close acForm, "GİRİŞ"
DoCmd.Close acForm, "AKTİFKULLANICI alt formu1"
End If
Else
Beep
MsgBox "PAROLANIZ YANLIŞ. SON ŞANSINIZ.", vbExclamation, "HATALI PAROLA"
PAROLAGİRİŞ = Null
SAY = SAY + 1
DoCmd.GoToControl "PAROLAGİRİŞ"
End If
Else
Beep
MsgBox "KAYITLI OLMAYAN KULLANICI SİCİL NO. LÜTFEN KAYITLI SİCİL NO GİRİNİZ.", vbOKOnly, ""
SİCİLNOGİRİŞ = Null
PAROLAGİRİŞ = Null
DoCmd.GoToControl "[SİCİLNOGİRİŞ]"
End If
ElseIf (SAY = 2) Then
If ("SİCİLNOGİRİŞ" = "DOĞRUSİCİL") Then
If ("PAROLAGİRİŞ" = "DOĞRULAMA") Then
If ("[A-PCA]" <> "[D-PCA]") Then
DoCmd.Close acForm, "GİRİŞ"
DoCmd.OpenForm "KURULUMSOR", acNormal, "", "", , acDialog
Else
DoCmd.OpenForm "AKTİFKULLANICI alt formu1", acNormal, "", "", , acHidden
Forms![AKTİFKULLANICI alt formu1]!Kimlik = 1
Forms![AKTİFKULLANICI alt formu1]![ADI SOYADI] = Forms!GİRİŞ![A-ADI]
Forms![AKTİFKULLANICI alt formu1]![SİCİL NO] = Forms!GİRİŞ!DOĞRUSİCİL
Forms![AKTİFKULLANICI alt formu1]![BİLGİSAYAR ADI] = Forms!GİRİŞ![A-PCA]
DoCmd.OpenForm "ANASAYFA", acNormal, "", "", , acNormal
DoCmd.Close acForm, "GİRİŞ"
DoCmd.Close acForm, "AKTİFKULLANICI alt formu1"
End If
Else
Beep
MsgBox "PAROLANIZI 3 KEZ YANLIŞ GİRDİNİZ. PROGRAM KAPANACAK", vbQuestion, "HATALI PAROLA"
DoCmd.Quit acExit
End If
Else
Beep
MsgBox "KAYITLI OLMAYAN KULLANICI SİCİL NO. LÜTFEN KAYITLI SİCİL NO GİRİNİZ.", vbOKOnly, ""
SİCİLNOGİRİŞ = Null
PAROLAGİRİŞ = Null
DoCmd.GoToControl "[SİCİLNOGİRİŞ]"
End If
End If
End If
End Sub