#6
Private Sub Metin0_BeforeUpdate(Cancel As Integer)
Dim Sonuc
Sonuc = DLookup("Kalan", "Sorgu3", "Barkod='" & Me.Metin0 & "'")
If IsNull(Sonuc) Then
MsgBox "bu parça pakete ait değil", vbCritical, "Dikkat"
Else
MsgBox "Bu parçadan " & Sonuc & " adet kalan görünüyor", vbOKOnly, "Kalan"
End If
End Sub
KalanKontrol_Seruz.rar
(Dosya Boyutu: 12,1 KB | İndirme Sayısı: 7)
| Bu Konudaki Yorumlar |
|
Accessde yaptığım bir programın bir yerinde takıldım. - Yazar: ahmetvural - 03/10/2009, 13:21
Cvp: Accessde yaptığım bir programın bir yerinde takıldım. - Yazar: benremix - 03/10/2009, 13:25
Cvp: Accessde yaptığım bir programın bir yerinde takıldım. - Yazar: mehmetdemiral - 03/10/2009, 16:24
Cvp: Accessde yaptığım bir programın bir yerinde takıldım. - Yazar: ahmetvural - 03/10/2009, 17:11
Cvp: Accessde yaptığım bir programın bir yerinde takıldım. - Yazar: Seruz - 14/10/2009, 15:51
Accessde hata kontrolü - Yazar: ahmetvural - 03/10/2009, 18:29
|
