Skip to main content

AccessTr.neT


Hata mesajı hk.

Hata mesajı hk.

Çözüldü #7
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.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Hata mesajı hk. - Yazar: erkanb - 13/02/2012, 16:34
Cvp: Hata mesajı hk. - Yazar: iscinar - 13/02/2012, 16:43
Cvp: Hata mesajı hk. - Yazar: erkanb - 13/02/2012, 16:48
Cvp: Hata mesajı hk. - Yazar: iscinar - 13/02/2012, 16:50
Cvp: Hata mesajı hk. - Yazar: iscinar - 13/02/2012, 17:00
Cvp: Hata mesajı hk. - Yazar: erkanb - 13/02/2012, 17:03
Cvp: Hata mesajı hk. - Yazar: iscinar - 13/02/2012, 17:19
Cvp: Hata mesajı hk. - Yazar: erkanb - 13/02/2012, 17:47
Cvp: Hata mesajı hk. - Yazar: iscinar - 13/02/2012, 18:59
Cvp: Hata mesajı hk. - Yazar: erkanb - 14/02/2012, 01:46
Hata mesajı hk. - Yazar: erkanb - 14/02/2012, 01:59
Cvp: Hata mesajı hk. - Yazar: iscinar - 14/02/2012, 12:07
Cvp: Hata mesajı hk. - Yazar: iscinar - 17/02/2012, 23:47