أبوبسمله

اتفضل ان شاء الله يكون ما تريد ومع اذان المغرب والافطار تقبل الله صيامكم لعل انول دعوه صالحه بالتوفيق اخى 333.mdb

وعليكم السلام رمضان مبارك عليك وعلى الجميع ان شاء الله للاسف لم ما تريد واعتذر لك ان شاء الله احد الاخوه يقدم يد المساعده بالتوفيق اخى

الرساله بتقول عندك متغيير غير متعرف ممكن تضع مثال لما لديك بالتوفيق

مشاركه مع اخى الفاضل @ناقل جزاه الله خيرا DoCmd.OpenReport "report name", acViewPreview DoCmd.Close acForm, "واجهه البرنامج" بالتوفيق اخوانى

مشاركه مع اخى الفاضل @ابو تراب جزاه الله خيرا هل هذا ما تريد ؟ جرب ووافنا بالنتيجه بالتوفيق اخى 112_UPDATED2.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا والشكر موصول لاستاذنا @أبو إبراهيم الغامدي بحله السحرى والممتع جزاه الله خيرا وهو من يستحق افضل اجابه وليس انا بالتوفيق اخوانى واساتذتى

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا اهلا وسهلا اخى احمد وانا اخوك الصغير احمد بالتوفيق ابوحميد

وعليكم السلام ع حسب ما فهمت من شرحك انك تريد عدم السماح باكثر من 2 اذن خلال الشهر لكل موظف اضفت لك حقل بالنموذج لعرض عدد الاذون التى تمت خلال الشهر ولن يسمح باكثر من اذنين ولديك استعلام لعدد الاذون خلال كل شهر انظر للاستعلام اضفت اذنان لكل شهر 5 و 6 للموظف الاول 2084 واذنان لشهر 5 للموظف 2085 جرب ووافنا بالنتيجه وهل هذا ما تريد ؟ بالتوفيق اخى Aja0016.accdb

السلام عليكم اخى @waheidi بالاضافه الى ما تفضل به اخى الفاضل @خالد عبد الغفار جزاه الله خيرا عدل الحدث الخاص باضافه طالب الى Private Sub أمر13_Click() Form_Load End Sub وذلك لانه عند تسجيل طالب اخر مباشره وعند اختيار الحاله الصحيه يعطيك خطأ لرقم الطالب والمفروض انه ده مسلسل مش رقم الطالب ولا ده مثال فقط لشرح ما تريد بالتوفيق اخوانى

عدل الكود السابق لانى لم انظر الى الصوره الا الان انت تريد الوقوف على السجل الجديد وليس اخر سجل موجود Me.type_card_sub.SetFocus DoCmd.GoToRecord , , acNewRec بالتوفيق

وعليكم السلام اخى حسين هل هذا ما تريد Documents.rar

وعليكم السلام اخى @ازهر عبد العزيز هل تريد عرض القيمه المختاره من الكمبو فى حق نص فالتقرير ام ماذا ؟ اذا كان كذلك ضع مربع نص بالتقرير وفى مصدر عنصر التحكم =[Forms]![FYXY]![اسم الكمبو بالنموذج]

بعتذر عن التقصير لانى لما وضعت السؤال موضحتش لان كان السؤال لاخ عزيز على قلبى وفيه منفعه له ولم استطع تقديم المساعده فقمت بطرح السؤال وحاولنا انا وهو بالامس حت الفجر وتوصلنا للحل التالى سارفقه للاطلاع والمراجعه وان كان هناك تحسين للكود فنرجو منك تحسينه وننتظر الدرس ايضا الكود يجلب من الموقع قيمتين Grade و Expiry ووضعهم بالحقول بناء على SupplierCode جزاك الله خيرا اخى واستاذى @صالح حمادي Sub Get_BRCDirectory_Data() Dim sCode, rs As DAO.Recordset, dic As Object, sResult As String, i As Long Set dic = CreateObject("Scripting.Dictionary") dic.CompareMode = 1 Set rs = CurrentDb.OpenRecordset("Approved") If Not (rs.BOF And rs.EOF) Then rs.MoveFirst Do sCode = rs.fields("SupplierCode").Value If sCode <> "" Then If Not dic.Exists(sCode) Then sResult = GetGradeExpiryDate(CStr(sCode)) rs.Edit rs.fields("Grade").Value = Trim(Split(sResult, "|")(0)) rs.fields("Expiry").Value = Split(sResult, "|")(1) rs.UPDATE dic(sCode) = Array(rs.fields("Grade").Value, rs.fields("Expiry").Value) Else rs.Edit rs.fields("Grade").Value = dic(sCode)(0) rs.fields("Expiry").Value = dic(sCode)(1) rs.UPDATE End If End If rs.MoveNext Loop Until rs.EOF End If MsgBox "Done", 64 End Sub مرفق المثال SupplierCode-V1.0.accdb

ده نورك اخى محمد @حلبي وانت طيب وتقبل الله منكم الصيام والقيام وصالح الاعمال بارك الله فيك وجزاك الله كل خير

جزاك الله خيرا اخى واستاذى صالح ووفقكم الله لما يحبه ويرضاه واعانكم الله على ما يشغلكم ياريت لو عدلت لى الملف وفى انتظار الشرح وتقبل الله منكم صالح الاعمال جزاك الله خيرا

استكمالا للموضوع والطريقه الموضوعه انقر بزر الماوس الايمن فوق الاستعلام 4 تصدير ملف نصى ثم ثم ثم ثم ثم التالى التالى وبهذا تم معالجه الخطأ الظاهر لديك بالتوفيق اخى

الحمدلله تم ضبط الكود بنسبه كبيره بفضل الله سبحانه وتعالى بمساعده اخ عزيز عليا سوف احاول ارفاق الملف فى خلال يومين بعد التاكد التام منه جزاكم الله خيرا بالتوفيق اخوانى

جزاك الله خيرا استاذ @أبو إبراهيم الغامدي

اعانك الله اخى واستاذى @kha9009lid

افتح الرابط ده وانزل للاسفل خالص هتلاقى شرح بالصوره لطريقه اضافته ان لم تصل سوف اضع لك الشرح تانى هنا بالتوفيق

السلام عليكم ورحمه الله وبركاته @صالح حمادي وجميع اخوانى من لديهم خبره فهذا الموضوع وجزاكم الله خيرا اخوانى واساتذتى الافاضل لدى ملف اكسيل بيسحب بيانات من الموقع وشغال تمام ولكن حاولت ظبطه على الاكسس ولم استطع سحب البيانات بناء على حقل SupplierCode مرفق ملف الاكسل والاكسس وده الموديول الموجود فى الاكسيل 'https://www.brcdirectory.com/InternalSite//Site.aspx?BrcSiteCode=1845026 Sub Get_Grade_Expiry_Date() Dim dic As Object, sResult As String, sCode As String, r As Long Set dic = CreateObject("Scripting.Dictionary") dic.CompareMode = 1 For r = 2 To 10 'Cells(Rows.Count, 4).End(xlUp).Row sCode = CStr(Cells(r, 4).Value) If sCode <> "" Then If Not dic.Exists(sCode) Then sResult = GetGradeExpiryDate(CStr(sCode)) Cells(r, 6).Value = Trim(Split(sResult, "|")(0)) Cells(r, 7).Value = CDate(Trim(Split(sResult, "|")(1))) dic(sCode) = Array(Cells(r, 6).Value, Cells(r, 7).Value) Else Cells(r, 6).Value = dic(sCode)(0) Cells(r, 7).Value = dic(sCode)(1) 'Stop End If End If Next r End Sub Function GetGradeExpiryDate(ByVal sCode As String) Dim http As MSXML2.XMLHTTP60, html As MSHTML.HTMLDocument, sURL As String, sGrade As String, sExpiry As String sURL = "https://www.brcdirectory.com/InternalSite//Site.aspx?BrcSiteCode=" & sCode Set http = New MSXML2.XMLHTTP60 Set html = New MSHTML.HTMLDocument With http .Open "Get", sURL, False .setRequestHeader "User-Agent", "Mozilla/5.0" .send html.body.innerHTML = .responseText sGrade = Split(html.querySelector("#ctl00_ContentPlaceHolder1_FormView1_GridView1_ctl02_lb_Grade").innerText, "Grade : ")(1) sExpiry = Split(html.querySelector("#ctl00_ContentPlaceHolder1_FormView1_GridView1_ctl02_lb_ExpiryDate").innerText, "Expiry Date : ")(1) GetGradeExpiryDate = sGrade & "|" & sExpiry End With End Function Get-Grade-Expiry-Date.xlsm Suppliers-Copy-1.accdb

ايوه تم تغيير true ل false واضافه السطر اللى بعده لفتح الملف

انا معاك بقى اخى واستاذى @kha9009lid بحب الرواقه والقهوه عندى المرادى 😀 الفطور جاهز ةالشاى والقهوه جزاكم الله خيرا وربنا يوفقكم ويروق بالكم باذن الله

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا تم ازاله الصف الاول بالتتغير الى false لم اجد فالتعليمات للامر خاصيه الفتح فقمت باستدعائه بالشل ارجو ان يكون ما تريد وان شاء الله اخواننا واساتذتنا يساعدون بحلول افضل DoCmd.TransferText acExportDelim, "qry", "استعلام4", strPathAndfile & xx & ".txt", False Shell ("C:\Windows\system32\notepad.exe" & " " & strPathAndfile & xx & ".txt"), vbNormalFocus بالتوفيق اخى Trans CD.mdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بامكانك حذف هذه الاسطر اخى @radwan1991 MsgBox "جميع مربعات النص بها قيم " On Error GoTo Erra Dim stDocName As String stDocName = "t1" DoCmd.OpenReport stDocName, acNormal Exit_Erra: Exit Sub Erra: MsgBox Err.Description Resume Exit_Erra بالتوفيق ان شاء الله