ابو جودي

برجاء القاء نظرة سريعة على الموضوع الاتى

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

طيب UCanAccess هو تطبيق Java JDBC Driver خالص يسمح لمطوري Java وبرامج عملاء JDBC بقراءة/كتابة ملفات قاعدة بيانات Microsoft Access (.mdb و.accdb). لا حاجة إلى ODBC. Features Supported Access formats: 2000, 2003, 2007, 2010 SELECT, INSERT, UPDATE, DELETE statements. Transactions and savepoints Access data types: YESNO, BYTE, INTEGER, LONG, SINGLE, DOUBLE, NUMERIC, CURRENCY, COUNTER, TEXT, OLE, MEMO, GUID, DATETIME Concurrent access from multiple users (i.e., multiple application server threads) Connection pooling ANSI 92 SQL, core SQL-2008 MS Access SQL Main Access functions implementation You can execute select queries defined and saved in Access Criteria in LIKE clause Access date format (e.g., #11/22/2003 10:42:58 PM#) Both double quote " and single quote ' as SQL string delimeters Command Line Console. You can run SQL commands and display their results. CSV export command أما access runtime لا يمكن تعديل تصميم الجداول والاستعلامات والنماذج والتقارير على جهاز لا يحتوي على Access كاملاً ولكن بوجود access runtime يتم من خلاله تشغيل قاعدة البيانات فقط بدون وضع التصميم access runtime لابد ان يتم تحميله حسب الاصدار الذي تحتاجه تبعا للاصدار الذى تم تصميم قاعدة البيانات عليه والنواة الخاصة بها كذلك يعنى مش أى access runtime ينفع مع كل قواعد البيانات

هههههههههه دا شكل القاعدة اللى لسه بنتكلم عنها هتشتغل اهون ومثل ما بينحكى مصائب قوم عند قوم فوائد

جزانا الله واياكم خير الجزاء الحمد لله تعالى الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل ، الحمد لله الذى تتم بنعمته الصالحات

طيب فى موضوع هنا ممكن يكون مفيد و بصراحة مش فاضى اشوف الفيديو الان بس حبيت اضع الرد اثراء للموضوع

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

اتفضل يا افندم قاعدة بياانات الاحتفاظ بتصدير المراجع و المكتبات وكذلك استرجاع المراجع والمكتبات يرجى مراجعتنا بعد التجربة للتأكد ان شاء الله تقريبا بنسبة كبيرة جدا جدا تتعدى الـ 100% سوف تفلح Reference Management.accdb

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

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

نعم المكتبات المرهونة بإصدار الاوفيس عند اضافتها على اصدار اوفيس ومع فتح القاعدة باصدار أعلى من اللإصدار الذى تم التصميم واضافة المكتبات يتم تحديث خذخ المكتبات تبعا للاصدار الجديد والأحدث طيب أين المشكلة عند فتح نفس القاعدة بإصدار اوفيس أقل فى الاصدار من أخر اصدار أوفيس تم فتح القاعدة به المكتبات يمكن أن يحدث لها Upgrade ولكن ابدا لن يحدث لها downgrade للتبسيط اكثر تم اصدار قاعدة بيانات اكسس 2000 عند محاولة فتح القاعدة على اكسس 2003 تعمل بنجاح ولو تم فتح نفس القاعدة على اكسس 2007 تعمل ايضا بنجاح ولكن عند محاولة فتح نفس القاعدة على اكسس 2000 أو اكسس 2003 لن تعمل وستتوقف المكتبة عن العمل وسوف تحصل على Missing References لاى نوع من المكتبات التى تعتمد على اصدار الاوفيس طبعا هذه تمثل مشكلة كبيرة جدا فى استخدام القاعدة على شبكة محلية عند اختلاف نسخ الاوفيس طبعا وللاهمية هذا كما اشرت مسبقا للمكتبات المرهونة برقم اصدار الاوفيس الربط المسبق Early Binding: 1. ان تختار مكتبة الاكسل (طبعا لهذا المثال) ، 2. ثم الكود يكون شيء من هذا القبيل: Dim oExcel As Excel.Application Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True والمشكلة هنا ، انه اذا اخترت مكتبة اكسل الاقل (مثلا اكسل 😎 ، فأي كمبيوتر يحتوي على اكسل 8 او اكبر (9 ..12..15) فالمكتبة/البرنامج سوف يشتغل بطريقة صحيحه ، بينما اذا كان عندك اكسل 6 ، فستحصل على خطأ ، ولن يعمل الكود الميزة في هذه الطريقة انها اسرع في العمل ، والاهم من هذا ، انها تساعدك في اعطائك الاوامر (مثلا تكتب امر معين ثم تكتب نقطة . فتظهر لك الاوامر التي تستطيع استعمالها). اما اذا استعملنا الربط المتأخر Late Binding فإننا لا نحتاج الى اختيار مكتبة الاكسل ، ونكتب الكود اعلاه هكذا ، والذي يشتغل على جميع اصدارات الاكسل: Dim oExcel As Object Set oExcel = CreateObject("Excel.Application") oExcel.Visible = True المشكلة هنا ، اننا يجب ان نعتمد على انفسنا لعمل الكود ، فالاكسس لن يساعدنا ، وهو ابطأ نوعا ما ونسبيا من الطريقة الاولى

طيب ايه رايك فى عمل مقارنة سريعة الكود بتاع حضرتك لازم ولابد وحتما انك تستدعى المكتبة ' Requires reference to Microsoft Office 11.0 Object Library. طبعا الرقم 11 سوف يتغير تبعا لاصدار الاوفيس يعنى يحصل مشكلة لو كان ' Requires reference to Microsoft Office 16.0 Object Library. وخيشتغل على اكسس اصدار اقل الكود المستخدم فى السؤال لا يعتمد على مكتبات

طيب يا باش مهندس انا اكتشفت السبب اخيرا فى المشكلة عندى انا كنت فاتح اكثر من قاعدة اعدل على واحدة واجرب على واحدة تانى خالص منشان هيك ما كنت احصل اى نتيجة وشكيت فى نفسي ما انتبهت الا الان وعلى كل جزاكم الله خيرا ولارد بضاعتكم اليكم يا باش مهندس @Eng.Qassim سوف استخدم الكود بهذا الشكل If Nz(strOptionExtension, "") = "" Then .Filters.Add "Select File", "*.*" Else: .Filters.Add "Select File", strOptionExtension

والله لى ساعتين اعمل الكود بالطريقة دى ومش عارف فى ايه سبحان الله جزاكم الله حيرا ---------------------------- انا ما بعض

السلام عليكم واتتنى فكرة كتابة روتين عام متعدد الخيارات لتكون وظيفته كالاتى احضار مسار ما احضار مسار لملف محدد مع المرونة فى تغيير الامتداد تبعا للاستخدام المطلوب وتوقفت عند محاولة تمرير الامتداد من خلال استخدام المتغير strOptionExtension وتحديد فى هذا السطر المن الكود .Filters.Add "Select File", "*.jpg , *.png" اريد استبدال جزء الامتداد على ان يكون بهذا الشكل .Filters.Add "Select File", strOptionExtension وولاسف فشلت كل محاولاتى Function CustomPicker(Optional ByRef btOptionDialog As Byte = 0, Optional ByRef strOptionExtension As String = "") Dim FileDialog As Object Dim sPath As String Dim sFile As String Select Case Nz(btOptionDialog, 0) 'FilePicker Case Is = 0 Set FileDialog = Access.Application.FileDialog(3) With FileDialog .allowmultiselect = False .Filters.Clear .Filters.Add "Select File", "*.jpg , *.png" If .show = -1 Then .Title = "Please select a File" CustomPicker = .SelectedItems(1) End With 'FolderPicker Case Is = 1 Set FileDialog = Access.Application.FileDialog(4) With FileDialog .allowmultiselect = False .Filters.Clear If .show = -1 Then .Title = "Please select a Folder" CustomPicker = .SelectedItems(1) End With End Select End Function

وهذ الكود ان شاء الله يفى بالغرض كما هو المطلوب Public Function MultiReplacements(Optional ByVal strInput As String = "") As String If Nz(strInput, "") = "" Then Exit Function strInput = Replace(strInput, "ي ", "ى " & "") strInput = Left(strInput, Len(strInput) - 1) + Replace(Right(strInput, 1), "ي", "ى") strInput = Replace(strInput, "ة", "ه" & "") strInput = Replace(strInput, "عبدال", "عبد ال" & "") strInput = Replace(strInput, "عبدرب", "عبد رب" & "") MultiReplacements = strInput End Function وطبعا لتجنب حدوث اى مشاكل بسبب استخدام الاحرف العربية داخل محرر الاكواد افضل استخدام الكود الاتى Public Function MultiReplacements(Optional ByVal strInput As String = "") As String If Nz(strInput, "") = "" Then Exit Function strInput = Replace(strInput, ChrW(1610) & ChrW(32), ChrW(1609) & ChrW(32) & "") strInput = Left(strInput, Len(strInput) - 1) + Replace(Right(strInput, 1), ChrW(1610), ChrW(1609)) strInput = Replace(strInput, ChrW(1577), ChrW(1607) & "") strInput = Replace(strInput, ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(1575) & ChrW(1604), ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(32) & ChrW(1575) & ChrW(1604) & "") strInput = Replace(strInput, ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(1585) & ChrW(1576), ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(32) & ChrW(1585) & ChrW(1576) & "") MultiReplacements = strInput End Function

ههههههه اى خدمه علشان تعرف بس انا مصحصح باقى استبدال احرف ال ة الى ه والياء ي فى اخر الكلمة الى ى

طيب اولا اهلا استاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @ابوخليل ادامكم الله فوق رؤسنا انت وكل اساتذتنا الكرام لازلت المشكلة قائمة لو كتبنا مثلا احمد العبدان عبد الله نحصل على احمد العبد ان عبد الله يمكننا اضافة بعد التعديلات للحصول على الاسم بدون عدد 2 مسافة لكن عائلة العبدان إن حضرت الينا ماذا نفعل معهم ؟ وحتى لاتزعل منا عائلة العبدان نستخدم هذا الكود Dim i As String Me.txt1.SetFocus i = Me.txt1.Value i = Replace(i, "عبدال", "عبد ال" & "") i = Replace(i, "عبدرب", "عبد رب" & "") Me.txt1 = i

وأخيرا ً بحمد الله الذى تتم بنعمته الصالحات ضع للكود الاتى فى وحدة نمطيه Public Function MultiReplacements(ByVal varInput As String, ParamArray varReplacements() As Variant) On Error GoTo ErrorHandler Dim n As Integer Dim varOutput As Variant Dim intParamsCount As Integer If Nz(varInput, "") = "" Then Exit Function ' varInput = Nz(varInput, 0) 'If Not IsNull(varInput) Then If Len(varInput & "") > 0 Then intParamsCount = UBound(varReplacements) + 1 If intParamsCount Mod 2 = 0 Then varOutput = varInput For n = 0 To UBound(varReplacements) Step 2 varOutput = Replace(varOutput, varReplacements(n), varReplacements(n + 1)) Next n Else Exit Function End If End If MultiReplacements = varOutput ExitHandler: Exit Function ErrorHandler: Select Case Err.Number Case Is = 94: Resume ExitHandler Case Else MsgBox "Error Number : " & Err.Number & vbNewLine & "Error Description : " & Err.Description Resume ExitHandler End Select End Function Public Function ReplaceResult(ByVal strInput As String) If Nz(strInput, "") = "" Then Exit Function ReplaceResult = MultiReplacements(strInput, ChrW(1577), ChrW(1607), _ ChrW(32), ChrW(32), _ ChrW(1610) & ChrW(32), ChrW(1609) & ChrW(32), _ ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(1575) & ChrW(1604), ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(32) & ChrW(1575) & ChrW(1604), _ ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(32), ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(1575) & ChrW(1604) & ChrW(32), _ ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(1585) & ChrW(1576) & ChrW(32), ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(32) & ChrW(1585) & ChrW(1576) & ChrW(32), _ ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(1605) & ChrW(1575) & ChrW(1604) & ChrW(1603), ChrW(1593) & ChrW(1576) & ChrW(1583) & ChrW(32) & ChrW(1605) & ChrW(1575) & ChrW(1604) & ChrW(1603) _ ) End Function ويتم استدعاءه كالتالى ReplaceResult([txt]) واخيرا المرفق الاسماء المركبة.accdb

ابشر بالخير ان شاء الله جارى العمل على اعداد الكود

يا استاذ @رولي اتفضل راجع الموضوع الاتى قمت بالتطوير على الاكواد لاضافاء مرونى فى التعامل مع الاصوات ذوات الامداد MP3 , WAV ودائما احاول قدر المستطاع عند كتابة الأكواد مراعاة التعامل مع كلتا النواتان 32x , 64x

جزاكم الله خيرا

https://www.cdata.com/kb/tech/mysql-odbc-access-linked-tables.rst

نعم

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