Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Seri Numarası Kontrolü

durkheim
durkheim
Access Cevaplanmış Soruları
6
3700

Seri Numarası Kontrolü

Çözüldü #2
ercansahin
BlackEagle
ercansahin
Bul
Uzman
Adı Soyadı: Er.... ŞA....
Yaşı: 49
Konum: Bursa
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 16/03/2024,00:04
Yorumları: 3.764
Konuları: 69
Kayıt Tarihi: 14/11/2008
Teşekkür Puanı: 1.089
Sizi aramızda görmekten mutlu olduk.

Private Sub txt_serino_AfterUpdate()

Dim varmi, varmi1, son As String

    varmi = Dlookup ("[serino]", "Tablo1", "[txt_serino]= '" & Me.txt_serino & "'")

    varmi1 = Dlookup ("[seri]", "Tablo1", "[seri]= '" & Me.seri & "'")

    son = varmi1 & varmi

If son = Me.seri & Me.txt_serino Then

     MsgBox "Bu Seri No kullanılmaktadır!!!Kontrol Ediniz!"

Else

End If

End Sub
denermisiniz.
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
Seri Numarası Kontrolü - Yazar: durkheim - 12/02/2011, 01:39
Cvp: Seri Numarası Kontrolü - Yazar: ercansahin - 12/02/2011, 02:08
Cvp: Seri Numarası Kontrolü - Yazar: ozanakkaya - 12/02/2011, 02:08
Cvp: Seri Numarası Kontrolü - Yazar: durkheim - 12/02/2011, 02:14
Cvp: Seri Numarası Kontrolü - Yazar: ercansahin - 12/02/2011, 02:27
Cvp: Seri Numarası Kontrolü - Yazar: durkheim - 12/02/2011, 13:48
Cvp: Seri Numarası Kontrolü - Yazar: Yandemir - 12/02/2011, 02:31
Task