عضو جديد ويطلب المساعدة من الخبراء

ولا رد؟ !! :blink:

:unsure:

يعني ما في أحد يبي يساعدني؟

أخي الكريم /

مش المشكلة انة ما حد بيرد وانما السوال أعتقد انة غير واضح ،،،

فالذي أعرفة انك تريد ان تجعل البيانات كلها في تقرير صح ولا انا غلطان ،

مع خالص التحيات ،،،

عبدالمانع

بالضبط أستاذي عبدالمانع .. واتمنى ان لا تبخل علي وشكرا على مرورك

تفضل أخي الكريم /

عملنا لك النموذج الرئيسي وغيرنا في الجداول وعملنا تقرير

يعرض لك بيانات الطلاب حسب الرقم اي لايمكن عرض الكل

يعرض السجل الحالي فقط ، عسى ان يكون حسب الطلب ’’’

* ( وأهلا وسهلا بك في قسم الاكسيس . . .)

مع خالص التحيات ،،،

عبدالمانع

برنامج للكليات العسكرية.rar

بالضبط يا أستاذ عبدالمانع هو هو المطلوب وجزاك الله ألف خير

بصراحة هذا الشغل ولا بلاش ..

بس في بعض المشاكل واجهتني مثل عند ادخال جنسية معنية في ال Forms

تختلف الجنسية في ال Tabels .. وأيضا مشكلة في الرقم الشخصي في ال Reports

يظهر بشكل معادلة !

تفضل اخي الفاضل /

الكود التالي يحل لك المشكلة ...

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

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

ولكن إذا احتجت أن تضيف قيمة غير موجود فيه فيمكنك عمل ذلك بهذه الطريقة :-

ضع الكود التالي في حدث ( عند عدم الوجود في القائمة ) الخاص بمربع التحرير والسرد

طبعا الكود من برنامج الاستاذ الكريم / فهد الدوسري

أسم البرنامج / برنامج فهد الدوسري - موجود في المكتبة أبحث عنة مفيد حيفيدك أكثر في البرمجة ...

الكود هو : -

اقتباس

' لاحظ أن هناك متغيرين للدالة هما

' NewData وهذه يمكنك استخدامها لإضافة القيمة المدخلة إلى جدول القيم

' Response  ويحدد الموقف من القيمة الجديدة

Dim strsql As String, x As Integer

x = MsgBox("القيمة المدخلة غير موجودة سابقاً ... هل ترغب في إضافتها ؟", vbYesNo)

If x = vbYes Then

    strsql = "Insert Into tbxTraining ([Training]) values ('" & NewData & "')"

    ' tbxTraining اسم الجدول الذي هو مصدر مربع التحرير والسر

    ' TRAINING اسم الحقل في ذلك الجدول والذي ستضاف القيمة إليه

   

    MsgBox "تم أضافة القيمة", vbOKOnly, "تنبيه"

    CurrentDb.Execute strsql

    '  الأمر التالي يحدد الموقف من القيمة الجديدة  وهو هنا إضافتها

    Response = acDataErrAdded

Else

    MsgBox "تم تجاهل القيمة", vbOKOnly, "تنبيه"

    ' تجاهل القيمة الجديدة والاستمرار

    Response = acDataErrContinue

End If

اما بخصوص الكود الرقم السري هو الرقم (1)

هذا الكود اليوم شفتة ثم نسختة والصقته في البرنامج من طرف الاستاذ الكريم بيسكرا

مع خالص التحيات ،،،

عبدالمانع

مشكور استاذ عبدالمانع وماقصر بصراحة

وأدعيلك بالتوفيق دنيا وآخرة

وأتمنى قبولي تلميذ عندك ..

واذا في دورات في المنتدى اتمنى أخباري ..

وجزاك الله 100.000.000 خير

حياك الله أخي الكريم ’

أهلا وسهلا بك في قسم الاكسيس

على الرحب و السعة ’’’

مع خالص التحيات ،،،

عبدالمانع