Bulunan Kayıtalara Numara Atama

1 2
30/07/2018, 13:54

barcins

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.
30/07/2018, 15:45

ozanakkaya

Merhaba, formdaki irsaliye no kısmı manuel mi yazılıyor acaba?
30/07/2018, 16:04

barcins

(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, 16:17

barcins

(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.
30/07/2018, 16:35

ozanakkaya

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.
30/07/2018, 16:52

barcins

kayıt işlemi tam istediğim gibi. yeni kayıt için tüm formu nasıl temizleriz.
1 2