Genel bir soru - 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ığı: Genel bir soru (/konu-genel-bir-soru.html) Sayfalar:
1
2
|
Cvp: Genel bir soru - fatih karagöl - 18/09/2013 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 Cvp: Genel bir soru - fascioğlu - 19/09/2013 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. Cvp: Genel bir soru - fatih karagöl - 19/09/2013 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 Cvp: Genel bir soru - fascioğlu - 24/09/2013 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. |