بو يوسف الراشد

حسننا.... لنبدأ على بركة الله: 1.تصميم جدول الاسئلة الخاصة بالاستبانة ووضع الحقول (السؤال - رقم السؤال) 2.تصميم نموذج الاسئلة والذي مصدره جدول(الأسئلة) ليتم عن طريقة اضافة الاسئلة المطلوبة (ويفيدك كذلك في حال الرغبة في تغيير الاسئلة) 3.في نموذج الاستبانة والذي قمت بتسميته (جدول1) وفي مربع نص (الرقم) يتم وضع كود برمجي في الحدث (بعد التحديث) حيث يحتوى هذا الكود على الاستعلامين: الاستعلام الأول هو استعلام الحاقي يقوم بنقل جميع الاسئلة من جدول (الأسئلة) غلى جدول(جدول2) ونظرا لان القيمة الافتراضية في حقل الرقم في (جدول2) تساوي صفر (يعني بعد اضافة سجلات الاسئلة إلى (جدول2) ستجد أن حقول الرقم التي في الاسئلة المضافة تساوي صفر اذا سيتم استخدام اسعلام تحديث حيث يقوم بجعل القيمة الصفرية تساوي قيمة مربع النص (الرقم) في نموذج (جدول1) اذاً ...... عندما تقوم بادراج الرقم (5) مثلا في مربع نص (الرقم) ... ما الذي سيحدث .. سيقوم البرنامج بنسخ الاسئلة إلى جدول2 وبعدها يحوّل قيمة الصفر في حقل (الرقم) إلى (5) وبالتالي ستجد الأسئلة تسرد في النموذج (جدول1) أرجو ان يكون هذا الشرح وافيا وكافيا ........ :( :(

احنا في خدمة الطيبين ومشكور على الدعاء بالنسبة لجعل زر موافق مع زر الاضافة فلا يمكن عمل ذلك لأنه بعد الضغط على زر إضافة يتطلب منك إضافة بيانات (الجنسية - الاسم - الرقم المدني .... الخ) ومن ثم الضغط على موافق واذا تم فعل زر واحد لاجراء العملية فان ذلك لا يفي بغرضك....

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

تم اضافة زر اضافة للبرنامج يجب عليك الضغط على زر اضافة وثم ادخل البيانات وثم اضغط على موافق db1.rar

معلش لم افهم قصدك ارجو ان توضح اكثر

هذا شيئ طبيعي جدا وانصحك بتعديل برنامج على قاعدة بيانات 2003 حيث ان هذه القاعدة افضل وعليك ان تواكب التطور.......

:d :d تم عمل اللازم وتعديل البيانات..... :d :d التعديل في الملف المرفق حيث مع عجلتي نسيت شيئا وكل بيانات ستسجل على حسب الدولة المحددة ...... يعني لن تتكرر البيانات ولا تنسانا من الدعاء db1.rar

تم التعديل على الملف وتم حل المشكلة بحمد الله تم اضافة نموذج خاص بوضع الاسئلة المطلوبة والتي ستتكرر مع كل اسم عندما تقوم باضافة اسم جديد وبعد ان يتم اضافة الرقم سيتم اضافة الاسئلة التي تم اضافتها في نموذج الاسئلة ارجو التجربة وان تعطينا اخر الاخبار ولا تنسانا من دعائك _______.rar

تم التعديل على الملف أرجو أن تقوم بالتجربة وتعطينا الرد db1.rar

ضع هذا الكود في حدث عند النقر في زر الأمر: DoCmd.Close acReport, "اسم التقرير"

عن طريق الدالة DatePart ومع استخدام الاستعلام تستطيع عرض بيانات الشهر الحالي صنعت لك ملف يوضح لك الحل في الملف المرفق حاول اكتشاف الحل.... :d :d والله الموفق db1.zip

اخوي ^شرقاوي^ أنا عطيتك هذا المثال لأني كنت مهتم بنفس الموضوع لكن نظراً لأني لا أملك البار كود ولم أجربه فإني لآ استطيع في هذه الحالة الإجابة على سؤالك

راجع هذا الرابط وستجد طلبك ان شاء الله http://www.officena.net/ib/index.php?showtopic=4307&hl=

العملية تكمن في صنع شفرة يتم عن طريقها استقبال رقم المنتج عن طريق البار كود وإليك هذا المثال المرفق الذي يحتوي على شفرة البار كود Access_2000_Barcode_Macros.rar

باستخدم الدالة Dcount ومع وضع شرط في حال عدم وجود سجلات تستطيع منع فتح النموذج حيث أن الدالة تقوم بحساب عدد السجلات

نعم ممكن ذلك لكن هذا يحتاج وقت لصنعه...

إذا كنت تستخدم المجموع في النموذج فإنك تدخل في خيارات مربع نص المجموع ثم تذهب عند مصدر عنصر التحكم (ControlSourse) وتكتب الكود التالي على حسب عدد حقولك =[الحقل الأول] + NZ([الحقل الذي يحتوي على قيم فارغة]) ..... وهكذا حيث أن (NZ) هي دالة تحول القيمة الفارغة إلى صفرية

إذا أردت أن تشغل جملة الاستعلام عند النقر على زر فقم بالآتي: في الحدث "عند النقر" الخاص بزر الأمر اكتب الكود التالي: DoCmd.RunSQL "select name,id from personal for id=915" حيث أن DoCmd.RunSQL يمثل امر استدعاء جملة الاستعلام و الجملة التي بين علامة التنصيص " " تمثل جملة الاستعلام التي ترغب باستدعائها

أنا أرفقت لك الملف... قم بمشاهدته...

مثل ما قلت لك لا توجد هناك طريقة لإزالة شريط التعليمات

باستخدام الدالة DateDiff تستطيع عمل ما ترغب به وعن طريق استخدام MsgBox تستطيع إظهار التنبيه والطريقة كالتالي: 1.تفتح خصائص مربع النص الخاص بتاريخ النهاية 2.تذهب عند حدث "بعد التحديث" (AfterApdate) وتكتب الشفرة التالية: If DateDiff("d", [تاريخ النهاية], Date) <= 0 Then MsgBox "انتهى التاريخ" End If حيث أن "Date" تعني تاريخ اليوم وهناك طرق أخرى كثيرة ...... أرفق لك الملف الخاص بطلبك... db1.rar

للأسف.. لا اعتقد انه يمكن إزالة شريط التعليمات من شريط القوائم لكن قام أحد الأعضاء بوضع ملف اكسس يحتوي على شفرة برمجية وظيفتها هي إخفاء إطار ملف الاكسس بما فيه شريط التعليمات يعني يصبح ملف الاكسس الخاص بك كأنه برنامج حقيقي راجع الرابط التالي: http://www.officena.net/ib/index.php?showt...&hl=شاشة+الاكسس وإليك ملف الاكسس في الملف المرفق hideaccesswindow.zip

قمت بفتح الملف لرؤية المشكلة لكني لم أفهم مقصودك بالضبط أرجو أن تشرح المقصود بشكل أفضل

قمت بصنع الاستعلام لك.... أرجو أن تتطلع عليه... موجود في الملف المرفق db1.rar

تفضل الملف المرفق أرجو أن يكون هذا طلبك db1.rar