05-01-2016, 01:17
(En son düzenleme: 05-01-2016, 01:46 orcunerkek54.)
Herkese iyi akşamlar. frm_giris formundan frm_arac_bilgileri_giris formunu açtırıyorum ve yeni kayıt açtırıyorum sorularım şu şekilde
1. aşağıdaki kod ne derece doğru. kırmızı yazılı olan yeni kayıt aç kodu doğrumu
2. yeni form açtığımızda form üzerindeki bir butonu kodlarla gizlemek ve bir başka butonu görünür yapmak istiyorum
3. form uzerindeki bir butona kod aracılığıyla basabilirmiyiz. butonum Komut48. Komut48.click gibi bir kodla yapabilirmiyim.
If MsgBox("Yeni araç kayıt sayfası açılacak onaylıyormusunuz?", vbYesNo) = vbYes Then 'evet hayırlı mesaj
'eveti seçince olacak işlemler
DoCmd.OpenForm ("frm_arac_bilgileri_giris") 'yeni formu açmak için
DoCmd.GoToRecord , , acNewRec ' BU KOD DOĞRUMU açtırdığımız frm_arac_bilgileri_giris formunda yeni kayıt açtırıyoruz
DoCmd.Close acForm, "frm_giris" 'formu kapatmak için
DoCmd.Beep 'bip sesi çıkartmak için
MsgBox "Hoş geldiniz... Bu sayfada yeni kayıt işlemini gerçekleştirebilirsiniz..."
Else
Cancel = True
'hayır seçilince olacak işlemler
DoCmd.Beep 'bip sesi çıkartmak için
MsgBox "Seçim iptal edildi. Lütfen yeni seçiminizi yapınız..."
End If 'son bitti
1. aşağıdaki kod ne derece doğru. kırmızı yazılı olan yeni kayıt aç kodu doğrumu
2. yeni form açtığımızda form üzerindeki bir butonu kodlarla gizlemek ve bir başka butonu görünür yapmak istiyorum
3. form uzerindeki bir butona kod aracılığıyla basabilirmiyiz. butonum Komut48. Komut48.click gibi bir kodla yapabilirmiyim.
If MsgBox("Yeni araç kayıt sayfası açılacak onaylıyormusunuz?", vbYesNo) = vbYes Then 'evet hayırlı mesaj
'eveti seçince olacak işlemler
DoCmd.OpenForm ("frm_arac_bilgileri_giris") 'yeni formu açmak için
DoCmd.GoToRecord , , acNewRec ' BU KOD DOĞRUMU açtırdığımız frm_arac_bilgileri_giris formunda yeni kayıt açtırıyoruz
DoCmd.Close acForm, "frm_giris" 'formu kapatmak için
DoCmd.Beep 'bip sesi çıkartmak için
MsgBox "Hoş geldiniz... Bu sayfada yeni kayıt işlemini gerçekleştirebilirsiniz..."
Else
Cancel = True
'hayır seçilince olacak işlemler
DoCmd.Beep 'bip sesi çıkartmak için
MsgBox "Seçim iptal edildi. Lütfen yeni seçiminizi yapınız..."
End If 'son bitti

