snmdody

مشكور أخي الكريم على مرورك ، ولكن ليس هذا ما أردته ، وما أريده هو عدم ظهور رسائل خطأ (تكرار أرقام السجلات مثلاً) في بيئة عدة مستخدمين

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

السلام عليكم ورحمة الله وبركاته .. ارجو مساعدتي عن كيفية الإتصال بقاعدة بيانات SQL ولو تكرمتم علي بمثال ،، بارك الله فيكم ،،

أخواني الأعزاء .. مساكم الله بالخير والسرور .. سؤالي هو : ما هي أفضل أداة يمكن أن أستخدمها وذلك لعرض بيانات من جدول معين وفق شرط معين ومن ثم تحرير هذه البيانات وتخزينها في جدول آخر مع إضافة بعض الحقول لها . أنا كنت أجرب دائماً أداة MHSFlex ولكن لعرض البيانات ف…

بارك الله فيك

يعطيك العافية أخي الكريم TareqVB ، نجحت طريقتك ولكن لي إستفسار بسييييييط جداً ، ما فائدة الكود : rpt.run ، حيث عندما اضعه قبل أمر الطباعة تظهر رسالة خطأ بارك الله فيك ،،

بارك الله فيك أخي الكريم TareqVB ، ولكنها إجابة غير ناجحة مع شكري لأخي الكريم الذي تفضل بالمرور على المشاركة بارك الله فيكم جميعاً ،،

شكراً لك أخي الكريم وبارك الله فيك .. ما أريده هو أن تتم طباعة التقرير حسب الشرط الموجود في جملة SQL بحيث يقوم بطباعة التقرير الأول مثلاً للموظف ذو الرقم 2 ، ومن ثم يقوم بطباعة نفس التقرير ولكن للموظف ذو الرقم 3 .. وهكذا حتى ينتهي من عملية الدوران Next ، والكو…

ما اريده ان يتم تكرار طباعة تقرير حسب قيمة الشرط الموجودة في جملة الـ SQL ، وعند إستخدامي للكود الموضح أدناه يتم طباعة التقرير ولكن الخطأ في ان الطباعة تتم على نفس الشرط في جملة الأس كيو ال .. وهذا هو الكود : Dim rpt As Object Dim I As Integer Set rpt = New rp…

السلام عليكم ورحمة الله وبركاته .. وبعد ،، الكود أدناه كنت أستخدم فكرته مع تقارير الاكسس ، وما أريده هو أن يتم تكرار طباعة تقرير اتوماتيكياً حسب الشرط الموجود في جملة التكرار .. فهل هذا ممكن ؟ Dim rpt As Object Dim I As Integer Set rpt = New rptManifestMain '-…

السلام عليكم ورحمة الله وبركاته .. وبعد ،، الكود أدناه كنت أستخدم فكرته مع تقارير الاكسس ، وما أريده هو أن يتم طباعة عدة تقارير اتوماتيكياً حسب جملة التكرار .. فهل هذا ممكن ؟ Dim rpt As Object Dim I As Integer Set rpt = New rptManifestMain '-------------------…

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

Repot.rar السلام عليكم ورحمة الله وبركاته .. وبعد ،، أسعد الله اوقاتكم بكل خير .. الا توجد طريقة ما نستطيع من خلالها إظهار بعض تقاريرنا بالمظهر اللائق وخصوصاً في حالة زيادة بيانات حقل معين عن مساحة مربع نص . حيث كنت سابقاً عند عمل أي برنامج بالاكسس أقوم بالاتي…

للمعاينة إستخدم الكود التالي : DatareportName.PrintReport للطباعة مباشرةً إستخدم الكود التالي : DatareportName.Show المعذرة أعكس الكود يعني الذي في الأول للطباعة والذي في الثاني للمعاينة

اخي الكريم ، ربما تجد في الكود أدناه ما تريده ،، بالتوفيق ،، DoCmd.OpenReport "task", acViewNormal, "", "[resource]= '" & Me.SelectResource & "'"

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

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

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

السلام عليكم ورحمة الله وبركاته .. وبعد ،، اخوتي الكرام ، لقد حاولت كثيراً من إدراج قيمة متغير داخل جملة SQL ، ولكن كل محاولاتي بآءت بالفشل ، أرجو مساعدتي إن كان ذلك صحيحاً .. هذا الكود يعمل بطريقة صحيحة ، ولكنه يأخذ الشرط من مربع نص داخل النموذج .. Me.Vissles…

أنا حاولت كتابة الكود الموضح أدناه في وحدة نمطية .. وسؤالي هو ، هل طريقة كتابة الإجراء صحيحة ، وأرجو كذلك إعلامي بطريقة إستدعاء الإجراء من داخل نموذج . Public Sub DoStatistic() On Error Resume Next If IsNull([TicketType]) Or ([TicketType]) = "" Then MsgBox "يج…