أبو نادر

2 ساعات مضت, ابوخليل said:

ريط اللي تحت ( ايقونة اكسس ) يكفي المفتاح اللي فيها  كأنه يقول سأفتح القلوب المغلقة

هههههههه 

بس ترا خبرك باكسس اول .. مدري في اي اصدار شكل المفتاح .. انا 2013 ومتغير

نفسي اعرف ليش ما تواكب تطورات الاصدارات ! وصلنا لاكسس 2016 

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

وحبذا العباقره يشتركون في موضوعك .. انت لخلفية الاكسس والثاني للشعار والثالث ..... وانا اوزع لايكات 

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

قصدك ايقونة الاكسس الي في الشلريط تحت

والا الخلفية الرمادية

ابو خليل ترا محتاج حركاتك البهلوانيه ..

ما شاء الله عليك

ليتني عرفت لهالحل قبل ما اتحمس في تقارير وااااجد 

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

قسم ما تضربني  .... 

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

تعديل في الفانكشن او حركات بهلوانيه

7 ساعات مضت, ابوخليل said:

معلومة غير دقيقة

التقارير ستظهر  ولكن الذي لن يظهر هي القائمة المختصرة

 

 

 

هلا ببو خليل لك وحشه يا وحش

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

4 ساعات مضت, ابا جودى said:

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

هلا ابو جودي تفضل وان شاء الله الحل عندكم

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

هلا يا وحش 

اولا : بعد كتابتي للموضوع وارساله .. مباشرة تقفل الموقع   

ثانيا :  قسم بالله اتذكر كلامك ونصيحتك  كل ما اكتب كود ويتلخبط .. اول كنت اكتب اكواد بسيطه وما تجي لخبطه

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

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

الله يعطيك العافيه يبو خليل .... بجرب الان