Radwan0

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

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

https://www.opengatesw.net/eval/Download-Dashboard-Builder.htm

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

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

في 14‏/3‏/2023 at 19:06, Radwan0 said:

اخواني هل من مغيث 

جربت اغير الاسماء من الانجليزي للعربي لكن ما نفعت معي

ارجو مساعدتكم

..

في 1‏/7‏/2022 at 23:23, Radwan0 said:

اخي @jjafferr السلام عليكم

عند تغيير الكلمات cut,copy,paste الى اللغه العربيه تبقى الكلمات نفسها في النموذج بالرغم من تغييرها في المودل

هل هنالك مشكلة ؟

اخواني هل من مغيث 

جربت اغير الاسماء من الانجليزي للعربي لكن ما نفعت معي

ارجو مساعدتكم

@kanory الف شكر لك اخي الكريم فعلا هذا المطلوب 

@محمد احمد لطفىشكرا لك اخي العزيز على المساعده ايضا

@kanory اخي العزيز حصلت على الخطأ التالي

@kkhalifa1960 @kanory

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

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

عند الدخول الى نموذج EXCEl والضغط على زر التصدير الى اكسل

قمت باستخدام هذا الكود 

Private Sub Excel_Click()
On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Contacts", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [Last Name],[First Name],[E-mail Address] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 12.0 XML;HDR=yes;] FROM qyrcustomer"

 MsgBox "O.k"
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True
End Sub

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

اختيار نوع الخط

اختيار حجم الخط

وايضا تنسيق التباعد بين الاعمدة

Database1.accdb

في 5‏/3‏/2023 at 20:02, محمد احمد لطفى said:

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

 

 

هذا اخي

في 5‏/3‏/2023 at 22:06, Radwan0 said:

شكرا اخي خليفه لمن المثال اللي تفضل به اخي محمد هو المطلوب

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

للرفع 

للرفع

شكرا اخي خليفه لمن المثال اللي تفضل به اخي محمد هو المطلوب

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

1 ساعه مضت, محمد احمد لطفى said:

طب جرب 

 

On Error Resume Next
'DoCmd.OutputTo acOutputTable, "Data", acViewPreview
 DoCmd.SetWarnings False
' EXPORT_TO_EXCEL_01
 DoCmd.RunSQL "SELECT [name],[phone],[date] INTO Access IN'" _
    & CurrentProject.Path & "\bb'[Excel 8.0;HDR=yes;] FROM qyrcustomer"

 MsgBox "تم تصدير الجدول بنجاح إلى نفس مجلد قاعدة البيانات سيتم فتح المجلد الآن... "
On Error GoTo 1
Application.FollowHyperlink CurrentProject.Path
1:
DoCmd.SetWarnings True

من موضوع 

 

 

 

هو المطلوب اخي الكريم

جزاك الله كل خير

فضلا وليس امرا .. كيف بالامكان التصدير الى ملف Xlsx وليس xls

سؤال ثاني كيف اجعل الملف ياخذ الاتجاه من اليمين الى اليسار وليس العكس وكيف بالامكان اختيار نوع الخط

للاسف لم افلح في فهم الامثلة اخي الكريم

هل بالاامكان تطبيقه على المثال الذي اوضحته

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

عندي الاستعلام qyrcustomer وبه الاعمدة name,date,id,age,phone 

اريد عند الضغط على زر ارسالA يقوم بتصدير الى ملف اكسل وبه الاعمده name,date,phone 

وعند الضغط على زر ارسالB يقوم بالتصدير الى ملف اكسل وبه الاعمده name,id,age

في 1‏/1‏/2020 at 21:56, jjafferr said:

السلام عليكم 🙂

والتقرير يحتوي على القائمة المؤقته التالية :

 

السلام عليكم

هل بالامكان عند الضغط على email report as an attachment ان يختار لي تلقائيا صيغه الملف pdf ويقوم بفتح الاوتلوك بنفس الوقت ؟

وهو المطلوب

باركك الرحمن تعالى

شكرا جزيلا اخي العزيز

بالنسبه لنوع الخط واتجاه النص الكود صحيح

بقيت مشكلة حقل البريد فارغ 

يظهر لي الخطا  invalid use of null

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

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

الى الان الكود يعمل بشكل سليم لكن حصلت عندي مشكلتين

1) في حال كان حقل الايميل فارغ تظهر لي رسالة خطأ . كيف بالامكان اظهار رسالة تفيد بانه يجب ادخال بريد الكتروني او لا الكود لا يستجيب بفتح الماكرو او الاوتلوك

2) كيف بالامكان جعل نوع الخط ثابت والرسالة تبدا من اليمين وليس من الشمال

Option Compare Database

Private Sub mail_DblClick(Cancel As Integer)
    Dim Msg As String
    Msg = " hey " & namecus & "<p>"
    
   
  Dim O As Outlook.Application
  Dim M As Outlook.MailItem
  
  Set O = New Outlook.Application
  Set M = O.CreateItem(olMailItem)
  
  With M
    .BodyFormat = olFormatHTML
    .HTMLBody = Msg
    '.Body = txt - if you see olformatplain
    .To = mail
    '.CC="khate9191@gmail.com;khateb91@outlook.com"
    '.BCC="hateeb991@gmail.com"
    .Subject = " new mail " & Now()
    .Display
    '.send
   End With
    Set M = Nothing
    Set O = Nothing
End Sub

Database1.accdb

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

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

اطلب مساعدتكم 

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

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

عندي المستخدم radwan و Ali كلمة المرور لكلاهما هي qwer

لكل مستخدم لديه AccessLevel بحيث ان القيمة 1 هي Default User القيمة 2 Admin والقيمة 3 Developer

كيف بالامكان وضع صلاحيات بحيث من ياخذ القيمة 1 يستطيع رؤية النماذج والتقارير وادخال بيانات لنماذج محدده 

القيمة 2 يستطيع حذف بيانات بالاضافه الى تعديل 

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

PasswordLogin_RC4_v5.4.accdb

3 ساعات مضت, Moosak said:

وعليكم السلام ورحمة الله وبركاته أخي رضوان 🙂

ما فهمته هو أنك تريد بعد إدخال بيانات المركبات أن تجري العديد من العمليات المتعلقة بهذه المركبات .. وكل مركبة لها عدة عمليات .. لذلك تريد نسخ بيانات المركبة لكل سجل من هذه العمليات ..هل هذا صحيح ؟

ما شاء الله وتبارك الرحمن

فعلا اخي واستاذي موسى هو المطلوب

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

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

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

عندي نموذج تفاصيل مركبات 

نفرض عندي الحقل رقم المركبة , عمر المركبة , رقم هوية صاحب المركبة

النموذج هو من نوع نموذج جداول , كيف بامكاني عند ادخال عمر المركبه ورقم هوية صاحب المركبه يقوم بنسخ القيمة الى جميع الحقول لنفس رقم المركبة 

حياك الله اخي @jjafferr والاخوة الكرام

اعلم ان الحل عندك بعد الله عز وجل ياغالي

ساضع مثال وتوضيح لمطلبي بالشرح المفصل

رابط تحميل قاعدة البيانات

https://easyupload.io/t389bl

لنفرض عندي النموذج Home منبثق وعند الضغط على احدى التقارير المؤشر عليها بالرقم 1 فانه يقوم بفتح التقرير داخل النموذج home وليس في شاشة مستقله .. اي كما بالشكل رقم 2

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

السلام عليكم احبتي في الله

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

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

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

وفي حال اختيار مريض اخر فانه يقوم بفتح النموذج الخاص بهذا المريض ايضا في نفس النموذج

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

اتمنى اني اوصلت الفكره كما لازم