اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by أبو آدم,

الردود الموصى بها

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

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

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

عدد الأسئلة.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

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

..........

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information