صالح حمادي

السلام عليكم مرحبا أخي المصري استخدم هذا الكود Dim xdate As Date Dim xtime As Date xtime = "12:27:00" xdate = "2019/01/02" Time = xtime Date = xdate

لا يا صديقي أتمنى أن لا تفشل أنت لقد أعجبتني الفكرة كثيرا و لن أتركك حتى تكمل عملك إن شاء الله. نعم لقد تمت الإضافة و تظهر نفس الرسالة

لم تنجح معي ونداوز 7 32بت

نفس الرسالة

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

ويندوز 7 32

فكرة ممتازة اعترضتني مشكلة عدم تسجيل الأداة أستاذ السيد جمال السيد

السلام عليكم هذا كود نسخ ملف من مكان إلى آخر: FileCopy txtPath1, txtPath2 txtPath1 : هو مصدر أو المسار الكامل للملف txtPath2: هو المكان الوجهة الذي نريد أن نضع به الملف ملاحظة: يجب وضع المسار الكامل للملف في المصدر و الوجهة . مثلا: D:\db1.pdf

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

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

السلام عليكم أخي الكريم لقد وضعت 3 أو 4 مواضيع بهذا الشأن و قد قمت بالإجابة على سؤالك في هذه المشاركة و لم ترد: ثانيا : عند عدم حصولك على الإجابة يجب عليك التذكير بإضافة تعليق للرفع و ليس إضافة موضوع جديد لأن هذا مخالف لقوانين المنتدى

السلام عليكم جرب هذا المرفق لقراءة الباركود تبع المشكلة barcode.rar

السلام عليكم أخي زاهر عليك بتطبيق جميع خطوات الأستاذ عصام هذا أولا. ثانيا قم بفتح التقرير في وضعية معاينة قبل الطباعة و ضغط على أزرار التنقل (رقم 1 في الصورة) و أنظر هل تظهر لك الصفحة الفارغة أم لا إذا ظهرت عندك الصفحة الفارغة فقم بالتعديل على عرض أو إرتفاع التقرير من خلال الخصائص كما يوضح رقم 2 في الصورة. التعديل يتم بالزيادة في الارتفاع أو العرض وذلك بزيادة العدد قليلا . حتى تجد الرقم الذي يناسبك إبدأ بتجربة العرض 3.7 و الارتفاع 2 و إذا لم تنجح فقم يتغيير الارتفاع و العرض من خلال خصائص الطابعة كما وضح الأستاذ عصام

شكرا أخي عبد الله على التنبيه فلم أرى موضوعه من قبل أعتذر أخي إيهاب لأنني لم أرى موضوعك من قبل

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

هذا الملف يشتغل مع 32 و 64 جرب و سوف ترى ذلك

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

اللهم آميييييييييييييييييييييييييييييييييييييييييين

السلام عليكم عندك خطأ في الأكواد البرمجية أو هناك عنصر ActiveX غير مسجل عليك بإضافة نسخة من ملفك لمعرفة مكان الخطأ

السلام عليكم و رحمة الله تعالى و بركاته الأستاذ عبد الله طلب طريقة استعمال الحلقات التكرارية بالعد التنازلي و هذا يعني استعمالها بدون دوال إضافية مثل الدوال الشرطية للحلقات التكرارية ستة أشكال و قد شرحتها جميعها في هذه السلسلة: دروس VBA أكسس و هذا حل لسؤال الأخ عبد الله بخمسة أشكال من الحلقات التكرارية: الأول: الدالة For Dim i As Integer, k As Integer k = 4 For i = k To 1 Step -1 MsgBox i Next i الثاني: الدالة Do While Dim i As Integer i = 4 Do While i >= 1 MsgBox i i = i - 1 Loop الثالث: الدالة Do Until Dim i As Integer i = 4 Do Until i < 1 MsgBox i i = i - 1 Loop الرابع: الدالة Do.....Loop Until Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop Until i < 1 الخامس: الدالة Do.....Loop While Dim i As Integer i = 4 Do MsgBox i i = i - 1 Loop While i >= 1

أعجبتني فكرة الرجستري جرب هذا التعديل: za-font style and align-LAST.rar

السلام عليكم أولا: لقد قمت بتغيير عنوان المشاركة لكي تتناسب مع المضمون ثانيا: لقد قمت بإنشاء نموذج اسمه frm_icon به الصورة التي تريدها كل ما عليك هو فتح التقرير و سحب هذا النموذج غلى داخل التقرير و هذا مثالك بعد التعديل ook.rar

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

جرب الكود بهذا الشكل: DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "zaher", CurrentProject.Path & "\xx.xls", True, "A7:K" DoCmd.SetWarnings False DoCmd.RunSQL "delete from zaher Where isnull([المجموع/ض]) and isnull([المجموع])" DoCmd.SetWarnings True

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