Kod:
Sub TeslimKontrol()
If Me.teslimok.Value = "-1" Then Me.Metin173.BackColor = vbGreen Else Me.Metin173.BackColor = vbRed
If Me.teslimok.Value = "-1" Then Me.Metin173 = "Teslim Edildi" Else Me.Metin173 = "Teslim Edilmedi"
End Sub
Sanırım ilk istediğiniz hale geldi...
Şunu eklemeyi unuttum:
Kod:
Private Sub Onay57_Click()
If 1 Then [teslimtarihi] = Now
If 0 Then [teslimtarihi] = ""
Call TeslimKontrol
End Sub