+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bulunan Kayıtalara Numara Atama (/konu-bulunan-kayitalara-numara-atama.html)
Sayfalar:
1
2
Bulunan Kayıtalara Numara Atama - barcins - 30/07/2018
Arkadaşlar merhaba barkod sistemi yapıyorum. bir yerde takıldım.
ekte örnek dosya mevcut.
forma iki kayıt girelim.
20180101010728KR01400052
20180101010728KR01400055
kaydet butonuna basınca formdaki yazan tarih ile irsaliye numarasını
ETIKET GIRIS Tablosundaki IRS_NO ve IRS_TARIH 'e işlesin.
temizle dediğimizde ise formu temizlesin.
Cvp: Bulunan Kayıtalara Numara Atama - ozanakkaya - 30/07/2018
Merhaba, formdaki irsaliye no kısmı manuel mi yazılıyor acaba?
Cvp: Bulunan Kayıtalara Numara Atama - barcins - 30/07/2018
(30/07/2018, 15:45)ozanakkaya yazdı: Merhaba, formdaki irsaliye no kısmı manuel mi yazılıyor acaba?
barkod okuyucu atıyor. ellede giriş yapılınabliyor borkod okumadığı zamanda.
Cvp: Bulunan Kayıtalara Numara Atama - barcins - 30/07/2018
(30/07/2018, 15:45)ozanakkaya yazdı: Merhaba, formdaki irsaliye no kısmı manuel mi yazılıyor acaba?
anlamamışım. İrsaliye no'yu elle yazıyoruz.
Cvp: Bulunan Kayıtalara Numara Atama - ozanakkaya - 30/07/2018
Merhaba,
Kaydet butonunun tıklandığında olayına aşağıdaki kodu yazarak deneyebilir misiniz?
Dim rs As DAO.Recordset
DoCmd.RunCommand acCmdSaveRecord
If IsNull(Me.irsaliyeno) Or Me.irsaliyeno = "" Then
MsgBox ("İrsaliye No Boş")
Exit Sub
End If
Set rs = CurrentDb.OpenRecordset("Select * from ETIKET_OKUT ")
rs.MoveFirst
Do Until rs.EOF = True
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE ETIKET_GIRIS SET IRS_NO = " & Me.irsaliyeno & ", IRS_TARIH = '" & Me.irtarih & "' WHERE (((BARKOD1)='" & rs!barkod & "'));"
DoCmd.SetWarnings True
rs.MoveNext
Loop
MsgBox ("işlem tamam")Eklediğiniz örnek ve veriye göre 1 alanı güncellemesi lazım.
Cvp: Bulunan Kayıtalara Numara Atama - barcins - 30/07/2018
kayıt işlemi tam istediğim gibi. yeni kayıt için tüm formu nasıl temizleriz.