......
barkod giriş metin kutusunun güncelleştirme sonrası kodu
Private Sub barkod_AfterUpdate()
Dim girisler, cikislar As Integer
girisler = Nz(DLookup("gelenadet", "tblgelenmal", "barkodno='" & Me.barkod & "'"), 0)
cikislar = Nz(DSum("satisadet", "tblsatis", "barkodno='" & Me.barkod & "'"), 0)
If girisler - cikislar <= 0 Then
MsgBox "STOKLARDA BU ÜRÜNDEN KALMADI SATAMAZSINIZ!!!"
Else
barkod_islemi
End If
End Sub
-----------------------ve barkod_islemi kodu
Private Sub barkod_islemi()
Me.bar = Me.barkod
Me.kontrol = Me.bar.Column(4)
If Me.kontrol >= 1 Then
Call Komut39_Click
Me.barkodno = Me.bar.Column(0)
Me.urunadi = Me.bar.Column(1)
Me.Beden = Me.bar.Column(2)
Me.satisfiyati = Me.bar.Column(3)
Me.satisfiyati1 = Me.bar.Column(4)
Me.firmaid = Me.bar.Column(5)
Me.urunid = Me.bar.Column(6)
Me.Metin69 = Me.bar.Column(7)
Me.musteriid = ""
Me.personelid = Forms![frmgiris]![personelid]
Me.satistarihi = Date
Me.toplamsatis = Me.satisadet * Me.satisfiyati
Me.toplamsatis1 = Me.satisadet * Me.satisfiyati1
Me.barkod = " "
Call Komut55_Click
Me.barkod.SetFocus
Else
MsgBox "BU ÜRÜN BARKOTUNU KONTROL EDİN..!! BU ÜRÜN YOK..!!", vbCritical, "EKREM ÇEVİK"
End If
End Sub
--------------sorunlarınızda hepinize bana yardımcı olan hocalar nasip etsin
Sorun çözülmüştür sayın hocalarımız konuyu Access Cevaplanmış Soruları taşıyabilirler