د.كاف يار

تفضل هذا التعديل من قبلي اخي الكريم صورة من الجهاز او الاسكانر سيتم انشاء فولدر تلقائيا يمكن التعديل على الكود لتغيير مسار انشاء الفولدر الارشيف شئون الموظفين.accdb

اخي الكريم السبب هو خطأ في كلمة المرور لقاعدة البيانات اذ لم تكن تقاعدة البيانات محمية بكلمة مرور فقط ضع كومتين "" بدون مسافات بينهم الواضح في الكود لديك هو انك وضعت مسافية بين الكومتين شكرا لك اخي الكريم على هذه الكلمات الجميلة فعلا يمكن وضعه في ازرار و يمكن كذلك وضعه في حدث عند فتح النموذج الرئيسي فهو افضل

تفضل اخي الكريم اريد اظهار المرفق المرتبط.accdb

اخي الكريم جرب هذا الكود و انشاء الله يضبط معاك Dim strDbFile As String Dim strPassword As String Dim strConnect As String strDbFile = "مسار قاعدة البيانات" strPassword = "كلمة المرور" strConnect = "MS Access;PWD=" & strPassword & ";DATABASE=" & strDbFile Dim tdf As DAO.TableDef Dim db As DAO.Database Set db = CurrentDb For Each tdf In db.TableDefs If Not (tdf.Name Like "MSys*" Or tdf.Name Like "~*" Or tdf.Name Like "exl*") Then tdf.Connect = strConnect tdf.RefreshLink End If Next

تفضل هذا التعديل اخي الكريم تفويض.accdb

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

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

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

تفضل هذا الكود شامل الشرح اخي الكريم On Error GoTo errorhandle Dim MyFilePath, MyRange, MyTablName As String 'MyFilePath = "مسار ملف الاكسل" MyRange = "نطاق الخلايا المراد استيرادها من ملف الاكسل" MyTablName = "اسم الجدول الذي سيتم تخزين البياناته به" '-------------------------------- '''''''' فتح مستعرض الملفات لإختيار الملف '''''''' Dim fpath As Variant With Application.FileDialog(3) .Title = "Choose File" .Filters.Clear .Filters.Add "Excel Files", "*.xls ; *.xlsx" .AllowMultiSelect = False .InitialFileName = "" If .Show = -1 Then MyFilePath = .SelectedItems(1) End If End With '-------------------------------- '''''''' استيراد ملف الاكسل حسب الشروط اعلاه '''''''' DoCmd.TransferSpreadsheet acImport, 10, MyTablName, FilePath, False, MyRange MsgBox "تم استيراد الملف بنجاح", vbMsgBoxRight + vbInformation, "تأكيد" errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit

من الخصائص الحقل غيير التنسيق الى رقم عام ا قياسي

العفو اخي الكريم يشرفني مرورك و يشرفني أنه نال اعجابك تفضل طلبك translate_language.accdb

ماشاء الله شغل مرتب و متعوب عليه

العفو اخي الكريم الأجمل هو مرورك العطر و الجميل شكرا لك ============================================= الاخوة الأعزاء تم اضافة اللغات المعتمدة في Google تجدون النسخة المعدلة في المرفقات translate_language.accdb

تفضل التعديل اخي الكريم تجربة عمل زر البحث.accdb

فضلا يرجى التوضيح ماذا تقصد بالاختيار بالاسم ؟ اذا كنت تقصد اسهم التوجيه للأعلا و الأسفل و هكذا يكون السؤال كتالي ماهو المفتاح الذي ترغب به أن يعمل على الاختيار ؟؟

تفضل هذا التعديل اخي الكريم Data.mdb

ماشاء الله اضافة ممتازة و اشكرك على الرد

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

تفضل هذه مشاركة من قبلي حذف بيانات نموذج فرعي التي تم تحديدها.accdb

تفضل هذه المشاركة من قبلي اخي الكريم - يتم الاستعلام بمجرد كتابة جزء من الاسم سواء جزء من البداية او من أي مكان في الاسم - سيتم عرض القائمة بمجرد وجود نتيجة تجربة.accdb

ابو عبدالرحمن في تنسيق شرطي الشرطي لكل حقل حط الشرط Is Null فقط و اختار اللون الي يناسبك او ارفق البرنامج ( الجدول - الاستعلام - التقرير )

ما هي مشكلة حط نفس الكود في حدث عند الفتح

تفضل هذا التعديل قد يقرب وجهات النظر تجربة عمل زر البحث.accdb

المرفق غير واضح لكني بدءت افهم طلبك تقريبا ( هل تحتاج لترقيم تلقائي ؟ أو هل تحتاج معرفة اخر تسلسل بحيث يكون حقل رقم التسلسل ثابت لا يتغير عند البحث ؟ )

اتفضل يابو عبدالرحمن في حدث ازرار الحفظ ضع الكود التالي Dim msg1, msg2 As String msg2 = "عزيزي المستخدم " & vbNewLine & "يرجى تعبئة الحقل / الحقول الفارغة" Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then If msg1 = "" Then msg1 = " - " & ctl.Name Else msg1 = msg1 & vbNewLine & " - " & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox msg2 & vbNewLine & msg1, vbCritical, "تنبيه بوجود حقول فراغة" End If