Radwan0

احتاج المساعدة الضرورية اخوتي

السلام عليكم اخواني

كيف بامكاني تحديد القيم هنا بحيث ياخذ النموذج وسط الشاشة

انا استعمل هذا الكود لاني قمت باخفاء "التفصيل" ويظهر بعد اعطاء امر 

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

انتظر لمساعدة الخبراء الاخوة الكرام

شكرا اخي محمد

المطلوب هو التعديل على النموذج الذي ارفقته ان امكن ذلك

السلام عليكم اخواني

احتاج لمساعده في صلاحيات المستخدم

مرفق قاعدة بيانات

عندي في المستخدمين (المستخدم radwan يملك صلاحية 1 بحيث يستطيع الدخول الى جميع النماذج بينما المستخدم sameh يملك صلاحية رقم 3 بحيث لا يستطيع الدخول الى نموذج frmLoggedInUsers )

احتاج لكود يقوم بمنع سامح من الدخول الى النموذج frmLoggedInUsers

كلمة المرور للمستخدمين الاثنين هي 123 

شكرا لكم

PasswordLogin_RC4_v5.4.accdb

شكرا اخي الكريم

الكود لم يفيدني ليس هذا هو المطلوب

9 دقائق مضت, ابو البشر said:

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

نعم ياغالي 

تلوين كل الحقول في حال كانت فارغه فقط

اما بحال كانت مليئة فتاخذ اللون الازرق على سبيل المثال

السلام عليكم اخواني الكرام

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

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

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

شكرا لكم

48 دقائق مضت, rockjone33 said:

كود عد الاحرف من شمال 2 في حقل و2 في حقل و4 في حقل.. في موضوع moosak

من 3 حقول a اليوم وb الشهر وc السنه  الى حقل جديد = اكتب داخل الحقل: 

= me. c. value & "-" & me.b.value  & "-" & me. a. value 

او 

= me. c. value & "." & me.b.value  & "." & me. a. value 

او 

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

..  

او

عند التحميل

كود format... 🙂

 

 

ممكن التعديل على المثال عند الاخ موستك

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

شكرا اخي احمد الكريم

لكن ليس هذا المطلوب اخي

المقصد هو ان التنسيق في الثلاث حالات يتم تخزينه على هذا الشكل dd/mm/yyyy اما في النموذج فانه بالامكان كتابه التاريخ 01072020 او 01.07.2020 او 01-07-2020 ويتم تحويلة الى التنسيق 01/07/2020

السلام عليكم ورحمة الله وبركاته

جمعه مباركه عليكم اخوتي

عندي في النموذج frmcut حقل التاريخ بأسم dateqwe يأخذ التنسيق dd/mm/yyyy 

هل بالامكان عند كتابه التاريخ هكذا 01072022 او 01.07.2022 او 01-07-2022 فانه بشكل تلقائي يعطيني التنسيق 01/07/2022 ويقوم بتخزينه بالجدول بهذا التنسيق ايضا

السلام عليكم ورحمه الله وبركاته

اخواني الكرام عندي استعلام QyrNam وبه بيانات شراء وبيع 

وعندي نموذج Export To Excel من خلاله اقوم بادخال رقم السنه في حقل YearINcome وزر التصدير الى اكسل

احتاج كود يقوم بانشاء ملف الاكسل لكن حسب المسمى التالي : "بيانات الشراء والبيع لسنة ... " فيقوم الكود بتكملة المسمى حسب القيمة في YearINcome

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

الصورة ماخوذة من النموذج Contact Details

موجود ياعزيزي

المثال موجود ياغالي ارفقت قاعدة البيانات

محتاج مساعدة الخبراء الافاضل

اخ حمدي شكرا لك

قمت بفعل هذا لكن للاسف التبويب لم يتغير

السلام عليكم اخواني

ارفقت لكم قاعدة بيانات

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

مرفق ايضا صورة للنموذج لتوضيح مطلبي

ارجو المساعده

Database1.accdb

ساقوم بالتجربه ان شاء الله واوافيكم بالنتائج

اخي مواسك اللي حصل هنا ان التقرير فعلا فتح لكن ظهر فقط الشريط العلوي دون ظهور محتوى التقرير

مساعدتكم الضرورية اخواني

14 ساعات مضت, ازهر عبد العزيز said:

اجعل خاصبة التقرير منبثق

حتى عند خاصيه منبثق فان التقرير يختفي كليا

فقط في حال وضعت كود التكبير عند فتح التقرير فانه يظهر لكن اانا لا اريد تكبير التقرير الا فتحه على وضعهه وحجمه

الكود اللي حضرتك دخلته ياغالي لم ينفعني فمازالت التقارير لا تظهر

ان كان بالامكان التعديل على الكود اللي انا وضعته ياريت تساعدوني 

السلام عليكم اخواني الكرام

قمت بانشاء المودول التالي

Option Explicit
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
    On Error Resume Next
    Set loForm = Screen.ActiveForm
     
    If Err <> 0 Then
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
        Err.Clear
    End If
     
    If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then
        MsgBox "Cannot minimize Access with " _
        & (loForm.Caption + " ") _
        & "form on screen"
    ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then
        MsgBox "Cannot hide Access with " _
        & (loForm.Caption + " ") _
        & "form on screen"
    Else
        loX = apiShowWindow(hWndAccessApp, nCmdShow)
    End If
    End Function

واستدعيته من خلال الكود التالي

fSetAccessWindow (SW_SHOWMINIMIZED)

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

كيف بامكاني تعديل الموديل او جعل التقرير يظهر بشكل طبيعي 

اخي قاسم ممكن اعرف شو التغيير اللي ساويته ؟