12-02-2011, 10:45
Selam
Null kelimesinin anlamını biliyorum ama
vade tarih metin kutusunda tarih olmadığında nasıl tabloya kaydedeceğini bilmiyorum
dün tanımlama yolu ile yaptım oldu galiba
doğru ise onaylamanızı bekliyorum
hatalı ise başka nasıl yaparım
Dim bostar As Variant
bostar = VadeTarih
Dim rs As New ADODB.Recordset
rs.Open "HareketlerBos", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[HareketİD]=" & HareketİD
rs("İslemTarih") = İslemTarih
rs("MusteriİD") = MusteriİD
rs("Aciklama") = Aciklama
rs("SatisParcaToplami") = SatisParcaToplami
rs("KdvOrani") = KdvOrani
rs("KdvTutari") = Kdv
rs("KarİskontoOrani") = ToplaKarİskontoOrani
rs("KarİskontoTutari") = İskontKar
rs("AlisSatisGenelToplami") = GenelToplam
rs("OdemeSekli") = OdemeSekli
rs("OdemeSekil") = OdemeSekli.Column(1)
rs("VadeTarih") = VadeTarih
rs("Borc") = GenelToplam
rs("KasaİD") = Kasa
rs.Update
rs.Close
Null kelimesinin anlamını biliyorum ama
vade tarih metin kutusunda tarih olmadığında nasıl tabloya kaydedeceğini bilmiyorum
dün tanımlama yolu ile yaptım oldu galiba
doğru ise onaylamanızı bekliyorum
hatalı ise başka nasıl yaparım
Dim bostar As Variant
bostar = VadeTarih
Dim rs As New ADODB.Recordset
rs.Open "HareketlerBos", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.Find "[HareketİD]=" & HareketİD
rs("İslemTarih") = İslemTarih
rs("MusteriİD") = MusteriİD
rs("Aciklama") = Aciklama
rs("SatisParcaToplami") = SatisParcaToplami
rs("KdvOrani") = KdvOrani
rs("KdvTutari") = Kdv
rs("KarİskontoOrani") = ToplaKarİskontoOrani
rs("KarİskontoTutari") = İskontKar
rs("AlisSatisGenelToplami") = GenelToplam
rs("OdemeSekli") = OdemeSekli
rs("OdemeSekil") = OdemeSekli.Column(1)
rs("VadeTarih") = VadeTarih
rs("Borc") = GenelToplam
rs("KasaİD") = Kasa
rs.Update
rs.Close

