Private Sub Komut64_Click()
Dim ciltserinumara As Integer
Dim ciltilksayfaNO As Integer
Dim SondefterIlkSayfa As Integer
Dim gondermetarihi As Date
Dim gondermeno As Integer
Dim ambartarihi As Date
Dim ambarno As Integer
ciltserinumara = Me.txtCiltSeriNO
ciltilksayfaNO = Me.txtCildilkSayfa
SondefterIlkSayfa = Me.txtAdeti
gondermetarihi = Me.txtGonderimTarihi
gondermeno = Me.txtGonderimNo
ambartarihi = Me.txtAmbaraGirTar
ambarno = Me.txtAmbarNo
If ciltilksayfaNO <= SondefterIlkSayfa Then
ciltilksayfaNO = ciltilksayfaNO + 50
insert into defterler ( CildinSerisi,Cildin İlk SahifeNosu,_
GonderimYaziTarih,GonderimYaziNO,AmabaraGirisTar,AmbaraGirBelgeNo)
values (ciltserinumara,ciltilksayfaNO,gondermetarihi,_
gondermeno,ambartarihi,ambarno)
Else
End If
End Sub
Şu kodu düzeltebilirmisiniz eklenecek tablonun ismi Defterler
- En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…
Son Düzenleme: 22/06/2014, 17:25, Düzenleyen: Yunus Bozkurt.