نجوم المشاركات

تفضل 🙂 اذا كنت تريد هذه النتيجة: . فهذا هو الاستعلام: . وهذه جملة SQL الاستعلام: SELECT tb1.الحقل7 FROM tb1 WHERE (((tb1.الحقل7) Is Not Null)) ORDER BY Int(Mid([الحقل7],InStr([الحقل7],"/")+1)), Int(Mid([الحقل7],1,InStr([الحقل7],"/")-1)); جعفر 1414.2.t1.accdb.zip

وعليكم السلام 🙂 اذا البرنامج بصيغة mdb او mde ، فنعم في برامج لفك كلمة السر ، ولكن لا يوجد برنامج لفك كلمة السر للبرامج بصيغة accdb او accde ، فكل البرامج عندها محاولات لفك كلمة السر 🙂 والحكم الانترنت ، ابحث ، وبتشوف النتائج 🙂 الاكسس بصيغة accdb لا يمكن كسر كلمة سره بسهوله وبالطرق الاعتيادية (يعني مستخدم عادي ويستعمل برامج مساعدة من الانترنت) ، وهنا حاول الاعضاء مساعدة اخوي سلمان . وعلى اساس طول كلمة السر ، وخلط الارقام والرموز فيها ، هنا نرى الوقت الذي يمكن ان تستغرقه (برامج محاولة الكشف عن كلمة السر) لكشف كلمة السر: فام اخونا @kaser906 بعمل نفس اللق تقوله ، بس بالاكسس جعفر

وعليكم السلام 🙂 1. في الاستعلام ، انت استخدمت المعيار Like "*" & "@@$ " & "*" وهذا معناه ابحث في الحقل ، وفي اي مكان منه تجد الجملة "@@$ " ، اعرض السجل ، بينما انت تريد الحقل الذي يبدأ بالجملة "@@$ " ، فيجب ان يصبح المعيار Like "@@$ " & "*" 2. يجب التدقيق في "ماذا يوجد نهاية اول سطر" ، حتى يمكننا اعطاء الامر لتفكيك اول سطر عن بقية بيانات الحقل . الطريقة الاولى هي استعمال الطريقة/الطرق من هذا الرابط . والطريقة الثانية ، هي استعمال برنامج يساعدنا في هذا ، وانا استخدم هذا البرنامج المجاني Notepad++ في جميع كمبيوترات عملي: https://notepad-plus-plus.org وعليه ، نرى هذه النتيجة لما وضعنا هذه الحقول في البرنامج اعلاه: . اذن تم معرفة ماهية نهاية الاسطر ، والاشارة/الرمز CR LF ، يمكن ترجمتها الى احد هاتين الجملتين (في الرابط اعلاه ، هنا جدول ascii وسنرى فيه هذه العلامة وقيمتها) : chr(13) او chr(10) ، او كليهما مع بعض ، ونحتاج الى التجربة للتأكد من استخدام ايهم. في الاستعلام ، في حقل جديد ، نضع : S: Mid([NASS], 1 , InStr([NASS],Chr(13)) ) نستخدم الامر Mid ، نقول فيه ، ابدأ من اول حرف في الحقل NASS ، ثم نستخدم الامر InStr لمعرفة اذا كانت الاشارة/الرمز chr(13) صحيح ، واين موقعه في السطر (او كما قلنا سابقا: CR ) ، هذا معناه ، الامر Mid يُظهر لنا نتائج من الحرف الاول الى المكان الذي نحصل عليه الرمز chr(13) ، وعلى اساس هذه النتيجة نقرر اذا كنا بحاجة الى استعمال chr(10) او لا ، وعند تشغيل الاستعلام ، تظهر لنا هذه النتائج : . اذن تجربتنا صحيحة ، وتم الحصول على السطر الاول ، 3. تحويل هذا الاستعلام الى استعلام الحاقي ، لنلحق هذه البيانات في الجدول TAB_Msaaneed ، في الحقل MS_NAME : . والنتيجة: . جعفر 1413.MZ.accdb.zip

وعليكم السلام ورحمة الله وبركاته ضع هذا الكود في ملفك وشغله ستجد ملف باسم ملف REEL_DATA_OF_NOVEMBER_2021.Xlsb بجوار ملفك Sub Total() Dim ws As Worksheet, temp As Variant, arr As Variant, F As Boolean, lr As Long Application.ScreenUpdating = False Application.EnableEvents = False Application.DisplayAlerts = False For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Total" And ws.Name <> "SUMMARY" And ws.Name <> "TIME" And ws.Name <> "HOLD" Then temp = ws.Range("A6:S" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Value2 If F Then Dim I As Long, ii As Long, ub As Long ub = UBound(arr, 1) arr = Application.Transpose(arr) ReDim Preserve arr(1 To UBound(arr, 1), 1 To ub + UBound(temp, 1)) arr = Application.Transpose(arr) For I = LBound(temp, 1) To UBound(temp, 1) For ii = 1 To UBound(temp, 2) arr(ub + I, ii) = temp(I, ii) Next ii Next I Else arr = temp F = True End If End If Next ws If Not Evaluate("isref('" & "Total" & "'!A1)") Then Sheets.Add.Name = "Total" With Sheets("Total") .Range("A2:S65536").ClearContents .Range("A1").Resize(1, 19).Value = Array("V", "HH", "J", "K", "L", "DD", "HH", "K", "L", "P", _ "GG", "S", "DF", "GH", "HJ", "KJ", "FGH", "G", "Remarks") .Range("A2").Resize(UBound(arr, 1), UBound(arr, 2)).Value2 = arr With .Range("A1:S" & .Cells(Rows.Count, 2).End(xlUp).Row) .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .RowHeight = 15 ActiveWindow.Zoom = 75 .EntireColumn.AutoFit .Borders.Value = 1 End With End With ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "REEL_DATA_OF_NOVEMBER_2021", FileFormat:=xlExcel12 Application.ScreenUpdating = True Application.EnableEvents = True Application.DisplayAlerts = True End Sub

لانك استخدمت اما الثيم الغامق للاوفيس 2019، او انك جعلت الفورم بوضعية ان التركيز عليه دائم، حتى يتم اغلاقه، وأنا لا اريد هذين الحلين هذا مثال كيف بدك تخلي الاطار اسود ؟ ex_01.accdb

السلام عليكم ورحمة الله وبركاته وبعد ... أخي العزيز أبا جودي وفقت اليوم من خلال التعديل إلى جعل الرمز أسرع في القراءة جدا من خلال التعديل على الوحدة النمطية modQRCode فجعلت عرض وطول الصورة 25 فقط بدلا من 200 و جعلت مستوى تعديل الأخطاء L بدلا من H كالتالي qrCodeOptions.Height = 25 qrCodeOptions.Width = 25 qrCodeOptions.CharacterSet = "UTF-8" qrCodeOptions.Margin = 1 qrCodeOptions.errorCorrection = ErrorCorrectionLevel_L وجزاكم الله خيرا على الرد والمتابعة

جرب هذا Book1.xlsx

اخى الكريم لجعل ملف التجميع منفصل كود بسيط قبل هذا السطر في الكود Application.ScreenUpdating = True ضع هذه الاسطر Sheets("Total").Move ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Total.xlsb", FileFormat:=xlExcel12

تفضل أخي أحمد ... استعلام آخر قسط Database11.accdb

لم الاحظ المسافة الزائدة 🙂 كما لاحظنا في مشاركتي اعلاه ، وبسبب وجود اشارتين/رمزين CR LF ، فالمسافة (واقعا هي ليست مسافة ، وانما الانتقال الى السطر التالي) ، ونحن وقفنا عند الرمز الاول ولم نعير انتباه للرمز الآخر ، فنتجت عنه هذه المسافة 🙂 تفضل هذا التعديل: S: Mid([NASS],1,InStr([NASS],Chr(13))-1) . ومفهمومك صحيح 100% ، وليس عندي جواب لهذه الظاهرة ، غير اننا نستعمل اللغة العربية والتي تعمل بعض الاشكالات 😁 ولكن تم حلها كما في الطريقة السابقة ، بتنقيص نفس الرقم المستخدم في البداية ، هكذا: S2: Mid([NASS],5,InStr([NASS],Chr(13))-5) جعفر 1413.MZ.accdb.zip

ما ادري ، هذا خارج تخصصي 😁 نشوف الشباب اللي لهم باع بهذه البرامج مثل @صالح حمادي و @Elsayed Bn Gemy و @SEMO.Pa3x و @ابوآمنة و @د.كاف يار واكيد نسيت آخرين 🙂 جعفر

وعليكم السلام 🙂 تم الرد على هذا السئال هنا . هل جد جديد ؟ جعفر

اخي المشكله عندك المكان اللي بتاخد منه بيانات القائمه المنسدله مكتوب فيها كلمه نعم بعدها مسافه والمعادله اللي انت بتستخدمها كلمه نعم بدون مسافه قم بتعديل كلمه نعم الموجوده في الخليه O279 امسح المسافه اللي بعد كلمه نعم سوف تعمل معادلتك بشكل جيد

جربها هكذا ضع نعم بين علامتي تنصسص "نعم" و صفر "0" ان لم تعمل فعليك الغاء القائمة المنسدلة وادخال الكلمتين يدوي

لن يستطيع احد تقدم المساعدة لك بدون تقديم معطيات كاملة ففي المرفق الأخير ضمن الكود ارتباطات لعناصر ليست موجودة في المرفق و لا حتى الجداول المعدة لذلك لكن تفضل هذا عداد وقت قم بتكييفه مع برنامجك حسب التصميم لديك Sub NewTimer() Dim PauseTime, Start, Finish, TotalTime PauseTime = 3600 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop Finish = Timer TotalTime = Finish - Start call NewTimer() End Sub

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم ضع الكود التالي في زر الامر Me.list0.RowSource = "SELECT data.ID, data.pname, request.Age, data.Telephone, request.rdate, request.[no], request.Doctor, request.Price " & vbCrLf & _ "FROM data INNER JOIN request ON data.ID = request.id WHERE (((request.rdate) Between [Forms]![mm]![FROM] And [Forms]![mm]![To])) ORDER BY data.ID;" Me.list0.Requery Me.text5 = Me.list0.ListCount - 1 Dim XSum As Integer Dim i As Integer XSum = 0 For i = 1 To Me.list0.ListCount - 1 XSum = XSum + Me.list0.Column(7, i) Next Me!soso = XSum listbox.rar تحياتي

وعليكم السلام ورحمة الله وبركاته بمكنك الاستفاده بهذا الموضوع وهنا رابط دورة جميله

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

ممن جدول به هذه البيانات للتجربة

ومشاركة مع اخوي حسين 🙂 . . للعلم ، اذا كانت عندك اكثر من قيمتين لفكهم (مثل 601-123-569-889) فحل اخوي حسين هو الامثل 🙂 جعفر بطاقة.zip

تفضل بطاقة.accdb

دائما اخي الكريم عند نسخ نموذج من ملف انسخ ملحقاته من المديولات ..... انظر ملفك بعد اضافة المديولات الناقصة ..... db1.rar

تفضل db1.zip

السلام عليكم اخواني الاعزاء الان يمكنكم تشغيل اي عدد من ملفات الصوت(wav) من داخل ملف الاكسل بالضغط فقط علي اسم الملف او بتحريك باسهم الكيبورد فقد تم تحوير الدالة السابقة لتعمل علي الالاف من الاصوات داخل الملف بدلا من صوت واحد فقط و اعتقد هنا ان الاخ احمد حافظ قد نال مراده ملحوظة الملفات الصوتيه المرفقة هي نتيجة بحث سريع علي النترنت لجلب ملفات من نوع wav للتجربة علي الملف فقط و ليس لها دخل لا بالتزوق و لا باي شئ اخر ارجو التجربة و اخباري النتيجه _____________.rar