Skip to main content

AccessTr.neT


Bulunan Kayıtalara Numara Atama

Bulunan Kayıtalara Numara Atama

Çözüldü #1
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.
.rar G_BARKOD Form.rar (Dosya Boyutu: 60,16 KB | İndirme Sayısı: 2)
barcins, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#2
Merhaba, formdaki irsaliye no kısmı manuel mi yazılıyor acaba?
Cevapla
#3
(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.
barcins, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#4
(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.
barcins, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
#5
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.
Cevapla
#6
kayıt işlemi tam istediğim gibi. yeni kayıt için tüm formu nasıl temizleriz.
barcins, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da