ابو تراب

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

هلا اخي ليس لدي فكرة عن التعارض لهذا ممكن احد الاعضاء الكرام يساعد في الحل

عملت لك مثال و كلمة السر 1234 كما نصح الاخوة الكرام يجب تامين الكود بالتوفيق Test.accdb

بما انك لديك خبرة بالاكسس فربما من الافضل ان تبحث عن SQL Server اذ يمكنك من ربطه بلاكسس

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

هلا اخي لسبب ما لم يعمل المثال الذي ارفقت عملت لك المثال التالي بالتوفيق pictures.zip

في حالة الرغبة في استخدام صلاحيات المستخدمين يمكنك تشفير كلمات السر احدى الدوال Public Const Salt As Long = 937267 Public Function Encrypt(strIn As String) As String Dim strChr As String Dim i As Integer For i = 1 To Len(strIn) strChr = strChr & CStr(Asc(Mid(strIn, i, 1)) Xor Salt) Next i Encrypt = strChr End Function بالتوفيق

هلا اخي كفكرة يمكنك جلب التاريخ من النت هذا الموقع لديه فكرة جلب التاريخ من النت مثال لجلب التاريخ من الانترنت Function InternetTime(Optional GMTDifference As Integer) As Date '----------------------------------------------------------------------------------- 'This function returns the Greenwich Mean Time retrieved from an internet server. 'You can use the optional argument GMTDifference in order to add (or subtract) 'an hour from the GMT time. For Example if you call the function as: '=InternetTIme(2) it will return the (local) hour GMT + 2. Note that the 'GMTDifference variable is an integer number. 'Written by: Christos Samaras 'Date: 25/09/2013 'Last Updated: 10/01/2017 'e-mail: xristos.samaras@gmail.com 'site: https://myengineeringworld.net///// '------------------------------------------------------------------------------- 'Declaring the necessary variables. Dim Request As Object Dim ServerURL As String Dim Results As String Dim NetDate As String Dim NetTime As Date Dim LocalDate As Date Dim LocalTime As Date 'Check if the time difference is within the accepted range. If GMTDifference < -12 Or GMTDifference > 14 Then Exit Function End If 'The server address. ServerURL = "http://www.timeanddate.com/worldclock/fullscreen.html?n=2" 'Build the XMLHTTP object and check if was created successfully. On Error Resume Next Set Request = CreateObject("MSXML2.ServerXMLHTTP.6.0") If Err.Number <> 0 Then Exit Function End If On Error GoTo 0 'Create the request. Request.Open "GET", ServerURL, False, "", "" 'Send the request to the internet server. Request.Send 'Based on the status node result, proceed accordingly. If Request.ReadyState = 4 Then 'If the request succeed, the following line will return 'something like this: Mon, 30 Sep 2013 18:33:23 GMT. Results = Request.getResponseHeader("date") 'Use the Mid function to get something like: 30 Sep 2013 18:33:23. Results = Mid(Results, 6, Len(Results) - 9) 'Use the Left and Right function to distinguish the date and time. NetDate = Left(Results, Len(Results) - 9) '30 Sep 2013 NetTime = Right(Results, 8) '18:33:23 'Convert the date into a valid Excel date 30 Sep 2013 -> 30/9/2013. 'Required for countries that have some non-Latin characters at their alphabet (Greece, Russia, Serbia etc.). LocalDate = ConvertDate(NetDate) 'Add the hour difference to the retrieved GMT time. LocalTime = NetTime + GMTDifference / 24 'Return the local date and time. InternetTime = LocalDate + LocalTime End If 'Release the XMLHTTP object. Set Request = Nothing End Function ?InternetTime() 4/27/2020 10:57:24 AM بالتوفيق

هلا اخي جرب هذا المرفق مع بعض التعديلات..الفورم على اعدادت الادخال بالتوفيق Test3_UPDATED.accdb

المشكلة ان الاستعلام لم يشمل الID تبع الجدول التاني تم التعديل بالتوفيق Test3_UPDATED.accdb

هلا اخي جرب المرفق تستطيع البحث بالرقم او الاسم Test2_UPDATED.accdb

الف الف مبروووووك اخي @husamwahab و من نجاح الى نجاح

هلا اخي تم التعديل الفكرة هى ضم كل الاسطر في الجدولين...اضفت سطر 8 لجدول IN للتوضيح بالتوفيق TEST-UPDATED.accdb

هلا اخي... هل هذا طلبك نفذ الاستعلام Q_IN_OUT_ALL TEST.accdb

اخي هل هذا ماتريد Test.accdb

هلا اخي شكرا على الدالة ملاحظة سريعة الدالة تعيد قيمة خطا كما في المثال التالي... فالقيمة المتوقعة 15 يوما بينما عادت 18 يوما ?YMD_Diff(DateSerial(1970, 3, 1),DateSerial(2020, 2, 15),,,,True) 49y/11m/18d عدلت في الكود الى التالي: inDate2 = inDate2 + Abs(AddOneDay) والنتيجة كالتالي: ?YMD_Diff(DateSerial(1970, 3, 1),DateSerial(2020, 2, 15),,,,True) 49y/11m/15d ملاحظة : لم اختبر الدالة بشكل مكثف بالتوفيق

جزاك الله اخي محمد..اعجبتنا فكرة القائمة

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

وعليكم السلام احمد عدلت على الملف المرفق..جرب و خبرنا اسم المستخدم user1 و كلمة المرور 111 تحياتي Login Form.zip

اضغط احد ملفات الاكسل بصيغة zip ومن ثم ارفقه

حمل الصورة من المرفق 1.zip

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

جرب المرفق example.zip

هلا هذا ماتقصده جرب المرفق example.zip