Moosak

شكرا لك أخي محب العقيدة 🙂 فعلا موقع رهيييييييييييييييب جدا جدا .. جربته وهذه بعض النتائج : (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

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

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

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

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

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

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

هذي النقطة أعتقد ليس لها علاقة بالكود وإنما بتضبيطات بريد الياهو عندك .. فقد حصلت معي سابقا .. ****************************************************************************************** هذا السطر الذي ذكرته لك ( أزل الرمز ( ' ) من أمامه) : وبعد التفعيل تم ارسال المرفق بنجاح : ****************************************************************************************** وبالنسبة لفحص الاتصال بالانترنت استخدم هذا الكود (يوضع في موديول عام) : #If VBA7 Then Private Declare PtrSafe Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef dwFlags As Long, _ ByVal dwReserved As Long) As Boolean #Else Private Declare Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef dwFlags As Long, _ ByVal dwReserved As Long) As Boolean #End If Function Is_Connected() As Boolean Dim IEStat As Long Is_Connected = (InternetGetConnectedState(IEStat, 0&) <> 0) End Function Public Sub TestInternetConnection() If Is_Connected() = True Then MsgBox "Connected" Else MsgBox "Not Connected" End If End Sub ثم يتم استدعاء أحد الدالتين التاليتين : Connected() هذه تعطيك نتيجة نعم/ لا على الإتصال TestInternetConnection() وهذه تظهر لك رسالة تخبرك إن كان متصل أم لا ****************************************************************************************** وأنا أريدك أن تتعلم كيفية التعامل مع الأكواد أخي @حمدى الظابط 🙂

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