Moosak

أهلا بك أخي @nssj 🙂 بداية أشكر أخي @محب العقيدة على الموقع الرائع الذي أشار إليه في هذا الموضوع : اداة بحث ثورية 😊🌹 وقد طلبت من الموقع أن يعطيني كود يستخرج الأرقام ( فقط ) من بين هذه الأقواس {} .. من أي جملة .. وقد أعطاني هذا الكود ( قمت بعمل بعض التعديلات البسيطة وتحويله إلى دالة 🙂 ) : Public Function ExtractNumbers(text As String) As String ' This Code extract only numbers from a text if they are surrounded by these characters "{}" Dim i As Integer Dim num As String Dim result As String 'text = "The value of x is {3} and the value of y is {7}" result = "" For i = 1 To Len(text) If Mid(text, i, 1) = "{" Then ' Found the start of a number num = "" Do While Mid(text, i, 1) <> "}" ' Check if the current character is a numeric character If IsNumeric(Mid(text, i, 1)) Then num = num & Mid(text, i, 1) End If i = i + 1 Loop ' Found the end of the number, so add it to the result result = result & num & " " End If Next ' result now contains the numbers from the text, separated by spaces 'Debug.Print result ExtractNumbers = Trim(result) End Function والنتيجة رهييييييييييبة بصراحة ونااااااااااااجحة 100% 😄👌🏼 مثال بعد التطبيق : وهذه الجزئية لم أفهمها في طلبك .. 🙂 MZ_MNO.rar

مما لاحظته أن دالة التشفير الأخيرة ناقصة غير مكتملة .. وأما الأخريات جربتها وهي تعمل تمام التمام 🙂 ثم طلبت منه أن يكملها 😅 فأعطاني : ' Function to decrypt a string using the CryptoAPI Function DecryptString(CipherText As String) As String Dim Data() As Byte Dim PlainText() As Byte Dim DataLen As Long Dim PlainTextLen As Long Dim hCryptProv As Long Dim hKey As Long Dim AlgID As Long ' Convert the cipher text string to a byte array Data = StrConv(CipherText, vbFromUnicode) DataLen = UBound(Data) + 1 ' Set the encryption algorithm and key size AlgID = CALG_RC4 hKey = 0 ' Get a handle to the default encryption provider If CryptAcquireContext(hCryptProv, vbNullString, vbNullString, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) Then ' Generate a random session key If CryptGenKey(hCryptProv, AlgID, KEYLEN_256, hKey) Then ' Allocate a buffer for the plain text ReDim PlainText(DataLen) PlainTextLen = DataLen ' Decrypt the data If CryptDecrypt(hKey, 0, True, 0, PlainText(0), PlainTextLen) Then ' Convert the plain text to a string and return it DecryptString = StrConv(PlainText, vbUnicode) End If End If End If ' Release the encryption provider and key handles If hKey Then CryptDestroyKey hKey If hCryptProv Then CryptReleaseContext hCryptProv, 0 End Function

شكرا لك أخي محب العقيدة 🙂 فعلا موقع رهيييييييييييييييب جدا جدا .. جربته وهذه بعض النتائج : (1)----------------------------------------------------------------------------- سألته أن يكتب لي كود يولد نص عشوائي مختلط حروف ورموز وأرقام ، فأعطاني هذا : Function GenerateRandomString(Length As Integer) As String Dim i As Integer Dim RandomChar As String Dim RandomString As String Randomize For i = 1 To Length ' Generate a random number between 48 and 122 (ASCII values for 0-9, a-z, and A-Z) RandomChar = Chr(Int((122 - 48 + 1) * Rnd + 48)) RandomString = RandomString & RandomChar Next i GenerateRandomString = RandomString End Function وتناديه هكذا : Dim RandomString As String RandomString = GenerateRandomString(8) (2)----------------------------------------------------------------------------- سألته أن يكتب لي كود يعطيني رقم عشوائي بين رقمين .. فأعطاني هذا : RandomNumber = Int((UpperBound - LowerBound + 1) * Rnd + LowerBound) أو Dim RandomNumber As Integer Randomize RandomNumber = Int((10 - 1 + 1) * Rnd + 1) (3)----------------------------------------------------------------------------- سألته أن يكتب لي كود يقوم بتشفير النصوص وكود آخر لفك الشيفرة فأعطاني هذا : ' Function to encrypt a string using the CryptoAPI Function EncryptString(PlainText As String) As String Dim Data() As Byte Dim CipherText() As Byte Dim DataLen As Long Dim CipherTextLen As Long Dim hCryptProv As Long Dim hKey As Long Dim AlgID As Long ' Convert the plain text string to a byte array Data = StrConv(PlainText, vbFromUnicode) DataLen = UBound(Data) + 1 ' Set the encryption algorithm and key size AlgID = CALG_RC4 hKey = 0 ' Get a handle to the default encryption provider If CryptAcquireContext(hCryptProv, vbNullString, vbNullString, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) Then ' Generate a random session key If CryptGenKey(hCryptProv, AlgID, KEYLEN_256, hKey) Then ' Allocate a buffer for the cipher text ReDim CipherText(DataLen) CipherTextLen = DataLen ' Encrypt the data If CryptEncrypt(hKey, 0, True, 0, CipherText(0), CipherTextLen, DataLen) Then ' Convert the cipher text to a string and return it EncryptString = StrConv(CipherText, vbUnicode) End If End If End If ' Release the encryption provider and key handles If hKey Then CryptDestroyKey hKey If hCryptProv Then CryptReleaseContext hCryptProv, 0 End Function ' Function to decrypt a string using the CryptoAPI Function DecryptString(CipherText As String) As String Dim Data() As Byte Dim PlainText() As Byte Dim DataLen As Long Dim PlainTextLen As Long Dim hCryptProv As Long Dim hKey As Long Dim AlgID As Long ' Convert the cipher text string to a byte array Data = StrConv(CipherText, vbFromUnicode) DataLen = UBound(Data) + 1 ' Set the encryption algorithm and key size AlgID = CALG_RC4 hKey = 0 ' Get a handle to the default encryption provider If CryptAcquireContext(hCryptProv, vbNullString, vbNullString, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT) Then ' Generate a random session key If CryptGenKey(hCryptProv, AlgID, KEYLEN_256, hKey) Then ' Allocate a buffer for the plain text ReDim PlainText(DataLen) PlainTextLen = DataLen ' Decrypt the data If CryptDecrypt(hKey, 0

ويمكنك استخدام السطر التالي لتحديث جميع الحقول 🙂 : CurrentDb.Execute "UPDATE TableName SET FieldName = 'النص المراد إضافته' "

مهندسنا العزيز 🙂.. من الملاحظات على المرفق .. 1ـ الأرقام من نوع Integr. يحتاج تكون Double أو عملة علشان تقبل الفواصل .. الحين البرنامج يقربها فيطلع المجموع بالزيادة .. 2ـ التاريخ ما يزيد شهر في الأقساط .. يضل يكتب تاريخ أول قسط ..

عمي جعفر وكيف تخلي الترقيم المسلسل في القائمة اليسرى يكمل على القائمة اليمنى؟ 🙂

من خلال البحث حول نفس هذا الموضوع وجدت هذا الموضوع الذي به كود يخفي المجلد بتحويله إلى مجلد نظام ولكن سوف يتغير التعامل مع الملفات الداخلية للمجلد المخفي ..

شكرا لك عمي @الحلبي 🙂🌹 .. تأخرت عليك في الرد ولما رجعت وجدت كل شيء جاهز 😅 ..

لا يأس مع الحياة .. بعض الحلول تجيك بعد 14 سنة 😂

وعليكم السلام ورحمة الله وبركاته 🙂 ربما تحتاج لتعديل تنسيق ( Format ) حقل التاريخ في النموذج بهذه الصورة : dd/mm/yyyy

وعليكم السلام ورحمة الله وبركاته أخي مصطفى 🙂 موضوعك مشابه لهذا الموضوع :

وعليكم السلام ورحمة الله وبركاته أخي حسين 🙂 تفضل الحل : وهذا أمر الترقيم ( في حال لم تضع الرقم ، سيبدأ تلقائيا من الرقم 1 ) : Dim dbs As DAO.Database Dim rst As DAO.Recordset Dim x As Double x = Nz(StartNumTxt.Value, 1) Set dbs = CurrentDb Set rst = dbs.OpenRecordset("tabol_1") ' بين القوسين اسم الجدول/ الاستعلام أو جملة السيكول rst.MoveLast rst.MoveFirst Do Until rst.EOF rst.Edit rst!id_1 = x rst.Update rst.MoveNext x = x + 1 Loop Me.Requery rst.Close Set dbs = Nothing Set rst = Nothing ترقيم تلقائي يبدأ من رقم محدد.rar

وضعت هذه الفكرة في الحسبان في التحديث القادم إن شاء الله .. وكذلك إمكانية استقبال عدد لا محدود من المعايير في الدالة .. كل هذه مجرد أفكار لا أعلم كيفية تطبيقها بعد 😅 وإذا كانت لديك أفكار إضافية ياريت تتحفني بها أخي العزيز @ابو البشر 😊

والعذر منك أخي @biskra لم أر ردك إلا لاحقا 🙂🌹

نعم ممكن 🙂 ويمكن عمل ذلك بكل سهولة بأربعة معايير مختلفة .. ومختلف أنواع البيانات عن طريق الأداة التالية :

وبالنسبة لطلبك الثاني ضع هذا الكود في زر فتح ال PDF : Dim DesktopPath As String DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") DoCmd.OpenReport "t1", acViewReport DoCmd.OutputTo acOutputReport, "t1", "*.pdf", DesktopPath & "\t1.pdf", True, , , acExportQualityPrint

بالإضافة إلى ما قاله أخي محمد البرناوي 🙂 ضع هذه الإعدادات للتقرير : ثم ضع هذين السطرين عند الفتح : DoCmd.Maximize DoCmd.Restore جرب الآن فتح التقرير .. سيظهر عندك بهذه الصورة : قم بتغيير حجمه بالطريقة التي تريده أن يظهر بها .. ثم اضغط على ( Ctrl + S ) من الكيبورد ( أي حفظ الوضعية التي عليها الآن : بعدها سوف يظهر لك التقرير دائما بهذه الصورة 🙂☝

تفضل( مع العلم أن الملف ليس لي ، وأضنه من إبداعات أحد أعضاء المنتدى ) 🙂 : حالة الاتصال بالنت.accdb

هذا المرفق فيه مثال مشابه 🙂 حالة الاتصال بالنت.rar

وعليكم السلام ورحمة الله وبركاته أخي المهندس أحمد 🙂🌹 هذي بركات درجة الخبير ما شاء الله تبارك الرحمن .. 😄 للأسف ما وجدت فرصة أجرب الأداة مع توقعي للنتيجة بأن تكون رائعة كروعتك 🙂 إن شاء الله تكون لنا مراجعة لهذا الموضوع لاحقا .. وأن يأخذ هذا الموضوع حقه من الاهتمام وتسليط الضوء 👍🏼😉

شكرا جزيلا على المشاركة 🙂🌷

شكرا لك دكتور .. ربي يبارك فيك ويجزيك خير الجزاء 😊🌹🌷

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

أعتقد أن الأخ فؤاد يقصد أن تكون هناك نسختان من الجداول : جداجداول محلية وجداول مرتبطة بالقاعدة الأخرى ( الاحتياطية ) .. فما يتم تسجيله في الجداول المحلية يتم نسخه تلقائيا في الجداول المرتبطة ..

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