أمجد جمالي

الله يعافيك ومن تمك لباب السماء

السلام عليكم ورحمة الله وبركاته تم تعديل المثال وهو يعمل الأن من دون مشاكل والأخطاء هي أخي الكريم RstSrchforDublc.Open "TblDataEmployee", CnnLocal, adOpenStatic اسم الجدول عندك الذي تطلب الإتصال به هو Invoices وليس TblDataEmployee تجنب المسافات بين كلمتين عند تسمية الخانات سواء في الجداول او في النماذج ايضاً تجنب تسمية الحقول باللغة العربية مع تمنياتي لك بالتوفيق اخوك امجد (ابو نادر) هذا هو المثال من بعد التعديل invoices.rar

السلام عليكم حمل الملف الى المنتدى او ارسله الى ايميلي من بعد ضغطه الى ajamali@acts-alsarh.com تحياتي لك

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

ضع هذا الكود في وحدة نمطية جديدة Public Sub DisplayMessageCritical(StrMessage, Optional ConAppName As String) MsgBox StrMessage, vbCritical, ConAppName End Sub راجع المثال المرفق سوف تجد وحدة نمطية بعنوان Messages واتمنى لك التوفيق ابو نادر

السلام عليكم لا استاذي الكريم انا لم اقصد اسم المفتاح انا قصدت اسم ال Value string او binary value تحياتي لك

السلام عليكم ورحمة الله وبركاته الله يعطيك الف عافية يا استاذ عبد الله لكن عند التجربة وجدت بعض الملاحظات 1-ظهور خطأ عند استخدام المدخل ومن بعد البحث والتجريب وجدت الاسم الصحيح للمدخل وهو 2-النقطة الثانية وهي عند إضافة مدخل جديد يأخد اسم (Defult) As defult وسؤالي هو كيفية التحكم بأسماء المدخلات عند إنشائها تحياتي لك ابو نادر

اخي الكريم SABER_EDP راجع هذا الموضوعhttp://www.officena.net/ib/index.php?showtopic=5049 ابو نادر

تفضل اخي الكريم هذا مثال على ذلك ارفقت مثال على كيفية انشاء قوائم Menu بالكود والقوائم الفرعية SubMenu وكيفية التحكم بها Disable & Enable Menu وانصحك اخي الكريم نصيحة و لجميع من يهتمون بالصلاحيات للمستخدمين استفدت منها من خلال عملي في مثالي يوجد اربع مجموعات وهي محاسبة مدخلين بيانات إداريين مشرفين لاتقم ابداً بإعطاء صلاحيات للمستخدمين لأنه ليس من المنطقي توزيعها لكل مستخدم عل حدا قم بإسناد المستخدمين الى تلك المجموعات والذين سيحصلون على صلاحياتهم من خلال صلاحيات المجموعات التي ينتمون اليها جرب صلاحيات هذا المستخدم اسم المستخدم Amjad-Su اسم المستخدم Amjad-Ac اسم المستخدم Amjad-Da كلمة المرور لجميع المستخدمين هي admin تحياتي لك AddMenuExample.zip

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

السلام عليكم اولاً اشكرك اخي الكريم على سرعة تجاوبك مع الاأعضاء ثانياًاخ gs7581 هل افتراضات الاخ خضر الرجبي حلت المشكلة شكراً لكم

ضع هذا الكود في التقرير Private Sub Report_NoData(Cancel As Integer) Dim StrMsg As String, StrTitle As String Dim IntStyle As Integer StrMsg = "There is no data to preview....you must enter some informatiom! 'Error Message'" IntStyle = vbOKOnly StrTitle = "No data or incorrect information" MsgBox StrMsg, IntStyle, StrTitle Cancel = True End Sub ابو نادر

اعتذر عني وعن زملائي للتأخير في الرد عليك ثانياً ياريت ترفق مثال مع نموزج الفاتورة ونموزج الملصق والجدول المخزن فيه البيانات وبإذن الله رح حل مشكلتك تحياتي لك

بارك الله فيك

الطريقة بمختصر المفيد هي إنشاء امر Command يقوم بنسخ القاعدة البيانات الحالية ولصقها في مكان اخر على الهارد او على اي مكان في الشبكة فقط قم بتعديل MyProjectName.MDB الى اسم قاعدة البيانات الحالية لديك وعدل \\MyServerName\DataBase\FrontEndUpdates\Runtime الى مكان النسخة الإحتياطية Location في الشبكة او على الهارد لديك ياشباب يمكن يكون شرحي بالعربي سيء ممكن اشرح الكود بالانجليزي سطر سطر ماعندي مشكلة تحياتي لكم ابو نادر

تسلم ياأخ mzaki على مثالك وسرعة تجاوبك مع الأعضاء وارجو من إدارة المنتدىان تكافئك على ذلك عندي طريقة من اختراعي حلوه وسهلة وحاولت بسطها لليوزر قدر الإمكان تفضل Public Function Ap_AutoBackupToServer() StrAppPath = CurrentProject.path IntWriteToFile = FreeFile Open "" & StrAppPath & "\AutoBackupToServer.cmd" For Output As IntWriteToFile Print #IntWriteToFile, "ECHO OFF"; Tab(1); "TITLE Sending New Version To Server Please Wait..."; Tab(1); Print #IntWriteToFile, "Copy " & CurrentProject.path & "\MyProjectName.MDB"; Spc(1); "\\MyServerName\DataBase\FrontEndUpdates\Runtime /-y" Write #IntWriteToFile, "" & CurrentProject.path & "\MyProjectName.MDB" Print #IntWriteToFile, Tab(1); "ECHO ON New Version Available Now" Print #IntWriteToFile, Tab(1); "EXIT" Close IntWriteToFile StrAppPath = "" & StrAppPath & "\AutoBackupToServer.Cmd" Call Shell(StrAppPath, 1) Application.Quit End Function والشرح لا حقاً ان شاء الله ابو نادر

اهلا وسهلا فيك

تفضل راجع هذا الموضوع للأستاذ ابو هادي تحياتي لك ابو نادر

السلام عليكم تفضل هذا مثال على ذلك حمله من هنا وراجع هذا الموضوع وتقبل تحياتي ابو نادر

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

السلام عليكم ورحمة الله وبركاته لاحظت في الفترة الاخيرة هدوء وركود في المنتدى وينكم يا شباب وينكم لا يكون عيدتوا من الان وانا صرت مشرف الان ها :d وصلاحياتي صارت اكثر من الأول وما بدي ركود ابداً بدي الكل يشتغلو ويتحركوا يالله صحصحوا شوي ارفقت مثال فيه موضوع جديد وماأظن انه احد فكر فيه مع انه بنظري مهم جداً وهو كيفية التعامل مع جميع الكنترول في الفورم واقصد بكلمة الكنترول هي textbox listbox combobox label command button option button checkbox الخ كيف اتعامل مع جميع هذه الكنترول مرة واحده وكود واحد يعني مثلاً اذا حبيت أقوم بحماية بياناتي واقفل جميع هذه الكنترول بكود واحد وبسيط للغاية? كيف اغير الخط لجميع الكنترول مرة وحده؟ كيف اخفي جميع هذه الكنترول مرة وحده؟ كيف استثني بعض هذه الكنتورل ؟ وطرق كثيرة وكل شخص حسب احتيجاته اكتفيت بشرح الطريقة في المثال وفهم الكود عليكم وهو بسيط جداً لا يحتاج عبقرية وانا جاهز لأي مساعدة تحياتي لكم ابو نادر المشرف الجديد :d ForEachControl.zip

كثر الله خيرك على البرنامج من زمان وانا ادور عليه شكراً كثير واحلى هدية سلام ابو نادر

السلام عليكم من بعد اذن الأخ esam شوف هال المثال وقلي رئيك وأظن انه يفي بالمطلوب طريقة بسيطة وما بدا كل هالتعقيد حمل المثال من هنا جرب صلاحيات هذا المستخدم اسم المستخدم admin كلمة المرور admin وجرب صلاحيات هذا المستخدم اسم المستخدم Limited كلمة المرور Limited أما بالنسبة ل SubMenu او القوائم المتفرعة اذا عجبك المثال قلي من شان ابعتلك طريقة ال SubMenu واذا بدك مساعدة انا جاهز ابو نادر

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

تفضل هذا هو الكود Me.Filter = "MyTblNumberName = '" & MyFieldName & "'" Me.FilterOn = True فقط قم بتعديل المسميات تحياتي لك ابو نادر