kaser906

تفضل ::بالتوفيق:: Test 500100k906.rar

لم تتم الافادة ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة المطلوب غير واضح اوضح الطلب لعلنا نستطيع المساعده 115 سيكون من مربع التحرير والسرد طيب حقل المرحلة من أين سيتم اختياره ؟ ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة السؤال غير واضح اوضح سؤالك ماذا تقصد بدمج الجداول ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة تفضل ::بالتوفيق:: برنامج k906المعدل.rar

جربت ولم تظهر هذه الرسالة تأكد ان قاعدة البانات ليست مفتوحه مرتين ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة تفضل Private Sub أمر12_GotFocus() If (IsNull(Me.txt14)) Then MsgBox "اختر من القائمة أولا", 48, "تنبيه" Me.List2.SetFocus End If End Sub ::بالتوفيق:: إيقاف زر الأمر k906عندما.rar

تفضل الافضل ان يكون عامل الفرز حقل رقمي ما أمكن تم تغير عامل الفرز الى رقم المشترك بدل اسمه Dim stDocName As String stLinkCriteria = "[number]=" & Me![number] stDocName = "record1" DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria ::بالتوفيق:: almaherK906.rar

متى تظهر لديك الرسالة ::بالتوفيق::

اخ حسين هل تأكدت من كل الخطوات التي ذكرتها لك هل قمت بعمل فورمات لكامل القرص أم فقط البارتشن :C هل تأكدت من تحويل الملف فعليا الى accde ام فقط يتم تحويل لاحقة الملف اذا كنت متأكد من تحويل الملف فعلياً فأني اعتقد انه الجهاز يوجد عليه فيروس يقوم بأخفاء أو حذف الملف الاصلي وعمل ملف اخر بنفس الاسم لانه عند تحويل الملف الى mde او accde فلا يمكن بأي حال من الاحوال التعديل في محرر الاكواد سوااء بالحذف أو الاضافة يمكن فقط لبرنامج الحماية ايقاف التعليمات البرمجية ( الاكواد ) من العمل اخيرا لايوجد شيئ اسمه نفس الاوفيس يوجد اصدار ونسخه فمثلا اصدار 2007 لو بحثت على كم نسخه ستحصل عند بحثك وحسب تجربتي الشخصية نسخة 2007 كثيرة المشاكل ولم اتخلص من المشاكل الا عندما تحولت الى 2010 ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة تفضل ::بالتوفيق:: exmple1K906.rar

لو وضعت مرفق ليتم التطبيق كان افضل عموما جرب هذا الكود Dim stDocName As String stLinkCriteria = "[User]=" & Me![User] stDocName = "ReCard" DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria ::بالتوفيق::

على الرحب والسعة أخي الكريم ::بالتوفيق::

عذرا اخ محمد نسيت اضافة AllowAdditions = False Private Sub Next_Click() On Error GoTo Err_Next_Click AllowAdditions = False DoCmd.GoToRecord , , acNext Exit_Next_Click: Exit Sub Err_Next_Click: MsgBox "وصلت للسجل الأخير لايوجد سجل تالي للذهاب اليه !!!", 48, "تنبيه !" Resume Exit_Next_Click End Sub

استخدم هذا الكود Private Sub Next_Click() On Error GoTo Err_Next_Click AllowAdditions = False DoCmd.GoToRecord , , acNext Exit_Next_Click: Exit Sub Err_Next_Click: MsgBox "هذا هو السجل الأخير لايوجد سجل تالي للذهاب إليه!" Resume Exit_Next_Click End Sub ::بالتوفق::

السلام عليكم ورحمة الله وبركاته مساهمة مع الاساتذة يمكننا ايضا ايقاف زر االتالي من الذهاب الى سجل جديد باستخدام هذا الكود طبعا ف حال انشاء زر أمر وليس عن طريق ازرار تنقل شريط النموذج Private Sub Next_Click() On Error GoTo Err_Next_Click DoCmd.GoToRecord , , acNext Exit_Next_Click: Exit Sub Err_Next_Click: MsgBox "هذا هو السجل الاخير لايوجد سجل تالي للذهاب إليه " Resume Exit_Next_Click End Sub

أخي الكريم كانت اجابتي علر قدر سؤالك الاول الان طلبك اختلف تماما ::بالتوفق::

وعليكم السلام ورحمة الله وبركاتة استخدم دالة if Not(isNull(me.text1))then me.text2.SetFocus End if ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة عذرا أخي الكريم يمكن لصاحب الملف اذا سمح يحقق لك ما تريد ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة الطلب الاول انظر المرفق الطلب الثاني مجرد انك تنتقل وتغير البيانات راح يحفظها كما هي ::بالتوفيق:: pharmacy system_K906.rar

سؤالك غير واضح تماماً عموم الفكرة تكون عن طريق العلاقات أو عن طريق استعلامات الالحاق ::بالتوفيق::

ماهو الخطأ

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

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