اخي الف شكر لردك
ارجو تحميل المرفق
يوجد داخل القاعدة تقرير مصمم بالاكسس بأسم tab
اريد عرض هذا التقرير داخل الفورم يعني مثل عرض اي صورة عل الفورم
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
أخي الكريم ، ذكرت لك من قبل أنه من التقرير أن لا يجوز تنفيذ ما طلبتة ( والله أعلم ) .
ووضعت لك مثال من قبل علي كيفية فتح تقرير من الكريستال . وإذا كنت ترغب في عض التقرير داخل الفيجوال ذاتة فعليك بـ DataReport أو Crystal Report . ولكنني لا أعلم لماذا هذا الإصرار ؟؟؟
علي العموم ، إنتظرني حتي أبحث جيداً لعلي وعسي أن أجد شيء
ياريت تنظر الي المثال الذي أرفقتة لك من قبل ، وإنتظريني ،
لكن أخي لا تضع أملك فيا
شكراً
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
الف الف شكر لك اخي
وانا بانتظارك
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
طال الانتظار
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
اقتباسطال الانتظار
المشكلة أنك ترغب في عرض التقرير كأنه مدرج ببرنامجك مثل ملف الكريستال و الآداة CRViewr !!!
وأنا لم أجد من قبل مثل هذا الطلب أو أي مثال علية !!!
علي فكرة الموضوع في دماغي ، وأنا من هذا اليوم وأنا أبحث دون جدوي !!!
علي العموم سأحاول وعليك أيضاً أن تحاول معي
شكراً
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
المثال السابق به نفس الطريقة وذلك بالاحتيال على الاكسيس وتحويله الى نسق اخر ومن ثم اظهاره على برنامجك
الطريقة سهلة جدا
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
اخي العزيز يمكن ان تربط بين تقرير مصمم في Acsses وform في VB من خلال الكائن OLE قم بدرجه في Form وسوف يفتح مربع حواراختر منه Create from file ومن ثم حدد قاعدة البيانات التي تريد ان تربط هذا الكائن بها واحرص على ان تجعل خيار link فعال وعند التنفيذ عندما تقوم بالنقر على كائن OLE الذي قمت بدرجه سوف يقوم بفتح قاعدة البيانات ويمكنك ان تختار التقرير وتطبعه .
طريقة الاخ omani افضل بكثير وكان التقرير معمول بالكريستال
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
اخواني اسعد الله مساكم
ياليت التعديل على المرفق ليتم عرض نتيجة البحث على حسب ما يتم اختيارة من الكمبو
والف الف شكر لك جميعاً
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
layan كتب:اخواني اسعد الله مساكم
ياليت التعديل على المرفق ليتم عرض نتيجة البحث على حسب ما يتم اختيارة من الكمبو
والف الف شكر لك جميعاً
استخدمي هذا الكود على نفس المثال
'حجز متغيير لتشغيل الاكسيس Dim Acc As New Access.Application 'التأكد من ان التقرير المؤقت غير موجود وإذا وجد يتم حذفه If Dir(App.Path & "\Report.snp") <> "" Then Kill App.Path & "\Report.snp" 'فتح قاعدة بيانات الاكسيس Acc.OpenCurrentDatabase App.Path & "\db1.mdb", False 'انشاء التقرير حسب الفرز المطلوب من الكومبو Acc.DoCmd.OpenReport "tab", acViewPreview, , "[nem] = '" & Combo1.Text & "' " DoEvents 'تصدير التقرير من اكسيس الى سناب شوت Acc.DoCmd.OutputTo acOutputReport, "tab", "SnapshotFormat(*.snp)", App.Path & "\Report.snp", False 'انهاء العمل ثم انهاء الأكسيس DoEvents Acc.DoCmd.Quit acQuitSaveNone DoEvents 'اظهار الفورم 1 Form1.Show Unload Me
تحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
بارك الله فيك وطول الله عمرك
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
اسعد الله صباحك اخي واستاذي الفاضل omani
بعد التعديل ووضع الكود السابق لاحظت مايلي :
عند اضافة سجل جديد عن طريق القاعدة يسجل اسم الشهر العربي ( محرم ) مثلاً كما هو مطلوب
وعند اضافة سجل عن طريق البرنامج المصمم بالفيجوال بيسك يسجل اسم الشهر الاجنبي (يناير)
ارجو التعديل على المرفق
والف الف شكر لك اخي الكريم
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
up
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
up
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
طيب ممكن ادرج مربع Text على الفورم وتكون قيمته تلقائية هي الشهر الهجري الحالي ؟
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))
ضع هذا الكود في زر الحفظ
Calendar = vbCalHijri
Adodc1.Recordset.Fields("shahr") = Format(Date, "MMMM")
Adodc1.Recordset.Updateتحياتي
OMANI FOR EVER
-------------------------------------------------
-------------------------------------------------
الف الف شكر لك اخي omani
كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون
فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر
(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))