محمد احمد لطفى قام بنشر نوفمبر 11, 2022 مشاركة قام بنشر نوفمبر 11, 2022 (معدل) السلام عليكم ورحمة الله و بركاته تم تحديث موقع الكهرباء ابلاغ القراءة و معرفة الفاتورة و لم يعد ينقل البرنامج البيانات الى النموذج الفاتورة و ابلاغ اللقراءة كما كان فهل من مساعدة نقل الاسم الرقم القومى البريد الاليكترونى المنطقة اليومية الحساب فرعى القراءة الحالية وجزاكم الله خيراً كهرباء 2022.rar تم تعديل نوفمبر 11, 2022 بواسطه محمد احمد لطفى رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر نوفمبر 12, 2022 الكاتب مشاركة قام بنشر نوفمبر 12, 2022 للتوضيح نقل البيانات تتم عن طريق زرار F و 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أبو إبراهيم الغامدي قام بنشر نوفمبر 13, 2022 أفضل إجابة مشاركة قام بنشر نوفمبر 13, 2022 وعليكم السلام ورحمة الله وبركاته أهلا @محمد احمد لطفى Sub FillWebData() On Error Resume Next Dim F As HTMLFormElement Set F = WD.Forms("aspnetform") F("ctl00$Main$txtMain").Value = Me.Parent("حساب") F("ctl00$Main$txtName").Value = Me.Parent("الاسم") If WD.querySelectorAll("#ctl00_HeadContent_handasa > option").Length = 0 Then F("ctl00_HeadContent_governmentCMB").Value = "1" F("ctl00_HeadContent_governmentCMB").OnChange End If F("ctl00$Main$txtCurrentRead").Value = Me("حالية") F("ctl00$Main$txtDay").Value = Me.Parent("يومية") F("ctl00$Main$txtNationalID").Value = Me.Parent("IDPerson") F("ctl00$Main$txtManteka").Value = Me.Parent("منطقة") F("ctl00$Main$txtFary").Value = Me.Parent("فرعى") F("ctl00$Main$txtPhone").Value = Me.Parent("mobile") F("ctl00$Main$txtEmail").Value = Me.Parent("email") ' ctl00$HeadContent$tel '-- Solution of handasa field Do Until SetValue(WD, "461"): DoEvents: Loop '----------------------------- End Sub Sub DisplayFatorah() On Error Resume Next Dim F As HTMLFormElement Set F = WD1.Forms("aspnetform") F("ctl00_HeadContent_DropDownList2").Value = "1" If WD1.querySelectorAll("#ctl00_HeadContent_DropDownList1 > option").Length = 0 Then F("ctl00_HeadContent_governmentCMB").Value = "1" F("ctl00_HeadContent_governmentCMB").OnChange End If F("ctl00$Main$txtManteka").Value = Me.Parent("منطقة") F("ctl00$Main$txtDay").Value = Me.Parent("يومية") F("ctl00$Main$txtMain").Value = Me.Parent("حساب") F("ctl00$Main$txtFary").Value = Me.Parent("فرعى") '-- Solution of handasa field Do Until SetValue(WD1, "461"): DoEvents: Loop '----------------------------- End Sub غير اسم النموذج في كلا الإجرائين إلى Forms("form1") بدلا من Forms("aspnetform") 3 1 رابط هذا التعليق شارك More sharing options...
محمد احمد لطفى قام بنشر نوفمبر 13, 2022 الكاتب مشاركة قام بنشر نوفمبر 13, 2022 جزاك الله خيراُ أستاذى @أبو إبراهيم الغامدي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.