اريد اخفاء شاشة اكسيس

[أبو عبدالله الحلوانى]

15 دقائق مضت, husseinarby said:

  في ٢٤‏/٩‏/٢٠١٤ at 19:49, aysar_0078 said:

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

" بعد طرح هذا الموضوع بالمنتدى :  "

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

وعموما هذا خطأ مطبعى - زلت لسان -  أعتذر عنه وشكرا على التنبيه وعلى رأى المثل: ( السن له حكمه).

 

[علي المصري]

هذا الكود عند العمل على اكسيس 64 بت لا يعمل

هل من تعديل

شكرا

[أبو عبدالله الحلوانى]

38 دقائق مضت, علي المصري said:

هذا الكود عند العمل على اكسيس 64 بت لا يعمل

هل من تعديل

ربما كنت بحاجة لاضافة تلك الكلمة عند التصريح العام بالمديل  PtrSafe  بعد Declare   لكى يعمل الكود مع نظام 64 بت ليصبح سطر التصريح بهذا الشكل

38 دقائق مضت, علي المصري said:

Private Declare PtrSafe Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long)

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

هذا الرابط وجدته والحمد لله

http://www.officena.net/ib/topic/59661-الأكسس-32-بت،-64-بت/?do=findComment&comment=398477

 

تم تعديل ديسمبر 14, 2015 بواسطه أبو عبدالله الحلوانى

[ابو جودي]

ايون كده هو كده السحر بدأ يظهر 
كل الشكر والتقدير استاذ عبد الله شكرا جدا على المثال الرائع الذى تقدمتم به وللعلم حتى اوفيكم قدركم 
حاولت تطبيق هذا الكود  الساحر

DoCmd.ShowToolbar "ribbon", acToolbarNo

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

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

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

[أبو عبدالله الحلوانى]

 

في ١٥‏/١٢‏/٢٠١٥ at 19:08, محمد عصامـے said:

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

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

[Aliko]

On 9/24/2014 at 10:56 PM, ابوخليل said:

الصق هذا السطر في حدث فتح نموذج البداية

DoCmd.RunCommand acCmdAppMinimize

تحياتي لك استاذ @ابوخليل

انا طبقت الكود هذا ولكن التقارير لاتظهر والاستعلامات ايضا تظهر النماذج فقط ؟

[Shivan Rekany]

52 دقائق مضت, Aliko said:

تحياتي لك استاذ @ابوخليل

انا طبقت الكود هذا ولكن التقارير لاتظهر والاستعلامات ايضا تظهر النماذج فقط ؟

استأذن من استاذنا ابوخليل

اليك هذا الرابط

م.2008.شفان ريكاني

[Aliko]

12 hours ago, Shivan Rekany said:

استأذن من استاذنا ابوخليل

اليك هذا الرابط

م.2008.شفان ريكاني

تحياتي وامتناني لك استاذ شفان 

عندي هذه المعلومه وقمت بتجربتها والحمد لله تجاوزت عقبة عدم ظهور التقارير, ولكن المشكلة الان في الاستعلام حسب معلوماتي لايمكن وضعها منبثقه او مشروطه ماهو الحل برأيك 

شكرا جزيلا لردك حبيبي

[Aliko]

21 hours ago, Shivan Rekany said:

استأذن من استاذنا ابوخليل

اليك هذا الرابط

م.2008.شفان ريكاني

في اي حل حتى اقدر ان اظهر الاستعلام استاذ @Shivan Rekany ؟ او ما رأيك هل توجد طريقة اخرى ؟

تحياتي لك ولاستاذ ابو خليل

[Shivan Rekany]

الان, Aliko said:

في اي حل حتى اقدر ان اظهر الاستعلام استاذ @Shivan Rekany ؟ او ما رأيك هل توجد طريقة اخرى ؟

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

م.2017.شفان ريكاني

[Aliko]

2 hours ago, Shivan Rekany said:

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

م.2017.شفان ريكاني

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

ففي الكود الاول عند وضع 

HideAccess 

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

شكرا لمجهودك الرائع استاذ @Shivan Rekany

 وسأحاول ان ابحث عن طريقه اخرى 

كل التقدير والاحترام لك وللاستاذ ابو خليل 

 

اخوكم 

علي

[Shivan Rekany]

9 دقائق مضت, Aliko said:

ففي الكود الاول عند وضع 

HideAccess 

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

ارفق نسخة مصغرة من قاعدتک لعمل علیها

م.2018.شفان ريكاني

تم تعديل يونيو 10, 2017 بواسطه Shivan Rekany

[Aliko]

On 6/11/2017 at 2:23 AM, Shivan Rekany said:

ارفق نسخة مصغرة من قاعدتک لعمل علیها

م.2018.شفان ريكاني

 @Shivan Rekanyمن رخصتك اخي شيفان 

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

لكن اذا تقدر تعدل على هذا الش البسيط

مثال اخفاء شاشة الاكسس.rar

تم تعديل يونيو 12, 2017 بواسطه Aliko

[Shivan Rekany]

اتفضل

هذا هو الوحدة النمطية لاخفاء واظهار شاشة اكسس

عند فتح نموذج الواجهة اي النموذج البداية استخدمنا هذا الكود

Private Sub Form_Open(Cancel As Integer)
    HideAccess
End Sub

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

Private Sub Command10_Click()
    Dim NameFrm As String
        NameFrm = "ÈíÇäÇÊ"
    DoCmd.OpenForm NameFrm, acNormal
End Sub

Private Sub Command11_Click()
    Dim NameFrm As String
        NameFrm = "ÈíÇäÇÊ ÇáÊáãíÐ"
    DoCmd.OpenForm NameFrm, acNormal
End Sub

Private Sub Command12_Click()
    Dim NameFrm As String
        NameFrm = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1593) & ChrW(1604) & ChrW(1605)
    DoCmd.OpenForm NameFrm, acNormal
End Sub

Private Sub Command13_Click()
    Dim NameFrm As String
        NameFrm = "ÈíÇäÇÊ ÇáÊáãíÐ1"
    DoCmd.OpenForm NameFrm, acNormal
End Sub

Private Sub Command4_Click()
    Dim NameRep As String
        NameRep = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1578) & ChrW(1604) & ChrW(1605) & ChrW(1610) & ChrW(1584)
    DoCmd.OpenReport NameRep, acViewPreview, , , acDialog
End Sub

Private Sub Command5_Click()
    Dim NameRep As String
        NameRep = ChrW(1576) & ChrW(1610) & ChrW(1575) & ChrW(1606) & ChrW(1575) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1605) & ChrW(1593) & ChrW(1604) & ChrW(1605)
    DoCmd.OpenReport NameRep, acViewPreview, , , acDialog
End Sub

Private Sub Command9_Click()
    Dim NameFrm As String
        NameFrm = "FrmQuery1"
    DoCmd.OpenForm NameFrm, acFormDS
End Sub

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

Private Sub Report_Open(Cancel As Integer)
    DoCmd.Maximize
End Sub

ولا تنسى ان خاصية كل النماذج والتقارير شرطي و مشروط يساوي نعم

اليك ملف للفائدة اكثر

 

مثال اخفاء شاشة الاكسس.rar

[Aliko]

تحياتي لك استاذ شفان على المجهود 

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

مشكور على سعة صدرك 

اخوك 

علي

[Shivan Rekany]

الان, Aliko said:

الشغل كله تمام

الحمدلله

الان, Aliko said:

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

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

[Aliko]

10 hours ago, Shivan Rekany said:

الحمدلله

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

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

واستعلام اخر عن النوع 

المهم استاذ شفان حولتها كلها الى تقارير تعطي نفس النتيجة

تحياتي لك ادعيلك بكل الخير والله 

تحياتي لك ابن كردستان العراق