AccessTr.neT

Tam Versiyon: vb kodunda ufak bir hata
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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 ??
(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
(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