د.كاف يار

تفضل هذا التعديل &&ساعات (1).accdb

تفضل التعديل sendemail.zip

تفضل هذا التعديل 2222.zip

تفضل هذا التعديل بكود واحد فقط ... - لن يستطيع المستخدم الإدخال الا بعد اختيار نوع الفاتورة - جميع الحقول متاحة لكن لن يستطيع المستخدم ادخال البيانات الا بعد اختيار نوع الفاتورة امكانية التسجيل.accdb

تفضل التعديل Database1.accdb

يحب اضافة مكتبةزالاكسس

تفضل هذا التعديل Database1.accdb

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

تفضل التعديل DST.zip

حمل الاوفيس 2016 و انصحك تحمله من اكاديمية سيجما راح تحصلها مفعلة و كاملة

تفضل هذا التعديل remain.accdb

طيب جرب هذا تصدير اكسل.zip

هل المشكلة في نفس الملف او بعد نقل العمل الى الملف الاصلي ؟

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

تفضل هذا التعديل بدون التقييد بتصميم الأكسل و على نفس التصميم تصدير اكسل.zip

تفضل التعديل تصدير اكسل.zip التصدير من داخل التقرير

تفضل هذا التعديل ex_01.accdb

في حدث بعد التحديث ضع التالي With [Text1] If .Text = "Positive" Or StrText1 = "Positive" Then .FontBold = True End If End With

تفضل هذا الكود اخي الكريم جملة اتصال + جملة الاستعلام+داتا تيبل و جاهزة للبراميتر اذا كان غرض الاستخدام لعمل شاشة تسجيل دخول كما انصحك بأن تجعل الموقع هذا في ضمن مراجعك بشكل دائم Access connection strings Using con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Data.mdbJet OLEDB:Database Password=MyDbPassword;;") Using cmd As New OleDbCommand("SELECT * FROM EmployeeDATA;") Using sda As New OleDbDataAdapter cmd.Connection = con sda.SelectCommand = cmd Using dt As New DataTable() sda.Fill(dt) GridView1.DataSource = dt GridView1.DataBind() End Using End Using End Using End Using

هذا الموضوع تكرر اكثر من مرة انصحك بأن تستخدم البحث الخاص بالمنتدى تمت الاجابة على اسألة كثيرة بهذا الخصوص

لن يستطيع احد تقدم المساعدة لك بدون تقديم معطيات كاملة ففي المرفق الأخير ضمن الكود ارتباطات لعناصر ليست موجودة في المرفق و لا حتى الجداول المعدة لذلك لكن تفضل هذا عداد وقت قم بتكييفه مع برنامجك حسب التصميم لديك Sub NewTimer() Dim PauseTime, Start, Finish, TotalTime PauseTime = 3600 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Finish = Timer TotalTime = Finish - Start call NewTimer() End Sub

تفضل التعديل البرنامج.zip

تفضل هذا التعديل البرنامج.zip

تفضل بطاقة.accdb

تفضل التعديل New folder.zip