sandanet

اخي الكريم ارفق مثال لكي تتضح الصورة

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

اخي الكريم ابو زاهر لعمل ما تريد قم باضافة الكود التالي الى وحدة نمطية جديدة وسميها runsound مثلاً Option Explicit Option Compare Database Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Dim r As Long Public Function Mysound() On Error Resume Next r = sndplaysound(Application.CodeProject.Path & "\schoolbell.wav", &H1) ' اذا كان مسار الملف الصوتي خارج مجلد الصوتيات 'r = sndplaysound(Application.CodeProject.Path & "\wavs\" & "schoolbell.wav", &H2) End Function ثم قم بوضع الكود التالي مكان الكود الذي اشرت إليه في السؤال If DCount("[Rajmsanf]", "Alsnaf", "[Rajmsanf]=[forms]![اضافه صنف]![Rajmsanf]") >= 1 Then MsgBox " هذا الاسم موجود باسم " & DLookup("[Sanf]", "Alsnaf", "[Rajmsanf] = Forms![اضافه صنف]![Rajmsanf]") DoCmd.CancelEvent Mysound Me.Undo End If وهذا ملف صوت جرس ضعه بجوار قاعدة البيانات لكي يتم استدعائه كما اشار الى ذلك الاستاذ ابو خليل أما اذا اردت اصدار صوت فقط عند ظهور الرسالة يعني صوت من الاكسس فقط فاترك ماسبق من اكواد وضع الكود التالي Beep قبل Me.undo تحياتي schoolbell.zip

بعد اذن استاذي القدير ابا جودي اخي الفاضل ابو عبير قم بجعل الحقل نصي لكن بدون تنسيق وضع قناع الادخال 9999/9999 وان شاء الله امورك تمام

مرحبتين فيك في اي وقت

تفضل example.mdb

اشكرك استاذي العزيز ابا جودي على ذلك الرابط الذي يناقش تلك المسألة .. قمت بالاطلاع عليه وقد استوقفتني نقطة تم ذكرها وهي احتمال تكون الحل الاقرب وهي I then accidently happened to notice that in the original 2010 db for both apps, under Options/Current Database, there was a check box stating "Allow Layout View" which was checked ON, and thought that "IF" it was layout view forms that had caused my original problem, maybe I would turn this OFF and thus NEVER get any newly created form created IN Layout View (i.e. with all the added cells that 2010 places onto the form). I checked OFF this option in BOTH apps, and then (and maybe THIS is the GOOD NEWS for others), .... without ANY changes whatsoever to the larger db that had had the "unrecognised" problem, I then opened it up in 2007 and IT WORKED PERFECTLY !!!! Thus, ONE "Option" (i.e. "Allow Layout View" being checked OFF fixed my problem in an instant ..... To double-check, I went to my laptop where the larger db was having the same problem, ran the app in 2010 (worked OK), ran it in 2007 (Failed), went back to 2010 and turned that option OFF, went back to 2007 and ran it and (again) it worked fine (with NO OTHER change having been made. ارجو منك ارسال نسخة Accdb بعد تجربة ماسبق لكي نتاكد من الحل

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

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

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

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

تفضل example.mdb

هل من الممكن ارفاق نسخة تعمل على اكسس 2007 لو تكرمتوا

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

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

اخي ابو زاهر اعتقد انك لاتحتاج الى عمل قناع الادخال ففي التعديل الاخير يقبل الادخال كيفما وجد

وزيادة بسيطة على كود الاستاذ شفان .. ضع Form_Forme_InsertAndEdit.Masder_record.Value = "Tab_2" في كود الطريقة الثانية في الفورم الثاني بعد كود Form_Forme_InsertAndEdit.RecordSource = "SELECT Tab_2.*, Tab_2.id FROM Tab_2 WHERE (((Tab_2.id)=[Forms]![f_2]![id]));" لكي يتم فتح النموذج Forme_InsertAndEdit وفيه مصدر السجلات = Tab_2 ^_* تحياتي

تفضل 2الباكورد.zip

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

بعد اذن الاستاذ الكبير شفان اخي زاهر اجعل حقل رقم الصنف "حقل نصي" في الجدول

تفضل .. بدون استخدام دالو dlookup examble.accdb

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

ارفق قاعدة البيانات

الله يسلمك ويبارك فيك .. اخي يوسف