18/07/2024, 00:26
orada 2 yer vardı 2sini de değiştirdiniz mi?
Kod:
Private Sub Komut142_Click()
Dim tar1 As Date
Dim tar2 As Date
'DateAdd("m";-1;DateAdd("d";1;[Formlar]![KREDİ KARTI İŞLEMLERİ]![KREDİ KARTI-ALT].[Form]![Hesap_Kesim_Tar].[Value]))
tar1 = DateAdd("m", 1, Me.[Metin136].Value)
tar2 = DateAdd("m", -1, DateAdd("d", 1, tar1))
Me.[Metin139].Value = Format(tar2, "dd.mm.yyyy")
Me.[Metin136].Value = Format(tar1, "dd.mm.yyyy")
Forms![KREDİ KARTI İŞLEMLERİ].[Alt482].Form.Requery
End Sub
Private Sub Komut143_Click()
Dim tar1 As Date
Dim tar2 As Date
tar1 = DateAdd("m", -1, Me.[Metin136].Value)
tar2 = DateAdd("m", -1, DateAdd("d", 1, tar1))
Me.[Metin139].Value = Format(tar2, "dd.mm.yyyy")
Me.[Metin136].Value = Format(tar1, "dd.mm.yyyy")
Forms![KREDİ KARTI İŞLEMLERİ].[Alt482].Form.Requery
End Sub