أبو نادر

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

صدقت من اخفيته جابلي مشاكل ... وكيف طريقة تثبيت الشعار عليه ؟ قصدك ايقونة الاكسس الي في الشلريط تحت والا الخلفية الرمادية ابو خليل ترا محتاج حركاتك البهلوانيه ..

ما شاء الله عليك ليتني عرفت لهالحل قبل ما اتحمس في تقارير وااااجد طيب يبو خليل ... بعيد عن اكواد داخل التقرير ... هل عندك حل ؟ قسم ما تضربني ....

الله يعطيك العافيه يبو خليل ... ما في حل غير تكبير التقرير ؟ تعديل في الفانكشن او حركات بهلوانيه

هلا ببو خليل لك وحشه يا وحش اتمنى ما تكون دقيقه ... شوف المرفق يمكن انا ملخبط في شي ؟ هلا ابو جودي تفضل وان شاء الله الحل عندكم kkk.rar

السلام عليكم احبابي واجهتني مشكله في عدم عرض التقارير في المقدمه بعد اخفاء الاكسس مع العلم بان خصائص التقارير منبثق ومشروط وعند بحثي لمثل هذه المشكله اتضحلي بانها لدى العموم ولم اجد حل لها سوى عند فتح التقرير اعرض اكسس وعند اغلاقه اخفي الاكسس ؟ ولكن عدد التقارير لدي يفوق ال 300 هل عرض التقارير مرتبط مع خلفية الاكسس ؟ حسب خبرتكم ما هو الحل الأمثل ؟ وهل هناك طرق اخرى هذا الكود الوحيد الذي وجدت فيه كلمة report Option Compare Database Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form Dim loReport As report On Error Resume Next Set loForm = Screen.ActiveForm Set loReport = Screen.ActiveReport If Err <> 0 Then loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Or _ nCmdShow = SW_SHOWMINIMIZED And loReport.Modal = True _ Then ' MsgBox "Cannot minimize Access with " _ ' & (loForm.Caption + " ") _ ' & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Or _ nCmdShow = SW_HIDE And loForm.loReport <> True _ Then ' MsgBox "Cannot hide Access with " _ ' & (loForm.Caption + " ") _ ' & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If fSetAccessWindow = (loX <> 0) End Function

المعذره ... cccc.rar

If DLookup("xtype", "table1") = -1 Then Me.ww.Enabled = True Else Me.ww.Enabled = False End If وحششش يا رمهان الله يزيدك من العلم والف شكر عدلت في الكود شي بسيط وميه ميه.....

السلام عليكم المعذره اخوي رمهان للتأخر في الرد ... اخر مشاركة وصف لسبب الفكره الي خلتني اكتب اول مشاركه شوف نموذج ال main في هذا الملف ابغى اذا التمكين نعم كل الأزرار في النماذج تتمكن ... والعكس فما أدري هل الفكره قابلة للتطبيق ... عشان كذا فكرت في فانكشن وسلامتك cccc.rar

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

السلام عليكم هل بالإمكان عمل فانكشن ... مهمته تمكين زر أو اظهاره لجميع النماذج مثلا في الصفحة الرئيسية للمدير عنصر ( نعم/لا ) اذا نعم ... اي نموذج في القاعدة فيه زر يحمل نفس الاسم في الفانكشن يتم تنفيذ الإجراء عليه ( انا ابغى تمكينه او لا ) حاولت اكتب فانكشن من ابداعي بس ماش Public Function enableOrnot(naddory As Form) If naddory.tamkeen = True Then naddory.nader.Enable = True Else naddory.nader.Enable = False End If End Function tamkeen = عنصر ( نعم/لا ) في النموذج الرئيسي nader = اسم الزر في النماذج أكيد الفكره واضحه ... والابداع بيكون ابداعكم

بارك الله فيك

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

بعد كاسة شاي مع هالمشكله ... طلعت بنتيجة مرضية وتتحدث البيانات في التقرير الغيت كود فتح الفورم من زر طباعه واضفته في حدث عند التحميل للتقرير بعده كود لجلب القيمة من الفورم وبعده كود يقفل الفورم ..... هالطريقة ناجحه اذا الفورم فرعي .... ولو مو فرعي بيتقفل الفورم .... بالنسبه لي ما عندي مشكله لانه فرعي وان شاء الله ما تجيني مشاكل sss3.rar

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

اخوي عبدالله ما قصرت وشكرا على ردودك شوف وش اضفت في كود الطباعة ... اعتقد انحلت المشكلة ... واتمنى تشرحلي وظيفة acHIDEN ... هل هناك مشكلة اذا كان النموذج فرعي وتم فتحه مخفي ؟ sss.rar

شكرا اخوي عبدالله على الرد ولكن هل توجد حركة بهلوانيه او طريقه اخرى

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

ما شاء الله عليك اخ رمهان ... تمت التجربة بنجاح الله يجزاك خير على هالكود الجديد ترجم ترجم ... العلامات في الاكواد بلشششه

ابو خليل صدقت .. عندنا اذا اختلف اليوم عن تقويم ام القرى .. نمشي على تقويم ام القرى في المعاملات وبرضه بفكر فيها .. وبشوف اذا فيه طريقه بتعديل التاريخ الهجري عن طريق وندوز .. الاخ رمهان الله يعطيك العافيه .. انا غيرت المثال بالانقلش عشان ابو خليل كمثال .. والا برنامجي ٩٠٪‏ عربي وبتلافاها مستقبلا بجرب حلك واعطيك خبر . ويا ليت تترجم . والف شكر لك

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

ااكيد فكرة غريبه .. انت ابو الحلول الله يزيدك من العلم بس غريبه .. انا مسوي كود بسيط في زر الترحيل قبل الترحيل يتأكد اول بان التاريخ هو تاريخ اليوم واذا العكس تظهر وساله بتحديث التاريخ يعني يفهم التاريخ الهجري ؟ ما استغني عن حلك يبو خليل الليله بسهر مع ذا التاريخ

فكرتك ميه ميه ما شاء الله عليك ... وطبقت الكود ولكن ما زبط ؟ رحت اتأكد وكتبت الكود في النموذج عشان يبان العدد ولكن ما زبط ؟ اشغلتك يبو خليل ....

للاسف يبو خليل .. تظهر رساله type mismatch انا حاذف صف في الجدول بتاريخ اليوم .. والمفروض المربع يكون لونه احمر ... واذا فيه صف لنفس الرف وبتاريخ اليوم يصير اللون اخضر التوضيح في المرفق ... بعد ما غيرت الاسماء للانقلش وحولتها 2003 tamam1.rar

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