صالح حمادي

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

لم ألاحظ أي خطأ في المرفق البرنامج عندي يشتغل عادي

نوع الحقل رقمي و أنت كتبت به حروف

السلام عليكم هناك العديد من الطرق لإضافة اسم المستخدم و من بينها أولا: قم بإضافة وحدة نمطية فارغة و ضع بها هذا الكود: Public username1 As String يمكنك تغيير اسم المتغير كما تشاء ثانيا: في حدث بعد التحديث لمربع نص اسم المستخدم ضع الكود التالي: me.user1 = username1 بحيث me.user1 هو مربع نص اسم المستخدم ثالثا: في أي نموذج تريد ظهوره اضف مربع نص و سمه مثلا txt1 و اكتب الكود التالي في حدث عند الفتح أو التحميل للفورم me.txt1= username1

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

أهلين أخي منذ مدة لم نعد نراك في المنتدى عسى المانع خيرا إن شاء الله

آمين يا رب العالمين

هذا مرفق البرنامج بعد إضافة الأستاذ شفان بعض التغييرات في التصميم و الألوان و شكل الأزرار ليظهر بأحلى حلة. شكرا جزيلا أستاذ @Shivan Rekany برنامج-التحزيم.rar

السلام عليكم تفضل التعديل كما طلبت أخي حربي DbStudents19.19.rar

أخي يا ريت تفتح موضوعا آخر فالاستيراد و النسخ الإحتياطية شيء مختلف عن نسخ الملفات

أخي يا ريت توضح أكثر لم أفهم ماذا تقصد بالجداول

السلام عليكم استخدم هذا الكود أخي: Me.comb.RowSource = "" Dim i As Integer For i = 0 To Me.tab.Pages.Count - 1 Me.comb.AddItem Me.tab.Pages(i).Name Next i و هذا مثال بالمرفق tabcontrol.rar

تفضل هنا وضعة تجميعية للأكواد مع وضع مثال لكل كود

السلام عليكم ما رأيك بهذه النتيجة MinMaxTest.rar

نضع مثلا مربع نص اسمه txt1 و الحقل اسمه star نضيف الكود التالي في حدث عند التحميل للتقرير if star="*" then me.txt1="* ناجح بالمحاولة الثانية" elseif star="**" then me.txt1="** ناجح بالمحاولة الثالثة" end if و هكذا..

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

السلام عليكم أولا لو كنت تستعمل VB6 فستجد نفسك و كأنك تعمل على الأكسس لتشابه الكبير بينهما أو ربما تطابق كبير في الأكواد. ثانيا : بالنسبة لــ VB.NET يوجد تشابه مع أكواد VBA لكن ليس بدرجة كبيرة. المهم من لديه خلفية على VBA يجد سهولة كبيرة في تعلم VB.NET

تفضل ضع صورة صيغتها jpg على سطح المكتب و سمها مثلا 55 استعمل هذا الكود: Dim curPath As String curPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") Application.FollowHyperlink curPath & "\55.jpg" و غير اسم الملف كما تشاء ليتناسب مع إحتياجك و كذلك مسار الملف.

السلام عليكم يمكنك فتح أي ملف عن طريق هذا الكود Application.FollowHyperlink curPath بحيث curPath هو عنوان تواجد الملف

مين ليه غير يا شفان برافو عليك

آسف أخي حربي العنزي فالملف لا يدعم صيغة mdb لأن به حقول من نوع مرفقات

شكرا أخونا أبو آدم

السلام عليكم هذا هو البرنامج مفتوح المصدر بصيغة accdb يمكن تشغيله على أي نواة و الإستفادة منه برنامج التحزيم.rar

لقد غيرت المرفق الأخير أعد تحميله و جرب

أتمنى من الإخوة @omarahmed1424 و @Amr Ashraf يجربون المرفق بعد تعديله و يعطوننا النتائج و الملاحظات