Moosak

مبارك عليك الترقية أخي @Ahmed_J .. 🙂🌹 إضافة ثمينة للمنتدى وجوهرة تضاف لهذا العقد الجميل 🙂

جرب هذا : 🙂

شكرا جزيلا أخي @Hamtoooo .. هدية مقبولة 🙂 تصميم رائع وراقي ماشاء الله تبارك الرحمن 😎

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

للفائدة هذي دالة Function وضيفتها تعيين الخواص لقاعدة البيانات .. وفي حال لو لقيها ما موجودة ينشأها 🙂 Public Enum propType PropTypeString = 1 PropTypeInteger = 2 PropTypeDouble = 3 PropTypeBoolean = 4 PropTypeDate = 5 End Enum Function CreateProperty(propName As String, propType As propType, propValue As Variant) ' Chat GPT On Error Resume Next Dim app As dao.Database Set app = CurrentDb app.CreateProperty propName, propType, propValue, True If Err.Number <> 0 Then ' Property already exists, set the value app.Properties(propName) = propValue End If On Error GoTo 0 End Function وتناديها بهذي الطريقة : Call CreateProperty("MyProperty", PropTypeString, "Hello World!")

وهنا أيضا قمت بعمل كود لإضافة السجلات وترقيمها 🙂 وهذا هو الكود : Sub Add_2000_Record() Dim x As Long For x = 1 To 2000 CurrentDb.Execute "INSERT INTO Ta1 ( IDD ) VALUES (" & x & ");" Next End Sub إضافة2000سجل.rar

أخي مصطفى .. الأكسس يقدم لك طرق سهلة لاستيراد البيانات من مصادر خارجية كالأكسل أو قاعدة أكسس أخرى أو قواعد البيانات الأخرى .. وسائل غير النسخ واللصق 🙂 وكان سؤال المهندس جعفر عن مكان تخزين بيانات هؤلاء ال 2000 موظف لينطلق بك وبنا إلى الوسائل السهلة لاستيراد هذه البيانات لبرنامجك .. 🙂

هناك حيل عديدة يمكن للمستخدم أن يفعلها للتحايل على هذه الخطوة .. منها الضغط على Alt+F4 وأيضا Alt+Ctrl+Delete ومنها Ctrl+W 🙂 وعلى العموم .. ممكن تستخدم نفس كود التحقق من كلمة المرور والباسوورد ولكن بدل فتح النموذج تكتب : DoCmd.Quit

الكلام غير مفهوم أخي طاهر .. !! 🙃

على فكرة قمت بتجربة الكود وعمل معي بنجاح 🙂 أولا : أحضرت رابط لنموذج ملف txt من هذا الموقع والذي يوفر لك نماذج Samples جاهزة للتحميل بروابط مباشرة لكل أنواع الملفات : https://filesamples.com وهذا كان رابط الملف النصي : https://filesamples.com/samples/document/txt/sample2.txt وعملت نموذج بسيط للتجربة وهذه هي النتيجة : 🙂 Read Online Txt File.accdb

ومادام ال 00 عاملالك مشكلة خليها 11 ولا 22 ولا 33 مش هتفرق معاك 😅

ما دامك مصر أنه الموضوع ما يحتاج مثال .. 🙂 استخدم هذا الكود على زر أمر بحيث تغير رابط الملف النصي وتغير اسم مربع النص اللي بيلصق النص فيه : Private Sub btnGetText_Click() ' Declare variables to hold the text from the online file and the textbox Dim strText As String Dim txtTarget As TextBox ' Set the URL of the online text file Dim strURL As String strURL = "http://www.website.com/text.txt" ' Use the XMLHTTP object to retrieve the text from the online file Dim objXMLHTTP As Object Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send ' Check if the request was successful If objXMLHTTP.Status = 200 Then ' Get the text from the response strText = objXMLHTTP.responseText ' Get a reference to the textbox on the form Set txtTarget = Me.txtTextBox ' Put the text from the online file into the textbox txtTarget.Value = strText Else ' Show an error message if the request was not successful MsgBox "There was an error retrieving the text from the online file." & vbCrLf & _ "HTTP Status: " & objXMLHTTP.Status, vbExclamation End If ' Clean up Set objXMLHTTP = Nothing Set txtTarget = Nothing End Sub

شكرا لك يا @محب العقيدة 🙂 يحتاجلي مدة لحد ما أبلع الموضوع بشكل مضبوط 😅 طيب سؤال : بالنسبة للبرامج المعروفة مثل الفوتوشوب وبرامج الأوفيس وغيرها .. أيش من قواعد البيانات تستخدم ؟ وفي الغالب أنه أثناء تنصيبها مايجي طاري الـ sqlserver لتنصيبه معها .. ولا أنها تستخدم قواعد بيانات من نوع آخر ؟

أخي مالك .. أعطنا مثال حي لما تريده بالضبط ... ( رابط حقيقي + النص الذي تريد نقله بالضبط )

أهلا بك أخي مالك في المنتدى .. 🙂 رابط الملف لايعمل .. ! ولكن ما يدور في ذهني الآن هو تحميل الملف بشكل مؤقت في الجهاز ، ثم فتح الملف ونسخ ما فيه إلى مربع النص في النموذج .. وبعدها حذف الملف المؤقت .. كل ذلك عن طريق الأكواد .. شريطة أن يكون الرابط للملف مباشر .. وليس من مواقع التحميل التي تلف بك وتدور لحد ما تعطيك رابط التحميل 🙂 وربما هناك طريقة أسهل لا أعلمها 🙂

وعليكم السلام ورحمة الله وبركاته أخي @محب العقيدة 🙂 موضوع جميل جدا ويجيب على السؤال الماضي عن كيفية حفظ الملفات في قاعدة SQL .. شكرا لك على وقتك وجهدك الرااائع .. 🙂🌹 السؤال القادم هو : كيف تتعامل مع ملفات قاعدة الـ SQL وتنصبها في جهاز العميل كقاعدة محلية ؟ وكيفية ضبط جهاز العميل ( أهم الإعدادات الضرورية الأساسية ) ؟ وكيف يمكنني حملها من جهاز إلى آخر لي كمبرمج شخصيا عندما أكون أعمل على جهازين غير مرتبطين بشبكة ؟ مثلا هل يمكن العمل عليها وهي في فلاشة USB ؟ سؤال آخر : كيف نعمل نسخ احتياطي تلقائي لقاعدة البيانات عن طريق الكود مثلا ؟ وكيف نسترجع القاعدة من أحد النسخ الاحتياطية فيما لو تلفت القاعدة الأصلية ؟ هذه الأسئلة تأتي من باب معرفتي المتواضعة بأن قاعدة الأكسس جميعها في ملف واحد يسهل نقله .. بينما الـ SQL لها عدة ملفات مترابطة ببعضها .. ( فقط ما متخيل كيف يتم الموضوع 🙃 )

أهلا بك مجددا يا عزرائيل 🙂 هل من المفترض أن يقوم البرنامج بتحويل ملفات ال PDF إلى صور ؟ لم يعمل معي ..

كيف ؟ 🙂

شكرا لك على التوضيح أستاذنا أبو أحمد 🙂 وأعتقد أننا نحتاج منك لتحليل للنتائج الأخيرة للمفاضلة بين الطرق التي ذكرتها 🙂 --------------------------- وفي ذات الموضوع .. وجدت في أحد المواقع دالة اسمها IsBlank وظيفتها فحص وجود البيانات من عدمه لجميع الأنواع، وأنا أستخدمها وتعمل معي بكفاءة عالية 🙂 : '----------------------------------------------------------------------------- ' True if the argument is Nothing, Null, Empty, Missing or an empty string . '----------------------------------------------------------------------------- Public Function IsBlank(arg As Variant) As Boolean Select Case VarType(arg) Case vbEmpty IsBlank = True Case vbNull IsBlank = True Case vbString IsBlank = (LenB(arg) = 0) Case vbObject IsBlank = (arg Is Nothing) Case Else IsBlank = IsMissing(arg) End Select End Function وتناديها بهذا الشكل : IsBlank(Me.UserNameTxt) ----------------------------------------مثال آخر If IsBlank(Me.CustomerReferenceTxt) Then MsgBox "Customer Reference cannot be left blank." End If المصدر

هنا جهزتلك نموذج البيانات الشهرية عشان يشتغل وحده 🙂 بيانات الأعضاء - 2.accdb

ممكن يكون في نموذجين بس يحتاج حيلة لعملها 🙂 لكن في جميع الأحوال لدواعي الربط بين الجدولين لازم تكون بيانات الأعضاء حاضرة علشان تسجل في جدول البيانات الشهرية ( وخصوصا إذا كان في نموذج منفصل ..

مرحبتين راعي بلادي 🙂 1 - هذي ما تستوي في الجدول لذلك سويتلك استعلام اسمه Byanat_AlAdaa_Q .. والسبب عدم وجود دالة DateAdd اللي تضيف عدد المدة بالأشهر في الحقل المحسوب بالجدول . 2 - تم الربط وإضافة حقل ID لجدول البيانات الشهرية من باب التنظيم. 3- تم عمله بجعل الفورمات يساوي -0 . 4- النموذج مبني بطريقة غير صحيحة .. المفروض جدول البيانات الشهرية يكون نموذج فرعي لنموذج بيانات الأعضاء .. والبحث يكون في بيانات الأعضاء .. سويته لك بذي الطريقة : ملاحظة أخيرة صاحبي : حاول تسمية جميع الكائنات ( الجداول- الاستعلامات - النماذج _ ووووووو) بالانجليزي دائما .. 🙂 بيانات الأعضاء.accdb

وعليكم السلام ورحمة الله وبركاته .. 🙂 تم التعديل أخي أحمد .. الآن الدالة تستقبل مدخل أو متغير إضافي وهو (متزوج ؟) من نوع : نعم/لا - True/False : Function FinedSubSalary(Salary As Double, NumOfChiledren As Integer, Optional IsMarried As Boolean = True) As Double ' Moosak Dim DB As DAO.Database Dim RS As DAO.Recordset Dim x As Integer FinedSubSalary = 0 If IsMarried = False Then Exit Function Set DB = CurrentDb Set RS = DB.OpenRecordset("tp1") RS.MoveLast RS.MoveFirst If RS.EOF Then GoTo Finish: For x = 1 To 110 If RS(x) = Salary Then FinedSubSalary = DLookup("[" & x & "]", "tp1", "Id=" & NumOfChiledren) 'Debug.Print x, Salary GoTo Finish: End If Next Finish: RS.Close Set RS = Nothing Set DB = Nothing Exit Function End Function إذا متزوج تشتغل الدالة وإذا أعزب تعطيك صفر .. وعشان تشتغل زين مع القائمة المنسدلة يلزمنا نحول العبارات (متزوج/أعزب) إلى صيغة (نعم/لا) وهكذا كانت الصيغة في مصدر بيانات مربع النص : =FinedSubSalary([xx];[عدد الاطفال];IIf([الحالة الاجتماعية]="متزوج";True;False)) وهذي هي النتيجة النهائية salary - Moosak - 2.rar

وعليكم السلام أخي أحمد 🙂 الأفضل أن ترفق ملف الأكسس .. العملي أفضل من النظري 🙂