AccessTr.neT

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.

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.

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.

Yardımınız için teşekkürler. Sorunum çözüldü.

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.

Ek Dosyalar

Copy of damage1user_iscinar.rar(111.83 KB)

(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