السلام عليكم
ضع هذا الكود ضمن اكواد الفورم المسمى Add_Edit_Del_Record
حيث تم اعتبار الخانة المسماه Arrival هي تاريخ الدول و Departure هي تاريخ المغادرة
Private Sub TextBox5_Change()
TextBox9.Value = Val(Format(TextBox5.Value, 0)) - Val(Format(TextBox4.Value, 0)) + 1
End Sub