ناقل

اخي الكريم جرب تشغيل الجدول المرتبط بالاكسل كما في الصورة هل يعمل معك ؟؟؟؟؟؟

استبدل عبارة sql الموجود في الاستعلام بهذا UPDATE [2024 misr pharma expenses] INNER JOIN CASH_OUT_ACCOUNT_EXPENSES_DETAILS_MPC ON [2024 misr pharma expenses].auto_number_excel = CASH_OUT_ACCOUNT_EXPENSES_DETAILS_MPC.excel_access_id SET CASH_OUT_ACCOUNT_EXPENSES_DETAILS_MPC.[cash usd out] = [2024 misr pharma expenses].[cash usd out x];

غير اسماء الملفات المصدرة مثلا Reports1 - Reports2 - Reports3 - Reports4 هنا

هل استبدلت هذا day_date باسم مربع النص الذي به التاريخ ؟؟؟؟؟؟؟؟؟؟؟؟؟

انظر التطبيق لدي .....................

ضع مرفق مبسط للتطبيق عليه

في مربع النص ( مصدر عنصر التحكم ) .... بالتوفيق ..

استخدم هذا الفانك بدون الحاجة لتغيير اعدادات الويندوز ............. Public Function dyNm(txtDate As Date) Dim tx As String Select Case Weekday(txtDate) Case 1: tx = "الأحد" Case 2: tx = "الإثنين" Case 3: tx = "الثلاثاء" Case 4: tx = "الأربعاء" Case 5: tx = "الخميس" Case 6: tx = "الجمعة" Case 7: tx = "السبت" End Select dyNm = tx End Function استدعيه بهذه الطريقة .......... =dyNm([day_date])

تفضل جرب .... New Microsoft Access Database (10).accdb

وعليكم السلام ورحمة الله هل الالوان كثيرة في التنسيق الشرطي .... لماذا لا تعملها بالاكواد ؟؟؟؟

هناك طرق عديدة لذلك حسب قاعدة البيانات لديك :::::: منها استخدم استعلام تحديث

طيب استاذي الفاضل انظر المرفق ربما يوحي لك الفكرة التى اردت ايصالها لك .... Test-1.accdb

لاحظ معي هل تنفعك هذه الطريقة ......

والعناوين كما في الجدول بجوار بعض ... صح ولكن كيف تميز بين المعين على وظيفة هندسية أو ادرارية وغيرها ....

هل الدرجة المقصودة هي المشار اليها في الصورة .... ولماذا الاختيار اذا كانت هي الدرجة ؟؟؟؟ لماذا لاتجعلها تظهر العنوان الوظيفي تلقائيا عند تحديد الدرجة ؟؟

جرب هذا ..... Private Sub B_BeforeUpdate(Cancel As Integer) If DLookup("[العنوان الوظيفي]", "[TP1]", "[ID] =" & [Forms]![form1]![ID] & "") = [Forms]![form1]![B] Then MsgBox "نعم" Else MsgBox "لا" End If End Sub

معليش وحدة وحدة ..... 1- انت تريد تحديث بيانات قاعدة من اخرى صحيح ؟؟؟ 2- اذا كان النقطة 1 صحيحة لاحظ الصورة في الموظف ابراهيم لديه سجلان .... اي السجلات المطلوب نقل بياناتها للقاعدة الاخرى ؟؟؟ 3- سوف نكمل الاحتمالات الاخرى لاحقا !!!!

جرب هذا الكود ربما يفي بالمطلوب Sub PrintPDF() Dim AcroRd32ExePath As String Dim PDFFilePath As String Dim cmd As String ' تحديد مسار تطبيق Adobe Acrobat Reader AcroRd32ExePath = "C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe" ' تحديد مسار الملف PDF الذي تريد طباعته ' هنا نأخذ القيمة من مربع النص TextBox1 PDFFilePath = TextBox1.Value ' إنشاء الأمر الذي سيتم تنفيذه cmd = AcroRd32ExePath & " /n /t " & PDFFilePath ' تنفيذ الأمر Shell cmd, vbHide End Sub

تفضل ............................... مستندات.accdb

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

جرب هذا . Private Sub مستندات_القضية_AfterUpdate() Me.AllowEdits = False Me.AllowDeletions = False Me.Requery End Sub Private Sub مستندات_القضية_DblClick(Cancel As Integer) Me.AllowEdits = True End Sub Private Sub مستندات_القضية_Exit(Cancel As Integer) Me.AllowEdits = False Me.AllowDeletions = False Me.Requery End Sub

هههههه .... بدأ جدنا @ابوخليل يتحركش بينا .. لا يهمك استاذ @Moosak ... دائم الاستاذ يزعق على الطالب

نعم صحيح ..... ⚘

باقي احتمال واحد لو تم ادراجه في الحسبان لاكتملت الاحتمالات وهي ماذا لو كان مصدر بيانات الكمبو جدول وليس استعلام ؟؟