سعيد صواب

حياكم الله اخواني بحثت عن هذا التنسيق ووجدته عند استخدام المعالج ... معالج النماذج انا استخدم اكسس 2007 بالتوفيق جميعا

حياك الله اخي الكريم طبعا لم ادخل في تفاصيل مشروعك .. ولكن هذه اجابك لسؤالك تحديدا ضع هذا الكود تحت زر امر في النموذج table1 DoCmd.RunSQL "delete * from table2 where id =forms!table1!id" DoCmd.RunSQL "delete * from table3 where id =forms!table1!id" Me.Requery بإمكانك تعطيل التحذيرات بأن يصبح شكل الكود كالتالي DoCmd.SetWarnings False DoCmd.RunSQL "delete * from table2 where id =forms!table1!id" DoCmd.RunSQL "delete * from table3 where id =forms!table1!id" DoCmd.SetWarnings True Me.Requery بالتوفيق

البركة فيك استاذ جعفر عموما اخي الكريم استخدم الكود التالي كماهو غير فقط اسم الحقل واسم الجدول بما يناسبها لديك On Error GoTo myerr Me.ab = Nz(DFirst("fld1", "tbl1"), 0) myerr: If Err.Number = 3024 Then MsgBox "عفوا .. لايوجد اتصال بقاعدة البيانات", vbExclamation, "تنبيـــه" End If ab : هو مربع نص يكون في النموذج لديك مثلا. fld1: هو اسم الحقل من داخل الجدول tbl1 : هو اسم الجدول ضع الشرط هذا مثلا ... في حدث الحفظ للبيانات ... بمعنى قبل لا يحفظ البيانات يتأكد ان كان فيه اتصال اولا .. ونرجع لنصيحة الأستاذ جعفر بعدم استخدام الوايرلس .. اذكر جربت الطريقة هذي في مكتب فيه ثلاثة اجهزة لا تبعد عن بعضها المترين .. والشبكة كانت ذات سرعة عالية بين فترة واخرى كان يظهر خطاء بتوقف البرنامج عن العمل ... قمنا بتغييرها الى شبكة محلية عادية. بالتوفيق

عليكم السلام والرحمة حياك الله اخي الكريم بالنسة لإستفسارك الأول ... تفضل هنا مثال وهناك مشاركات ونقاشات كثيرة في المنتدى بإمكانك الإستفادة منها. http://www.officena.net/ib/topic/65647-حفظ-المستندات-من-الماسح-الضوئي-بإعتماد-مسار-الحفظ/ الطريقة الصحيحةهي حفظ المرفقات في مجلدات وحفظ مسار المرفق فقط داخل القاعدة . بالنسبة لإستفسارك الثاني حجم قاعدة بيانات اكسس بحد اقصى 2 قيقا بايت ... ولا ينصح ابدا بالحفظ في قاعدة البيانات ليس بسبب المساحة فقط بل لأسباب اخرى ..منها ان المرفقات احيان تتسبب في تلف القاعدة .. بالتوفيق

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

هنا مثال ... رأيك استاذ جعفر On Error GoTo myerr Me.ab = Nz(DFirst("fld1", "tbl1"), 0) myerr: If Err.Number = 3024 Then MsgBox "عفوا .. لايوجد اتصال بقاعدة البيانات", vbExclamation, "تنبيـــه" End If رقم الخطاء هذا يقول تعذر العثور على قاعدة البيانات هل تراه حل مناسب شكرا

حياك الله اخي الكريم وهنا تعديل .. وكذلك نستشير فيه الاستاذ جعفر لا يمكن استخدام دالة dlookup او dcount لانه لن نكون على اتصال بالقاعدة بالأصل حتى نتحقق من وجود القيمة او عدمها . الا اذا استخدمنا رقم الخطاء ... بالتوفيق

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

وجزاكم الله كل خير اخواني

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

جهد كبير جد استاذ محمد وبالتأكيد احتاج وقت طويل لمجرد التحضير فما بالك بإتمامه ليصبح مشروع متكامل بالتوفيق

حياك الله

جزاك الله خير استاذ جعفر الله يردك سالم غانم

حل مختلف ... جزاك الله خير استاذ ابو خليل

حياك الله اخ مصطفى جوابك يفيد بأنك لم تقراء اي شئ عن الباركود .... تابع هذه الفيديوهات عل بها فائدة https://www.youtube.com/watch?v=qaxMC_D7gYE بالتوفيق

هنا رابط للحديث عن الباركود ... ومن ضمنه مثال للأخ حسين وفي المرفقات اداة الباركود والخطوط ... اقراء التعليمات .... افتح منفذ الأوامر cmd فتح كمسؤول . ونصيحة لك اقراء تعليمات المنتدى ... الإلحاح بطريقتك غير مبرر ويخالف تعليمات المنتدى ..... لو استخدمت خانة البحث المخصص في المنتدى لوجدت الكثير من الأمثلة عن كل ماتبحث عنه ... ا اعتقد بأنك لم تجربها بعد. اتمنى تقبل النصيحة بصدر رحب .... نصيحة أخ لأخوه بالتوفيق Barcode.rar

بالتوفيق يبو محمد ازعجناك بالسؤال هذا ... هههههه بالتوفيق

بعد التعمق في الموضوع ... هنا يمكن طرح اكثر من سؤال هل تقصد بالشبكة... .الشبكة التي عليها القاعدة الخلفية .. ... ام الاتصال بشبكة الإنترنت ... ام الاتصال بقاعدة البيانات نفسها ولو فرضنا انه لايوجد اي منها .... فستظهر رسالة خطاء .. (( خطاء وقت التنفيذ ... التطبيق يجب اغلاقة )) لا اعلم كيف تتم اضافة حقول فارغة !!! التساؤلات قابله للبحث والنقاش بالتوفيق جميعا

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

حياك الله اخي الكريم هنا مثال للتحقق من الاتصال بالإنترنت Private Declare Function InternetGetConnectedState _ Lib "wininet.dll" (ByRef dwflags As Long, _ ByVal dwReserved As Long) As Long Private Const INTERNET_CONNECTION_MODEM As Long = &H1 Private Const INTERNET_CONNECTION_LAN As Long = &H2 Private Const INTERNET_CONNECTION_PROXY As Long = &H4 Private Const INTERNET_CONNECTION_OFFLINE As Long = &H20 Function IsInternetConnected() As Boolean Dim L As Long Dim R As Long R = InternetGetConnectedState(L, 0&) If R = 0 Then IsInternetConnected = False Else If R <= 4 Then IsInternetConnected = True Else IsInternetConnected = False End If End If End Function في المرفق تطبيق للمثال بالتوفيق التحقق من الاتصال بالإنترنت.rar

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

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

وهل نستطيع الحذف من القاعدة بعد النشر ؟ بالتوفيق

حياك الله استاذ محمد ههههه احيان فعلا تكون النماذج والتقارير كثيرة نترك الجواب للسائل الكريم لأي غرض سوف يستخدمها ونورتنا بمرورك بالتوفيق للجميع

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