العدد التلقائي

[Alien]

اولا السلام عليكم ورحمة الله وبركاته

ثانيا كيف يمكن ان نجعل العدد في حقل تلقائي بحيث في حالة ادخل الرقم مثلا 4 عند الانتقال السجل الثاني 5 وهكذا

ثالثا كيف يمكن اضهار التاريخ الجهاز علي النموذج او في حقل

[Alien]

الماذ الا احد يجيب على هذا السوال

[التقني]

وعليكم السلام ورحمة الله

بالنسبة لترقيم الحقل تلقائياً

اطلع على هذا الكود

Private Sub Form_Current()
  If Me.NewRecord Then
    On Error Resume Next
    Me!ID.DefaultValue = Nz(DMax("[Id]", "tblName"), 0) + 1
  End If
End Sub

يتم وضعه في حدث الحالي للنموذج ID هو الحقل الذي يتم فيه الترقيم والكود مقتبس من أحد أمثلة الأخوة الأعضاء فله الشكر الجزيل . بالنسبة لإظهار تاريخ الجهاز قم بوضح السطر التالي في مصدر عنصر التحكم لمربع نص

=Date()

وبالتوفيق

تم تعديل فبراير 23, 2007 بواسطه التقني

[Alien]

شــــــــــــــــــــكرأأأأأأأأأأأأأأأأأ جزك الله الف خير

[Alien]

اولا :قمت بكتابه () date= في مصدر عنصر التحكم لمربع نص,وظهر التاريخ ولاكن في الحقل الم يظهر التاريخ

ثاثبا : ارغب ان يكون التاريخ اليوم في الحقل ولا يتغير في اليوم الثاني وشكراً

[التقني]

حياك الله أخي

بالنسبة للأول :

ضع

=Date()

في القيمة الافتراضية لمربع النص وقم بجعل مصدر عنصر التحكم لهذا المربع بما تريده من حقل في الجدول المرتبط . ثانيا: أما إن كنت تريد القيمة المدخلة مسبقا (وهي التاريخ) أن لا تتغير فيمكنك اشتراط ذلك من خلال قاعدة IF كما بالكود التالي :

Private Sub Form_Current()
 If IsNull(curntTxt) Then
curntTxt.Value = Date
End If
End Sub

حيث curntTxt هو اسم مربع النص

وبالتوفيق