السلام عليكم يا إخوان
عندي مشكلة بسيطة جدا بالنسبة لكم إن شاء الله
وهي أن عندي قاعدة بيانات فيها عدة نماذج وفي كل نموذج زر خاص لفتح نموذج آخر هذا الزر عليه دالة شرطية
ساعدني أحدهم ووضع لي الكود على نموذج واحد فقط واسم هذا النموذج (( الناتج النهائي )) وعمل الكود بشكل رائع جدا
ولما أردت نقله إلى نموذج آخر عمل الكود بشكل جيد إلا عند فتح النموذج الآخر فهو لايفتح إلى نموذج الناتج النهائي ولم أعرف كيف أغيره لكي يفتح النموذج الذي أختاره
حقيقة معرفتي بأكواد الأكسس ضعيفة للغاية
الكود هو كالتالي :
Private Sub q39_Click()
If ((Forms![نموذج إجابات المجال الأول].[zx] < Me![nu]) And (Forms![نموذج إجابات المجال الأول].[zx] > 0)) Then
MsgBox "ÚäÏ ÇáÇäÊåÇÁ ãä ÇáÅÌÇÈÉ Úáì ÌãíÚ ÇáÃÓÆáÉ ÓæÝ ÊÊãßä ãä ÇáÍÕæá Úáí ÇáäÊíÌÉ ... ÇáÑÌÇÁ ÇßãÇá ÇÏÎÇá ÇáÈíÇäÇÊ ", 64, "ÊäÈíÜÜÜÜÜÜå"
Else
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(1575) & ChrW(1604) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(1580) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1606) & ChrW(1607) & ChrW(1575) & ChrW(1574) & ChrW(1610)
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
وقد قمت بإرفاق نموذج مختصر من قاعدة البيانات لأن حجمها أكبر من المرفقات عندي وهي كافية بالمطلوب إن شاء الله
وأتمنى شرح طريقة التغيير حتى أستطيع تطبيقها على بقية النماذج ولكم جزيل الشكر
وأعتذر عن اللخبطة في الكود لأني لا أعرف كيفية إدراجه في المنتدى وهو في الحقيقة لا يزيد عن خمسة أسطر صغيرة