Option Compare Database
Option Explicit
Private Sub Komut35_Click()
Dim rs As New ADODB.Recordset
Dim GYil, GSayi As Integer
rs.Open "TBLMSEN_AKTAR", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For GYil = 0 To 4
For GSayi = 1 To 12
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE AL_SENETNO SET AL_SENETNO.SIRA_NO = [SIRA_NO]+[EKLE];"
DoCmd.SetWarnings True
rs.AddNew
rs("SC_NO") = Dlookup ("SENET_NO", "SENETNO")
rs("SC_GIRTRH") = Date
rs("VADETRH") = DateSerial(Year(VADE_TARIH) + GYil, Month(VADE_TARIH) + (GSayi - 1), Day(VADE_TARIH))
rs("SC_VERENK") = Me.DAIRE_NO
rs("TUTAR") = Me.KIRATUTAR + (Me.ARTIRIM * GYil)
rs("RAP_KOD") = Me.RAPOR_KODUEK
rs.Update
Next GSayi
Next GYil
Set rs = Nothing
Me.Requery
End Sub
Access Formda Veri Çoğaltma
Bu Konudaki Yorumlar |
Access Formda Veri Çoğaltma - Yazar: cagatay1234 - 24/05/2017, 09:57
Cvp: Access Formda Veri Çoğaltma - Yazar: ozanakkaya - 25/05/2017, 02:03
Cvp: Access Formda Veri Çoğaltma - Yazar: cagatay1234 - 26/05/2017, 19:32
Cvp: Access Formda Veri Çoğaltma - Yazar: ozanakkaya - 27/05/2017, 00:40
Cvp: Access Formda Veri Çoğaltma - Yazar: cagatay1234 - 27/05/2017, 12:38
Cvp: Access Formda Veri Çoğaltma - Yazar: ozanakkaya - 27/05/2017, 15:19
Cvp: Access Formda Veri Çoğaltma - Yazar: cagatay1234 - 27/05/2017, 15:36
|
Konuyu Okuyanlar: 1 Ziyaretçi