(24/05/2019, 11:44)haliliyas yazdı: o zaman sadece aktif pasif alanını "requery" yapmanız daha uygun olmaz mı?
ayrıca @ozanakkaya hocamın belirttiği gibi gerekli alanı nasıl halletmeyi düşünüyorsunuz?
oraları @ozanakkaya hocamın dediği bi i kaydet e ekleme yaptım.
Geçerli olduğunda da
siz hocalarımın yardımı ile şu kodları yazmıştık
Private Sub Form_Current()
If Calisiyor_Ayrildi = "Ayrılmış" Then
Me.Aktif_Pasif = "Ayrılmış"
ElseIf Calisiyor_Ayrildi = "Kapalı" Then
Me.Aktif_Pasif = "Kapalı"
Me.Vize_Baslangic_Trh = ""
Me.Vize_Bitis_Trh = ""
Me.Metin40.BackColor = vbRed
Exit Sub
ElseIf Me.Personel_Ozel_Durumu <> "" Then Me.Aktif_Pasif = "Aktif"
Me.Metin40.BackColor = vbGreen
ElseIf Me.Vize_Bitis_Trh < Date Then Me.Aktif_Pasif = "Pasif"
Me.Metin40.BackColor = vbRed
ElseIf Me.Personel_Ozel_Durumu = "" Or Me.Vize_Bitis_Trh < Date Then Me.Aktif_Pasif = "Pasif"
Me.Metin40.BackColor = vbRed
End If
Form_Frm_Usta_Bilgileri.Form.Requery
End Sub
açılır kutulardaki verilere göre aktif pasif yazması için güncelleştirme sonrasında sayfayı yenilerse o kodlar aktif olur ve yazar diy düşünmüştüm. Ama istediğim olmuyor.