[asto]

لا ادري بخصوص الماسكد بوكس لاني رايت تكست بوكس و بالنسبة للكود هناك ما يتعلق بضغط الكوماند امسحه و بدله بالكود

---

بالنسبة الى 3 تحتاج قاعدة بيانات

حيث تضيف الى الفورم لود اوامر قراءة سجل من قاعدة البيانات و اسناده الى التكست 1

و هنا مشكلة متى تريد ان تتم القراءة هل عند فتح البرنامج او مرة مثلا كل 3 ساعات ........الخ

و هذا المثال بعد تعديله

كود :

Private Sub Command1_Click()
Dim date1 As Date
Dim date2 As Date
date1 = Format(Text1, "yyyy/mm/dd hh:mm:ss")
Text2.Text = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
date2 = Format(Text2, "yyyy/mm/dd hh:mm:ss")
If date1 < date2 Then
Text3.Text = "ÍãÇÑ"
End If
End Sub

Private Sub Form_Load()
Text2.Text = Day(Now) & "/" & Month(Now) & "/" & Year(Now)
End Sub

طبعا انا وضعت شرط معين يؤدي الى اظهار الكلمة فبدل الكلمة ب تكست 1