Genel bir soru

1 2
18/09/2013, 22:56

fatih karagöl

Selamlar
örnek ekleyemiyorum. Modulü aşağıdaki şekilde yaparsınız istediğiniz sonucu alırsınız. Sadece 2. maddeyi size bırakmış oldum. Sorun olursa yazın yine

Option Compare Database
Private kayit As Boolean


Private Sub Adısoyadı_Exit(Cancel As Integer)
If IsNull(Me![Adısoyadı]) Then
If MsgBox("Adı Soyadı alanı boş... Boş geçilsinmi..? ", vbYesNo) = vbNo Then
Me.Adısoyadı.SetFocus
Else
Me.tcno.SetFocus

End If
End If
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)
If kayit = False Then
Cancel = True
End If
End Sub

Private Sub tcno_Exit(Cancel As Integer)
If IsNull(Me![tcno]) Then
If MsgBox("TC Kimlik alanı boş... Boş geçilsinmi..? ", vbYesNo) = vbNo Then
Me.tcno.SetFocus
Else
Me.telefon.SetFocus
End If
End If
End Sub

Private Sub telefon_Exit(Cancel As Integer)
If IsNull(Me![telefon]) Then
If MsgBox("Telefon alanı boş... Boş geçilsinmi..? ", vbYesNo) = vbNo Then
Me.telefon.SetFocus
Else
Me.adres.SetFocus
End If
End If
End Sub



Private Sub Komut13_Click()
On Error GoTo Err_Komut13_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Komut13_Click:
Exit Sub

Err_Komut13_Click:
MsgBox Err.Description
Resume Exit_Komut13_Click

End Sub
Private Sub Komut14_Click()
On Error GoTo Err_Komut14_Click


DoCmd.GoToRecord , , acNewRec

Exit_Komut14_Click:
Exit Sub

Err_Komut14_Click:
MsgBox Err.Description
Resume Exit_Komut14_Click

End Sub
Private Sub Komut15_Click()
On Error GoTo Err_Komut15_Click
If telefon & tcno & Adısoyadı <> "" Then
If IsNull(Adısoyadı) Or Adısoyadı = "" Then
GoTo eksikBilgi
End If
If IsNull(tcno) Or tcno = "" Then
GoTo eksikBilgi
End If
If IsNull(telefon) Or telefon = "" Then
GoTo eksikBilgi
End If

If MsgBox("Form kaydedilsin mi ... Hayırı seçerseniz verilerinizi kaybedeceksiniz ..? ", vbYesNo) = vbYes Then
kayit = True
DoCmd.Close
Else
kayit = False
DoCmd.Close
End If
Exit Sub
End If

kayit = False
DoCmd.Close

Exit_Komut15_Click:
Exit Sub

Err_Komut15_Click:
MsgBox Err.Description
Resume Exit_Komut15_Click
eksikBilgi:
If MsgBox("Eksik bilgi mevcut ... Kaydı iptal ederek çıkmak istiyormusunuz ..? ", vbYesNo) = vbYes Then
kayit = False
DoCmd.Close
End If

End Sub

Private Sub Komut16_Click()
On Error GoTo Err_Komut16_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Komut16_Click:
Exit Sub

Err_Komut16_Click:
MsgBox Err.Description
Resume Exit_Komut16_Click

End Sub
Private Sub Komut17_Click()
On Error GoTo Err_Komut17_Click


DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Komut17_Click:
Exit Sub

Err_Komut17_Click:
MsgBox Err.Description
Resume Exit_Komut17_Click

End Sub
19/09/2013, 00:23

fascioğlu

Sayın Fatih bey,ne söylesem inanın azdır,çok çok teşekkür ediyorum
emeğinize sağlık.
Yalnız dikkatimi çeken bişey var hocam,Yeni kayıt girdiğimde Kaydet dediğimde,DoMenItem iptal edidi.
şeklinde bir uyarı geliyor,Ayrıca örneği başka bir formda defalarca denedim,çıkarken kaydetmemesi gerekirken yine kayd ediyor.
19/09/2013, 09:38

fatih karagöl

1. sorun doğrudur. kaydet düğmesi ile ilgilenmemiştim.
Kodunu aşağıda veriyorum. Düzelecektir.
Başka formda çalışmıyor konusuna gelince gözden kaçırdğınız bir şey olmalı.
İçinden çıkamazsınız onuda gönderirseniz.

kaydet düğmesinin kodu :
Private Sub Komut13_Click()
On Error GoTo Err_Komut13_Click

kayit = True
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Komut13_Click:
Exit Sub

Err_Komut13_Click:
MsgBox Err.Description
Resume Exit_Komut13_Click

End Sub
24/09/2013, 02:20

fascioğlu

Hocam çok tşk.ederim şehir dişında olduğumdan imkanım olmadiğın uygulayamadım ķısa zamanda size geri dönüş yapacağım saygılarımla.

Hocam çok tşk.ederim şehir dişında olduğumdan imkanım olmadiğın uygulayamadım ķısa zamanda size geri dönüş yapacağım saygılarımla.
1 2