AccessTr.neT

Tam Versiyon: Bulunan Kayıtalara Numara Atama
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
Merhaba, formdaki irsaliye no kısmı manuel mi yazılıyor acaba?
(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.
(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.
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.
kayıt işlemi tam istediğim gibi. yeni kayıt için tüm formu nasıl temizleriz.
Sayfalar: 1 2