05/05/2024, 16:20
Acemi54
Hayırlı günler.
Stok nu: 1452 ve SERİ 110 yazıp gönderi tarihini "10.10.2023" yazığımda Garanti metin kutusuna "GARANTİ DEVAM EDİYOR" yazıyor. "10,10.2024" yazdığımda Garanti metin kutusuna "GARANTİ BİTTİ" yazıyor.
Farklı bir stok veya seri numarası girip kayıt bulunamadığı zaman Garanti metin kutusuna "DAHA ÖNCE GELMEDİ" yazsın. Bunu yapamıyorum.
bu kodda eksik olanı bulamadım bana yardımcı olurmusunuz.
Stok nu: 1452 ve SERİ 110 yazıp gönderi tarihini "10.10.2023" yazığımda Garanti metin kutusuna "GARANTİ DEVAM EDİYOR" yazıyor. "10,10.2024" yazdığımda Garanti metin kutusuna "GARANTİ BİTTİ" yazıyor.
Farklı bir stok veya seri numarası girip kayıt bulunamadığı zaman Garanti metin kutusuna "DAHA ÖNCE GELMEDİ" yazsın. Bunu yapamıyorum.
Kod:
Private Sub Komut_sorgula_Click()
Me.F_GARANTİKONTROL.Requery
'Formdaki stok ve seri numaralarını Faranti formu ile karşılaştırsın aynısı var ise
'Faranti formdaki garanti bitiş tarihi formdaki gönderi tarihinden küçükse
' "GARANTİ BİTTİ" yazsın =>> sıkıntısız çalışıyor.
If Me.F_GARANTİKONTROL.Form.RecordsetClone.RecordCount > 0 And [F_GARANTİKONTROL].[Form]![GarantiBitişi] < Me.E8 Then
Me.Garanti = "GARANTİ BİTTİ"
'Formdaki stok ve seri numaralarını Faranti formu ile karşılaştırsın aynısı var ise
'Faranti formdaki garanti bitiş tarihi formdaki gönderi tarihinden büyükse
' "GARANTİ DEVAM EDİYOR" yazsın =>> sıkıntısız çalışıyor.
ElseIf Me.F_GARANTİKONTROL.Form.RecordsetClone.RecordCount > 0 And [F_GARANTİKONTROL].[Form]![GarantiBitişi] > Me.E8 Then
Me.Garanti = "GARANTİ DEVAM EDİYOR"
Else
End If
'Formdaki stok ve seri numaralarını Faranti formu ile karşılaştırsın aynısı yok ise
' "DAHA ÖNCE GELMEDİ" yazsın =>> çalışmıyor.
If Me.F_GARANTİKONTROL.Form.RecordsetClone.RecordCount < 0 Then
Me.Garanti = "DAHA ÖNCE GELMEDİ"
End If
End Sub