Arkadaşlar.Hoca netten yapmayın kodları dedi :D Fakat zorunda kaldım. Aşağıda kodlar var.Aşağıdaki Kodların yanına neye yaradıklarını sölermisiniz çok sevinirim hoca soracak çünki "Bu satırdakileri ne amaçla yaptın?" diye 
bir metin kutusu var birde buton var. Metin kutusuna bişey girmedikmi butona tıklayınca "Lütfen Şifre Giriniz" diyor.bişeyler girince öteki formu açıyor...BU kadar biliyorum ama aşağıdaki değişkenlerin neye ayradıklarını sölermisiniz. Mesela "NZ,DocMd.openform stdocname,,,stlinkcriteria" Gibi
Private Sub Komut110_Click()
If Nz(Metin65, "") = "" Then
MsgBox "Lütfen Şifre Giriniz"
Else
On Error GoTo Err_Komut110_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "KartBilgileri1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut110_Click:
Exit Sub
Err_Komut110_Click:
MsgBox Err.Description
Resume Exit_Komut110_Click
End If
End Sub
bir metin kutusu var birde buton var. Metin kutusuna bişey girmedikmi butona tıklayınca "Lütfen Şifre Giriniz" diyor.bişeyler girince öteki formu açıyor...BU kadar biliyorum ama aşağıdaki değişkenlerin neye ayradıklarını sölermisiniz. Mesela "NZ,DocMd.openform stdocname,,,stlinkcriteria" Gibi Private Sub Komut110_Click()
If Nz(Metin65, "") = "" Then
MsgBox "Lütfen Şifre Giriniz"
Else
On Error GoTo Err_Komut110_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "KartBilgileri1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut110_Click:
Exit Sub
Err_Komut110_Click:
MsgBox Err.Description
Resume Exit_Komut110_Click
End If
End Sub
