تعبئة الحقل برمجيا

[co2002co]

في المثال المرفق

عدة حقول

اريد التعبئه تكون متتاليه من دون فراغات

 

مثال

الحقل رقم 1 ممتلأ

الحقل رقم 2 ممتلأ

الحقل رقم 5 ممتلأ

 

اما الحقل رقم 3 و 4 فارغين

 

اريد ان انقل قيمة الحقل رقم 5 من النموذج الى الحقل رقم 3

دون الاضرار بالحتوى الموجود بالجدول

Database1.rar

[jjafferr]

وعليكم السلام اخوي بدر 

 

اولا: 

إلا في حالات قهرية ، لا تستخدم الرقم كإسم اي من كائنات برنامجك (مثل 1 ، 2 ، ...) ، ولا تبدأ إسم اي من الكائنات برقم (مثل 1tbl ، 2MyForm، ...) ،

واقصد بالكائنات هنا ، الجداول والنماذج والتقارير والاستعلامات ، واسماء الحقول .

ثانيا:

تأكد ان تسلسل المرور على الحقول "متسلسل" ، يعني كل حقل يكون تسلسله بعد الحقل السابق:

.

ونعمل كود لقبل تحديث الحقل ، يرى فيه اذا تم ادخال المعلومة الى الحقل الذي يسبقه ، وإلا ، فلا يسمح له بإدخال المعلومة التالية ،

والكود شئ من هذا القبيل:

Private Sub txt_2_BeforeUpdate(Cancel As Integer)

    If Len(Me.txt_1 & "") = 0 Then
        MsgBox "You cannot leave the Fields txt_1 Empty"
        cancel=true
        me.undo
    End If
End Sub

Private Sub txt_3_BeforeUpdate(Cancel As Integer)

    If Len(Me.txt_2 & "") = 0 Then
        MsgBox "You cannot leave the Fields txt_2 Empty"
        cancel=true
        me.undo
    End If
End Sub

Private Sub txt_5_AfterUpdate()

    Me.txt_3 = Me.txt_5
End Sub

.

ولا تجعل التسلسل يتوقف على الحقلين 3 و 4 ،

وبالنسبة للحقل 3 يأخذ قيمته من الحقل 5 ، فيكون بعد تحديث الحقل 5 (كما تشاهده في الكود)

 

جعفر

[zymawy7]

5 دقائق مضت, jjafferr said:

وعليكم السلام اخوي بدر 

 

اولا: 

إلا في حالات قهرية ، لا تستخدم الرقم كإسم اي من كائنات برنامجك (مثل 1 ، 2 ، ...) ، ولا تبدأ إسم اي من الكائنات برقم (مثل 1tbl ، 2MyForm، ...) ،

واقصد بالكائنات هنا ، الجداول والنماذج والتقارير والاستعلامات ، واسماء الحقول .

ثانيا:

تأكد ان تسلسل المرور على الحقول "متسلسل" ، يعني كل حقل يكون تسلسله بعد الحقل السابق:

.

ونعمل كود لقبل تحديث الحقل ، يرى فيه اذا تم ادخال المعلومة الى الحقل الذي يسبقه ، وإلا ، فلا يسمح له بإدخال المعلومة التالية ،

والكود شئ من هذا القبيل:

Private Sub txt_2_BeforeUpdate(Cancel As Integer)

    If Len(Me.txt_1 & "") = 0 Then
        MsgBox "You cannot leave the Fields txt_1 Empty"
        cancel=true
        me.undo
    End If
End Sub

Private Sub txt_3_BeforeUpdate(Cancel As Integer)

    If Len(Me.txt_2 & "") = 0 Then
        MsgBox "You cannot leave the Fields txt_2 Empty"
        cancel=true
        me.undo
    End If
End Sub

Private Sub txt_5_AfterUpdate()

    Me.txt_3 = Me.txt_5
End Sub

.

ولا تجعل التسلسل يتوقف على الحقلين 3 و 4 ،

وبالنسبة للحقل 3 يأخذ قيمته من الحقل 5 ، فيكون بعد تحديث الحقل 5 (كما تشاهده في الكود)

 

جعفر

اخي جعفر ارجو ان تساعدني هنا بارك الله فيك 

 

وارجو ان لا اكون حمل ثقيل عليك 

[jjafferr]

الان, zymawy7 said:

اخي جعفر ارجو ان تساعدني هنا بارك الله فيك 

انا بدأت العمل عليه ، وان شاء الله اخلص اللي في يدي ، وابدا في موضوعك 

 

 

جعفر