Private Sub TextBox2_Change()
TextBox1.Value = Format(Now, "dd/mm/yyyy")
If TextBox2 = "" Then
TextBox1.Value = ""
End If
End Sub
Private Sub TextBox1_Enter()
txb = 1
fait
End Sub
Private Sub TextBox8_Change()
TextBox7.Value = Format(Now, "dd/mm/yyyy")
If TextBox8 = "" Then
TextBox7.Value = ""
End If
End Sub
Private Sub TextBox7_Enter()
txb = 1
fait
End Sub
Private Sub TextBox14_Change()
TextBox13.Value = Format(Now, "dd/mm/yyyy")
If TextBox14 = "" Then
TextBox13.Value = ""
End If
End Sub
Private Sub TextBox13_Enter()
txb = 13
fait
End Sub
Private Sub TextBox20_Change()
TextBox19.Value = Format(Now, "dd/mm/yyyy")
If TextBox20 = "" Then
TextBox19.Value = ""
End If
End Sub
Private Sub TextBox19_Enter()
txb = 19
fait
End Sub
Private Sub TextBox26_Change()
TextBox25.Value = Format(Now, "dd/mm/yyyy")
If TextBox26 = "" Then
TextBox25.Value = ""
End If
End Sub
Private Sub TextBox25_Enter()
txb = 25
fait
End Sub
Private Sub TextBox32_Change()
TextBox31.Value = Format(Now, "dd/mm/yyyy")
If TextBox32 = "" Then
TextBox31.Value = ""
End If
End Sub
Private Sub TextBox31_Enter()
txb = 31
fait
End Sub
Private Sub TextBox38_Change()
TextBox37.Value = Format(Now, "dd/mm/yyyy")
If TextBox38 = "" Then
TextBox37.Value = ""
End If
End Sub
Private Sub TextBox37_Enter()
txb = 37
fait
End Sub
Private Sub TextBox44_Change()
TextBox43.Value = Format(Now, "dd/mm/yyyy")
If TextBox44 = "" Then
TextBox43.Value = ""
End If
End Sub
Private Sub TextBox43_Enter()
txb = 43
fait
End Sub
Private Sub TextBox50_Change()
TextBox49.Value = Format(Now, "dd/mm/yyyy")
If TextBox50 = "" Then
TextBox49.Value = ""
End If
End Sub
Private Sub TextBox49_Enter()
txb = 49
fait
End Sub
Private Sub TextBox56_Change()
TextBox55.Value = Format(Now, "dd/mm/yyyy")
If TextBox56 = "" Then
TextBox55.Value = ""
End If
End Sub
Private Sub TextBox55_Enter()
txb = 55
fait
End Sub
Private Sub TextBox62_Change()
TextBox61.Value = Format(Now, "dd/mm/yyyy")
If TextBox62 = "" Then
TextBox61.Value = ""
End If
End Sub
Private Sub TextBox61_Enter()
txb = 61
fait
End Sub
Private Sub TextBox68_Change()
TextBox67.Value = Format(Now, "dd/mm/yyyy")
If TextBox68 = "" Then
TextBox67.Value = ""
End If
End Sub
Private Sub TextBox67_Enter()
txb = 67
fait
End Sub
Private Sub TextBox74_Change()
TextBox73.Value = Format(Now, "dd/mm/yyyy")
If TextBox74 = "" Then
TextBox73.Value = ""
End If
End Sub
Private Sub TextBox73_Enter()
txb = 73
fait
End Sub
Private Sub TextBox80_Change()
TextBox79.Value = Format(Now, "dd/mm/yyyy")
If TextBox80 = "" Then
TextBox79.Value = ""
End If
End Sub
Private Sub TextBox79_Enter()
txb = 79
fait
End Sub
Private Sub TextBox86_Change()
TextBox85.Value = Format(Now, "dd/mm/yyyy")
If TextBox86 = "" Then
TextBox85.Value = ""
End If
End Sub
Private Sub TextBox85_Enter()
txb = 85
fait
End Sub
Private Sub TextBox92_Change()
TextBox91.Value = Format(Now, "dd/mm/yyyy")
If TextBox92 = "" Then
TextBox91.Value = ""
End If
End Sub
Private Sub TextBox91_Enter()
txb = 91
fait
End Sub
Private Sub TextBox98_Change()
TextBox97.Value = Format(Now, "dd/mm/yyyy")
If TextBox98 = "" Then
TextBox97.Value = ""
End If
End Sub
Private Sub TextBox97_Enter()
txb = 97
fait
End Sub
Private Sub TextBox104_Change()
TextBox103.Value = Format(Now, "dd/mm/yyyy")
If TextBox104 = "" Then
TextBox103.Value = ""
End If
End Sub
Private Sub TextBox103_Enter()
txb = 103
fait
End Sub