(تمت الاجابة) كيف يتم إضافة عدد سجلات مرقمة بناء على رقم مدخل مسبقا

[حامل المسك]

السلالام عليكم

وفقكم الله أريد عند وضع عدد الأسئلة في النموذج الأساسي أن يرقم في النموذج الفرعي الأسئلة من 1 حتى الرقم المطلوب ..

فمثلا إذا كان عدد الأسئلة 5 يقوم البرنامج تلقائيا بوضع أرقم من 1 إلى خمسة في خانة رقم السؤال في النموذج الفرعي

عدد الأسئلة.rar

[Bluemind]

وعليكم السلام

جرب المرفق و قم باضافه عدد الاسئله في المربع qus وشاهد النتيجه بعد الانتقال الى كائن اخر في النموذج

عدد الأسئلة.rar

[حامل المسك]

بيض الله وجهك ووفقك لكل خير

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

إذا وضعت عدد الأسئلة مثلا خسمة يرقم من واحد إلى خمسة لكن إذا عدلت رقم خمسة مثلا إلى ثلاثة أجده يكمل على السابق بترتيب جديد

مثلا

1

2

3

4

5

1

2

3

وأريد أنه في حال تعديل عدد الأسئلة أن يحذف السابق ويستبدله بالمحدث

والله يرعاكم

[حامل المسك]

للرفع وفقكم الله

[أبو آدم]

أخي الحبيب

إستكمالاً لما تفضل به أخي Bluemind

وتحقيقاً لما في استطرادك بالطلب الأخير (إن كنت قد أحسنت الفهم عنك) ، يعدل الكود كما يلي:

Private Sub txtqus_AfterUpdate()

Dim intQNo As Integer

Dim strSQL2 As String

Dim intStuNo As Integer

Dim intQf As Integer

Dim LResponse As Integer

Dim strSQL As String

On Error Resume Next

intQNo = Forms!stuInfoo!txtqus.Value

intStuNo = Forms!stuInfoo!no.Value

intQf = DLookup("[nos]", "degree", "[nos] = " & Forms![stuInfoo]![no])


If intQf > 0 Then

LResponse = MsgBox("مسجل للطالب سجلات سابقة ، هل ترغب بإستبدالها", vbYesNo, "Continue")

If LResponse = vbYes Then

strSQL = "DELETE FROM [degree] " & _

"WHERE [nos] = " & Forms![stuInfoo]![no]

CurrentDb.Execute strSQL, dbFailOnError

Forms!stuInfoo!Subform_degree1.Form.Requery

Else

End If

End If

For i = 1 To intQNo

    strSQL2 = "INSERT INTO degree (nos,noQ) Values(" & Forms!stuInfoo!no & ", " & i & ")"

    CurrentDb.Execute strSQL2, dbFailOnError

    Next i

Forms!stuInfoo!Subform_degree1.Form.Requery


End Sub

والله من وراء القصد

..........

[حامل المسك]

أخي Bluemind

أخي nart lebzo

شكر الله لكم وأعانكم ووفقكم نعم حصل المقصود

أسأل الله أن يجعل ذلك في ميزان حسناتكم

[أبو آدم]

الحمدلله الذي بفضله تقضى الحاجات

(تمت الاجابة)