(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