صالح حمادي

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

barcodex.rar

يمكن إضافة أكثر من مفتاح واحد في الجدول لاحظ هذه الصورة:

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

السلام عليكم في نقاش مع الأستاذ @رمهان في أحد المواضيع اقترح عليا فتح موضوع حول إغلاق البرامج المتصلة بالشبكة من أجل النقاش و إثراء الموضوع. و لقد قمت بهذا الصدد بتصميم مثال يجعل مدير الشبكة يتحكم في إغلاق جميع البرامج (الأجهزة) المتصلة عبر الشبكة. شرح فكرة البرنامج: قمت بإضافة جدول لقاعدة البيانات اسمه tbl1 و وضعت به حقل اسمه code_edit نوعه رقمي تعتمد الفكرة على إعطاء هذا الحقل قيمتين 0 أو 1 في نسخة المستخدم هناك نموذج الواجهة frm يتحسس لقيمة الحقل code_edit إذا وجدها 1 يفتح نموذج آخر يبدأ بالعد التنازلي من 10 لإغلاق القاعدة و عند فتح القاعدة مرة ثانية يظهر نموذج العد التنازلي مرة أخرى لأن قيمة الحقل 1 يتم تغيير قيمة الحقل من خلال زري أمر في نسخة المدير (إغلاق الأجهزة المتصلة و منع الإتصال ، السماح بالإتصال) في المرفق ثلاثة ملفات نسخة المدير و نسخة مستخدم و db بعد تحميل المرفق قم بتحديث إرتباط نسخة المدير و نسخة مستخدم مع القاعدة db افتح الملفين نسخة المدير و نسخة مستخدم و اضغط على زر إغلاق الأجهزة المتصلة و منع الإتصال في نسخة المدير سوف تلاحظ ظهور نموذج العد التنازلي في نسخة المستخدم و إن كانت لك شبكة داخلية تستطيع نقل نسخة المستخدم لجهاز آخر و تحديث الإرتباط و تجربة البرنامج. eloued.rar

تفضل هذا المثال: programme.rar

السلام عليكم جرب هذا التعديل Database4.rar

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

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

أخي صلاح مرحبا بك في المنتدى إن كان لديك أي سؤال فقم بفتح موضوع جديد و سوف تجد من يجيبك إن شاء الله

بإستخدام like تستطيع تطبيق نفس طريقة النصوص مع الأرقام. و تستطيع حذف جميع علامات التنصيص و النجمة مع الأرقام فقط . عليك بتجربنتها جميعها لكي تلاحظ الفرق بنفسك

لاحظ معي جيدا هذا المثال فرضا لدينا جدول اسمه tbl1 و به حقل اسمه adress و نريد حساب عدد سجلات هذا الجدول بالإعتماد على قيم الحقل adress و وضع النتيجة في t الحالة الأولى (المطابقة التامة لقيمة الحقل): Me.t = DCount("*", "tbl1", "[adress] like '" & Me.g & "'") الثانية (ينتهي بــ): Me.t = DCount("*", "tbl1", "[adress] like '*" & Me.g & "'") الثالثة(يتضمن): Me.t = DCount("*", "tbl1", "[adress] like '*" & Me.g & "*'") الرابعة(يبدأ بــ): Me.t = DCount("*", "tbl1", "[adress] like '" & Me.g & "*'") مع العلم أن me.g هو مربع نص نضع فيه القيمة المراد البحث عنها.

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

جزاك الله خيرا أستاذنا الغالي نعم type تعود برقم يدل على نوع معين و شكرا أستاذ رمهان على إضافة الدالة TypeName

هذا مثال لاستخراج اسم الجدول و حقوله ونوع كل حقل : Dim dbs, tdf As TableDef, name_field As Field Dim i As Integer Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.Name, 4) <> "msys" Then 'استخراج اسماء الحقول For Each name_field In tdf.Fields MsgBox tdf.Name & "=" & name_field.Name & " - " & name_field.Type & "...." & name_field.Size Next name_field End If Next tdf Set dbs = Nothing

ممتاز أستاذ رمهان الكود يعمل بشكل جيد شكرا جزيلا

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

السلام عليكم نستطيع من خلال الكود استخراج أسماء الجداول و العلاقات الموجود بينها و حتى حقول الربط و أيضا نستطيع استخراج أسماء الحقول و نوعها و طولها. السؤال: ما هي طريقة إستخراج المفتاح الأساسي لجدول.

العفو أخي مرحبا بك في أي وقت

لم يكن هناك أي خطأ في الكود بل الخطأ في البرمجة أنت وضعت الكود : [Forms]![مبيعات]![الكمية المتوفرة] = [Forms]![مبيعات]![الكمية المتوفرة] - [Forms]![مبيعات]![t2] و هذا الكود معناه أنقص العدد الموجود في مربع النص t2 من الكمية المتوفرة مثلا: الكمية المتوفرة 100 و الكمية المباعة 10 عند تعديلها إلى 20 يقوم الكود بالعملية التالية : 100-20=80 و هذا خطأ يجب إضافة الكمية القديمة إلى الكمية المتوفرة ثم نقوم بالعملية. لذلك وضعت متغير x_qeuntitie يأخذ قيمة الكمية المباعة قبل التعديل عليها و عدلت على الكود كالتالي: [Forms]![مبيعات]![الكمية المتوفرة] = [Forms]![مبيعات]![الكمية المتوفرة] + x_qeuntitie - [Forms]![مبيعات]![t2]

السلام عليكم أخي الكريم لا تستعجل الإجابة لم يمضي على كتابتك للمنشور إلا 7 دقائق فكل الأعضاء متبروع بما يسمح لهم وقتهم للمساعدة فمن المستحسن عدم الإثقال عليهم كثيرا و إن لم تظهر لك أي إجابة يمكنك استعجال الرد بكلمة للرفع هذه هي قوانين المنتدى أخي الكريم. تفضل هذا التعديل على ملفك: db1.rar

تفضل الكود خلف زر الأمر يصبح بهذا الشكل: Dim reportName As String Dim fileName As String Dim criteria As String fileName = CurrentProject.Path & "\نتيجة البحث" If Len(Dir(fileName, vbDirectory)) = 0 Then MkDir (fileName) ' إنشاء مجلد بالمسار المحدد End If reportName = "ResultPrint" fileName = fileName & "\" & reportName & ".pdf" 'criteria = "SomeTextField = 'ABC' AND SomeNumberField = 123" DoCmd.OpenReport reportName, acViewPreview, , criteria, acHidden DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName DoCmd.Close acReport, reportName, acSaveNo

السلام عليكم تفضل هذا الكود يقوم بإنشاء المجلد إن لم يجده Dim curPath As String curPath = CurrentProject.Path & "\نتيجة البحث" If Len(Dir(curPath, vbDirectory)) = 0 Then MkDir (curPath) ' إنشاء مجلد بالمسار المحدد End If

شكرا جزيلا أخي @SEMO.Pa3x فالأستاذ @AlwaZeeR قال كائن OLE و لم يقل مرفقات لذلك أردت الاستفسار عن طريقة استدعائه للخط هل هي بالطريقة العادية أم هناك كود برمجي يستعمله

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