tbvtac.MoveFirst
[txt1] = " " & " " & " " & " " & " " & " " & " " & " " & tbvtac!noRom & " " & _
 " " & " " & " " & " " & tbvtac!namcost & " " & " " & " " & tbvtac!tel & _
 " " & " " & " " & tbvtac!detaMO
 
If tbvtac!halat = 0 Then
       [txt1].BackColor = RGB(0, 255, 0)
       [asd].BackColor = RGB(0, 255, 0)
ElseIf tbvtac!halat = 3 Then
        [txt1].BackColor = 15395328
        [asd].BackColor = 15395328
ElseIf tbvtac!halat = 1 Then
        [txt1].BackColor = RGB(255, 0, 0)
        [asd].BackColor = RGB(255, 255, 0)
        If tbvtac!detaMO = Date Then
            [txt1].ForeColor = 16777215  'لون الخط أبيض
ElseIf tbvtac!amoResp >= tbvtac!presDay * tbvtac!totodays Then
            [asd].BackColor = RGB(255, 0, 0)
ElseIf tbvtac!amoResp < tbvtac!presDay * tbvtac!totodays Then
            [txt1].BackColor = 0
            
        Else

        End If
ElseIf tbvtac!halat = 2 Then
        [txt1].BackColor = RGB(255, 255, 0)
        [asd].BackColor = RGB(255, 255, 0)

   
End If