Skip to main content

AccessTr.neT


Msgbox Kullanımda Hata

Msgbox Kullanımda Hata

Çözüldü #1
Hayırlı günler arkadaşlar. Bu gün 2 hatanın olduğunu fark ettim 
İlki: Private Sub Komut519_Click()
On Error GoTo Err_Kaydet_Click

If IsNull(Me.Teknik_Özellikleri) Then
MsgBox "Lütfen Teknik Özellikleri Belirtiniz", 48, "Kayıt İşlemi"
Me.Teknik_Özellikleri.SetFocus
Exit Sub

End If

If IsNull(Me.Miktar) Then
MsgBox "Lütfen Miktar Belirtiniz", 48, "Kayıt İşlemi"
Me.Miktar.SetFocus
Exit Sub

End If

    DoCmd.RunCommand acCmdRefresh
    If MsgBox("Değişiklikler kaydediliyor!", 36, "Kayıt İşlemi") = 6 Then
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    
       
End If
satinalma_durumu = 7
MsgBox "Siparişiniz Satınalma Birimine Yönlendirildi"

Exit_Kaydet_Click:
    Exit Sub

Err_Kaydet_Click:
    MsgBox Err.Description
    Resume Exit_Kaydet_Click
    

End Sub

Diye bir butonun altındaki kodun çalışma düzeninde bir terlik var. Msgbox a hayır desem de çalışmaya devam ediyor. En azından "satinalma_durumu = 7" faailyetlerini yapmaması gerekiyor. 

Diğer en önemli husus ise Kodun başında görüldüğü üzere alanlar boş ise alan doldurma hatası veriyor bu normal istenen bir komut.
Anormal olan ise ben başka bir tuş ile o alanları temizliyorum. Alanlarda hiç veri olmamasına rağmen dolu gibi davranıyor. kayıt işlemini yapıyor tabi boş olarak. Yardımlarınız için şimdiden teşekkürler.
Cevapla
#2
Sondaki end if yanlış yerde

If IsNull(Me.Teknik_Özellikleri) Then
MsgBox "Lütfen Teknik Özellikleri Belirtiniz", 48, "Kayıt İşlemi"
Me.Teknik_Özellikleri.SetFocus
Exit Sub

End If

If IsNull(Me.Miktar) Then
MsgBox "Lütfen Miktar Belirtiniz", 48, "Kayıt İşlemi"
Me.Miktar.SetFocus
Exit Sub

End If

DoCmd.RunCommand acCmdRefresh

If MsgBox("Değişiklikler kaydediliyor!", 36, "Kayıt İşlemi") = 6 Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70


satinalma_durumu = 7
MsgBox "Siparişiniz Satınalma Birimine Yönlendirildi"

End If

çalışmaz ise örnek uygulamanızı ekleyiniz
Cevapla
#3
Günaydın hayırlı sabahlar.
Hocam İl sorunum için kod düzeltmesi çalıştı teşekkürler. 

Devamı niteliğindeki soruma cevap bulabilmek için örnek ekledim. Sorunum Hiç veri girilmemiş ise kod normal olarak alan doldurmasını istiyor. Lakin alanlara veri girilip temizlendiğinde boş olmasına rağmen dolu gibi davranıp işlemeye devam ediyor. Saygı ve sevgilerimle.
.rar örnek.rar (Dosya Boyutu: 523,08 KB | İndirme Sayısı: 3)
Cevapla
#4
Kodunuza aşağıdaki gibi ekleme yaparak deneyiniz.

If IsNull(Me.Teknik_Özellikleri) or Me.Teknik_Özellikleri="" Then
Cevapla
#5
(01/08/2018, 10:45)ozanakkaya yazdı: Kodunuza aşağıdaki gibi ekleme yaparak deneyiniz.

If IsNull(Me.Teknik_Özellikleri) or Me.Teknik_Özellikleri="" Then

Cevabınız için teşekkürler. Başlangıç kodunu sizin yazdığınız ile değiştirince kalp spazmı geçiren kod normal hayata döndü. Çok Teşekkürler.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da