19/01/2009, 19:54
Sayın sledgeab Hocam, sizin koda küçük bi ekleme de ben yapayım dedim. Sanırım böyle daha iyi oluyor:
Sayın coskun_cakal, kodunuzu buna göre değiştirip bi de bu şekilde deneyin.
Sanırım ilk istediğiniz hale geldi...
Şunu eklemeyi unuttum:
Sayın sledgeab'ın örneğinin üzerine bunları da eklerseniz anında değişecektir...
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 SubSayın coskun_cakal, kodunuzu buna göre değiştirip bi de bu şekilde deneyin.
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 SubSayın sledgeab'ın örneğinin üzerine bunları da eklerseniz anında değişecektir...