نجوم المشاركات
Popular Content
Showing content with the highest reputation on 23 مار, 2022 in all areas
-
تفضل هذه المشاركة بلغة html Dim db As DAO.Database, rs As DAO.Recordset Dim sFile As String, FSO As Object, oFile As Object, HtmlText As String Dim oFSO As Object, oFolder As Object, i As Integer, x As String HtmlText = "<!DOCTYPE html><html><head><meta charset='utf-8' /><title></title>" HtmlText = (HtmlText) & "<style>.cursor {cursor: pointer;}.hover-shadow:hover {box-shadow: 0 4px 8px 0 rgba(0, 0, 0, 0.2), 0 6px 20px 0 rgba(0, 0, 0, 0.19);}.div {padding:10px;text-align:center;float:left;margin-left:1%;width:21%;height:133px;}</style></head><body>" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(CurrentProject.Path & "\Images") Set rs = CurrentDb.OpenRecordset("SELECT * FROM Link where ID=" & ID) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = x & vbNewLine & "<div class='div'><img class='hover-shadow cursor' src='" & rs.Fields(1) & "' style='width:100%;height:133px;'><div>" & rs.Fields(2) & "</div></div>" rs.MoveNext Wend End If rs.Close Set rs = Nothing HtmlText = (HtmlText) & x & "</body></html>" sFile = CurrentProject.Path & "\" & ID & ".html" Set FSO = CreateObject("Scripting.FileSystemObject") Set oFile = FSO.CreateTextFile(sFile) oFile.WriteLine HtmlText oFile.Close Set FSO = Nothing Set oFile = Nothing Me.WebBrowser257.ControlSource = "=""" & sFile & """" Me.WebBrowser257.Object.Silent = True WebBrowser257.Visible = True images.zip
4 points -
السلام عليكم ورحمة الله وبركاته بالنسبة لي انا استخدم طريقة ثانية وهي اقوم بوضع اوامر sql في جدول واضيف عمود id مع عمود sql ثم استدعي الكود باستخدام الدالة dlookup ثم استدعيها بالكود التالي DoCmd.RunSQL DLookup("[sql]", "sql", "[id]=1")
3 points -
تفضل أخي الكريم emploi 23-03-2022.xls
2 points -
مهندسنا الغالي @ابو جودي قام بعمل الجزء الأول من الطلب 🙂 وأنا أكملت الجزء الثاني .. وهو عرض الصور في الفورم الآخر .. 🙂 وهذه هي النتيجة : << ملاحظة >> الحد الأقصى لعدد الصور القابل عرضها هو 16 صورة .. ولعرض المزيد يجب تعديل تصميم النموذج وزيادة خانات الصور ومن ثم تعديل الكود ليقبل أكثر من ذلك. 🙂 المرفق : Req_Link_img.accdb
2 points -
اتفضل Req_Link_img.accdb2 points
-
تاسلام عليكم تغيير خلفيه النموذج بالاختيار من مربع تحرير وسرد alisstart.rar1 point
-
صراحه مش فاهم ماذا تريد بالظبط ولكن اذا اردت اظهار السجلات المساويه فقط لحقل البحث فقمت بتغير هذا السطر فقط varFilter = "[barcode] = '" & xx.text & "'" اما لو كان غير ذلك فنرجو منك مزيد من الايضاح ليقوم اخوانك بمساعدتك وياريت على ملف اكسيل من واقع البيانات بالمثال بالتوفيق search(1).accdb1 point
-
وعليكم السلام اتفضل ولكن فى استعلام لانه غير متاح استخدام الفورمات فالحقل المحسوب Expr1: Format([اول تاريخ];"dd-mm-yyyy") & " " & [رقم الهاتف] & " " & [الاسم] بالتوفيق New Microsoft Access Database(1).rar1 point
-
جزاك الله خيرا استاذ موسى في ميزان حسناتك1 point
-
اعتذر لم يسعفنى الوقت لتنقيذ المطلب الثانى وعندما هممت لتحقيقه وجدت اساتذتى الافاضل بارك الله فيهم كفوا ووفوا1 point
-
جزيل الشكر أ / محمد حسن المعادله اشتغلت تماااام1 point
-
وعليكم السلام أرجو أن يكون الحل مناسباً المعادلة كما يلي: =LOOKUP(2;1/($C$4:$C$8=C9);$F$4:$F$8) we.rar
1 point -
اولا يجب التاكد من التنسيق عندك فالجهاز لايتعرف على التاريخ كتاريخ بل كنص مما لايتماشى مع المعادلة انظري للمرفق اختاري من القائمة التاريخ وانظري للنتاج Time.xlsx
1 point -
السلام عليكم ورحمة الله وبركاته قُل لَّا يَعْلَمُ مَن فِي السَّمَاوَاتِ وَالْأَرْضِ الْغَيْبَ إِلَّا اللَّهُ ۚ ولذلك لا أحد منا يستطيع أن يخمّن شكل الجدولين اللذين تريد استخراج ونقل المعطيات من أحدهما للآخر وفق الشروط التي ذكرت بانتظار إرفاق ملف يمكن العمل عليه. تقبل تحياتي العطرة أخي الكريم والسلام عليكم.1 point
-
سامي أضفت لك هذي .. If IsNull(Me.cmbSchool) Or IsNull(Me.cmbAlwilaya) Or Me.cmbSchool = "" Or Me.cmbAlwilaya = "" Then MsgBox "يرجى اختيار الولاية والمدرسة", vbCritical + vbMsgBoxRight, "تنبيه" Exit Sub End If بس هذا ما حصلته 🙂 بس ممكن تنسخ نفس الكود وتحطه على زر الحفظ لما يطلع بالسلامة 😄 تعديل نموذج الفرز مهم.accdb1 point
-
تفضل تــم عمل المطلوب -فهذا الكود لزر الخروج من ملف الإكسيل بعد الحفظ Private Sub خروج_Click() ThisWorkbook.Saved = True Application.Quit End Sub كما تم عمل زر بكل صفحة للعودة للصفحة الرئيسية Main كل ما عليك هو الضغط على أيقونة Go To Sheets سيظهر لك مربع حوارى عليك بكتابة اسم الصفحة المراد الوصول لها من خلال الضغط على OK اكواد.xlsm1 point
-
فكرتك حلوه كصاحبها مهندسنا العزيز @Eng.Qassim 💐 والشكر لله ثم لاخوانى واساتذتى الذين تعلمت واتعلم منهم كل يوم ، نعم قول معلمنا العزيز صحيح يفتق الاذهان وربنا يباركلنا فى جميع اخواننا واساتذتنا الذين لايبخلون علينا بما علمهم الله من فضله1 point
-
سؤالك وجيه استاذي @احمد الفلاحجي..فكرة استخدام Mid جاءتني بحدود ماموجود في السؤال..وبالتاكيد سوف لن تعمل في حدود سؤالك شكرا لك استاذي العزيز ...وعلى قول استاذنا جعفر ان مشاركة اكثر من راي يفتق الاذهان1 point
-
العفو أخي أبا عبدالرحمن 🙂1 point
-
حياك الأخ سامي 🙂 ضبطت لك الكود الخاص بالـ PDF : Dim reportName As String Dim fileName As String reportName = "rptsubschool" fileName = Application.CurrentProject.Path & "\" & "Schools" & "\" & frmSubSchool!ename & ".pdf" If Len(Dir(Application.CurrentProject.Path & "\" & "Schools" & "\", vbDirectory)) = 0 Then MkDir (Application.CurrentProject.Path & "\" & "Schools" & "\") DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName, True 'End If End Sub السطر التالي أضفته ليتأكد من أنه شي مجلد اسمه Schools بجانب قاعدة البيانات .. لأنه أعطاني خطأ لما ما لقيه .. If Len(Dir(Application.CurrentProject.Path & "\" & "Schools" & "\", vbDirectory)) = 0 Then MkDir (Application.CurrentProject.Path & "\" & "Schools" & "\") وكذلك صلحت لك مصدر بيانات التقرير ليكون مطابق للمدرسة المختارة في صفحة البحث .. باقي عليك تضبط حجم التقرير لأنه أعرض من صفحة ال A4 لذلك ينقسم التقرير لصفحتين 🙂 المرفق : تعديل نموذج الفرز مهم.accdb
1 point -
وفيك بارك الله اخى @nabilalibibo وانا اتعلم منكم ومعكم وطبعا انا قصدت الاشاره لموضوعك السابق ووضعت نفس الصيغه السابقه لمعلمنا العزيز جعفر جزاه الله عنا كل خير حتى ترى الفرق وتبحث وتتعلم ولتعلم ان الداله left , right , mid من دوال القطع فلتبحث عنهم بالموقع او بجوجل ستجد الكثير من الشرح لهم جزاك الله خيرا مهندسنا العزيز @Eng.Qassim ع مشاركتك معنا 💐 انت اعتمدت على الداله mid فماذا لو كان هناك رتبه تزيد عن 11 رقم المقطوع وليست ضمن القيم التى نريد الحصول عليها من فضلك القى نظره على الاستعلام Q1 و Q2 فى الاستعلام Q2 قمت باستخدام حل آخر لمراعاه الشرط (كيف اجعل كل موظف تبدأ ) Like "ممارس متخصص*" وليس لان هذا سياتى بكل ما هوى محتوى ع ممارس متخصص Like "*ممارس متخصص*" او نجعلها هكذا تمنياتى لكم وللجميع بالتوفيق Database1011_2.accdb
1 point -
السلام عليكم أما زلت مهتماً بالموضوع؟ على كل عسى يستفيد منه أحد ما Sorting test.xlsm1 point
-
مشاركة مع اساتذتي الكرام Database1011.accdb1 point
-
وعليكم السلام ورحمه الله وبركاته اتفضل اخى @nabilalibibo ان شاء الله يكون ما تريد وتقريبا كان ليك موضوع مشابه لهذا ورد عليك معلمنا العزيز جعفر جزاه الله عنا كل خير بالتوفيق Database1011_1.accdb
1 point -
تفضل Dim FolderName as String,BillText as String FolderName=Format(Now, "yyyy-mm-dd") 'اسم المجلد BillText= [حقل رقم الفاتورة] Call ExortPDF("فاتورة", FolderName, BillText)1 point
-
وعليكم السلام اخوي سامي 🙂 اقول لك ، صاني لقيت جني خاش عمره تحت النموذج الفرعي ، للعلم 😁 عملت البحث فقط 🙂 جعفر 1490.devicesdb12 -9_00011.accdb.zip
1 point -
عليكم السلام ورحمة الله وبركاته، قمت بعمل برنامج لاداء هذا الغرض1 point
-
صورة توضيحية أكثر
1 point -
6- ونبدأ بعد كتابة DoCmd.RunSQL (مسافة ثم ") ودون وضع مسافة ثانية نقوم بلصق الكود وفى بداية كل سطر ما عدا أول (") بدون الأقواس طبعا وفى نهاية كل سطر نكتب (" & vbCrLf & _) بدون الأقواس طبعا ما عدا أخر سطر نكتب فى نهايته (") وبدون أقواس أيضا مثال لوضع الاستعلام بعد كل شىء وتشغيله من خلال الأكواد دون ظهور رسائل التأكيد الخاصة بالأكسس DoCmd.RunSQL "INSERT INTO ShwImages2 ( Path, IDIMG, Nme2, IDDOC2, IDDOC1 )" & vbCrLf & _ "SELECT Images2.Path, Images2.IDD, Images2.Nme2, Doc2.IDD, Doc.IDD" & vbCrLf & _ "FROM Doc INNER JOIN (Doc2 INNER JOIN Images2 ON Doc2.IDD = Images2.IDD) ON (Images2.IDD = Doc.IDD) AND (Doc.IDD = Doc2.[IDD-1])" & vbCrLf & _ "WHERE (((Doc.IDD)=[Forms]![Ser-filter]![Sub_serfil].[Form]![DocIDD]));" أرجو أن أكون أفد كما أستفد من الاساتذة والذين سبقونا بالعلم وبما فتح الله عليهم من فضله أن فضل وربك عليكم عظيماً والسلام عليكم ورحمة الله دومتم فى رعاية الله وحفظه1 point
-
3- نسخ الكود الموجود فى جملة SQL كمل هو 4- ندخل الى شاشة الاكواد VBA 5- نكتب فى الأمر
1 point -
السلام عليكم ورحمة الله جرب المرفق لعل فيه بعض ما تريد... تاريخ.rar1 point
.thumb.gif.27c4a79ce23abc61b721f833e6899131.gif)
