Skip to main content

AccessTr.neT


vb kodunda ufak bir hata

emir ustaoğlu
emir ustaoğlu
2
2639

vb kodunda ufak bir hata

Çözüldü #1
sayın üstadlarım merhaba;

bir düğme tıklanma yordamına bir tablo açtırmak istiyorum ancak bundan önce bir mesaj kutusuyla uyarmak istiyorum ve evet, hayır seçenekleri olacak kişi evet derse kontrol paneli kapanacak ve tablo açılacak hayır derse bi işlem yapmadan kontrol panelinde kalacak
eveti seçince kontrol panelini kapatamadığım için mesaj kutusunun önüne kapanması için kodu ekledim ancak hayır deyince kontrol panelini tekrar açmadığı için altına bir satır daha ekledim hayır derse kontrol panelini aç diye oldu ancak evet deyince de açıyor nasıl bir düzeltme yapmam gerekir ??
kod şu şekilde;
Private Sub Komut8_Click()
DoCmd.Close acForm, Me.Name, acSaveYes
If MsgBox("Ürün listesi tablosu açılacak" & Chr(10) & "Devam Etmek İstiyor musunuz ?", vbCritical + vbYesNo, "STS [Uyarı]") = vbYes Then DoCmd.OpenTable "urun_listesi"
If vbNo Then
DoCmd.OpenForm "kontrol_panel"
End If
End Sub

kodta nerde hata yapmışım ??
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların
Cevapla
#2
(15/09/2015, 09:39)emir ustaoğlu yazdı: evet, hayır seçenekleri olacak kişi evet derse kontrol paneli kapanacak ve tablo açılacak hayır derse bi işlem yapmadan kontrol panelinde kalacak

If MsgBox("Ürün listesi tablosu açılacak" & Chr(10) & "Devam Etmek İstiyor musunuz ?", vbCritical + vbYesNo, "STS [Uyarı]") = vbYes Then
DoCmd.OpenTable "urun_listesi"
DoCmd.Close acForm, "kontrol_panel", acSaveYes
Else
'hayır için kod
End If
Cevapla
#3
(15/09/2015, 13:02)ozanakkaya yazdı: If MsgBox("Ürün listesi tablosu açılacak" & Chr(10) & "Devam Etmek İstiyor musunuz ?", vbCritical + vbYesNo, "STS [Uyarı]") = vbYes Then
DoCmd.OpenTable "urun_listesi"
DoCmd.Close acForm, "kontrol_panel", acSaveYes
Else
'hayır  için kod
End If

sayın ozanakkaya;

yardımınız için teşekkür ederim
Dünyada Yetirince Anlaşılır Dile Konuşan İnsanlar Var Birazcık da Anlaması İçin Düşünmesi Gerekiyor İnsanların
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task