+- 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ığı: Hata mesajı hk. (/konu-hata-mesaji-hk.html)
Cvp: Hata mesajı hk. - iscinar - 13/02/2012
Ben örneğinizi indirdim sorun yaşamadım.
Barkod yazacağın metin kutusunun güncelleştirme sonrasına
Private Sub Metin_Kutusunun_Adı_AfterUpdate()'Metin Kutunuzu değiştirmiştim.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[BarkodSeriNo] = '" & Me![Metin_Kutusunun_Adı] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
If ([Metin_Kutusunun_Adı] = BarkodSeriNo) Then
Else
MsgBox "mesajınızı buraya yazabilirsiniz", 64, "İsmail ÇINAR"
End If
End Sub
Bu kodu deneyin.
Cvp: Hata mesajı hk. - erkanb - 13/02/2012
Private Sub Barkod_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[BarkodSeriNo] = '" & Me![Barkod] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
If ([Barkod] = BarkodSeriNo) Then
Else
MsgBox "mesajınızı buraya yazabilirsiniz", 64, "İsmail ÇINAR"
End If
End Sub
verdiğiniz kodu metin kutusunun adını barkod olarak değiştirerek denedim fakat hata veriyor Me.Bookmark = rs.Bookmark kısmını sarı ile işaretliyor.
Cvp: Hata mesajı hk. - iscinar - 13/02/2012
Mesajını gorunce aklıma geldı form yapında da ufak degısklık yapmıstım. Su an cepten gırıyorum bu yuzden ek lındırme ısı ıcın Ozan hocayla (Sn. Sledgeab) gorussenız ıyı olur.
Cvp: Hata mesajı hk. - erkanb - 14/02/2012
Yardımınız için teşekkürler. Sorunum çözüldü.
Hata mesajı hk. - erkanb - 14/02/2012
Merhabalar,
Sorunum çözüldü dedim fakat bir şeyi farkettim. İstediğim gibi tabloda olmayan bir data girildiğinde hata veriyor fakat textbox unbound olduğu için kayıt yapmıyor. Bu konuda yardımcı olabilir misiniz? Teşekkürler.
Cvp: Hata mesajı hk. - iscinar - 14/02/2012
(14/02/2012, 01:59)erkanb yazdı: Merhabalar,
fakat textbox unbound olduğu için kayıt yapmıyor.
Neyi nereye kaydetmeyi planlıyorsunuz? Anlayamadım ilk eklediğiniz örnekte de kayıt yapmadığına bakarsanız formun kaynağında düzenleme yapmanız gerekebilir.
Fikir olsun diye aklıma aşağıdaki gibi Çift seçenekli msgbox uyarısı geldi istediğiniz gibi ayarlamayı deneyin.
Bir Metin Kutusu ekleyip Tablonuzdaki BarkodSeriNo ile ilişkilendirip BarkodSeriNo olarak isimlendirin daha sonra msgbox uyarısını aşağıdakiyle değiştirin. İşinizi görürse yeni eklediğiniz BarkodSeriNo adlı metin kutusunun görünürlüğünü hayır yaparak gizleyebilirsiniz.
Tekrar söylemeliyim ki bu benim anladığıma göre aklıma gelen ilk çözüm yolu sizin isteğinize göre farklılık gösterebillir.
'Eğer Açılan_Kutu32 de aradığınız Barkod yoksa aşağıdaki uyarıyı verir
If MsgBox("Aradığınız Barkod Bulunamamıştır." & Chr(10) & "Yeni ürün girişi yapmak için EVET'i " & Chr(10) & "İşlem Yapmadan Çıkmak için 'HAYIR'ı tıklayın", vbQuestion + vbYesNo, "İsmail ÇINAR") = vbYes Then
'EVET'i seçerseniz
DoCmd.GoToRecord , , acNewRec 'Yeni Kayıt açarak
Me.BarkodSeriNo = Me.Açılan_Kutu32 'Açılan_Kutu32 deki veriyi BarkodSeriNo ya getirir.
HAYIR'ı seçtiğinizde işlem yapmaz
End If