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

وعليكم السلام ورحمة الله وبركاته أهلا @محمد احمد لطفى 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")

لا يوجد ملف بالرابط المذكور قم بضغط الملف وارفقه بالمنتدى مباشره بالتوفيق

في مربع النص numboerx في حدث بعد التحديث استخدم هذا الكود ............................ Dim D As Object Dim x As Integer Set D = CurrentDb.OpenRecordset("q1") x = Me.Numberx DoCmd.RunCommand acCmdSaveRecord With D Do While Not (.EOF) .Edit .Numberx = x .Update x = x + 1 .MoveNext Loop End With Set D = Nothing

ممكن ترفع لي نسخة 2007 وأن تحدد لي الصناديق/المربعات المطلوب التعامل معها بشكل واضح؟

بسم الله الرحمن الرحيم الكتير منا بتجيله فكرة وعاوز ينفذها لكن عدم مقدرته علي الامساك بالخيط المناسب فيتراجع ويكبت افكاره مرة تلو الاخري لحد مايصل الي مستخدم غير قادر علي الابداع في مجاله المعذرة اني بكتب بالعامية لكن حبيت اشارككم بما في خاطري من فترة كنت بتصغح موقع هندي عجبتني فكرة الموقع في طرح المواضيع المحاضر يقوم بنشر الفكرةوينفذها مع المتابعين عن طريق درووس مدة كل درس حوالي 40 دقيقة يبدا بتصميم اليوزفورم وشرح الكود سطر سطر بيعمل ايه وليه ويرفق مع الشرح الكود فقط ويترك للمتابع المجال انه ينفذ هو ويحيك اليوز بنفسه ويركب الكود ويخطيء ويسال ويتعلم الاحساس بالتفاعل بين الاطراف بيولد طاقة ورغبة في المواصلة علي العطاء والشرح وكلنا بنتعلم من بعضنا البعض حسيت انه ده هو المهم اننا بنعمله في المنتدي ونتخلص من مشكلة الارشفة عند طرح الموضوع تلاقي نسبة المشاهدة 600 ونسبة تحميل الملف 400 والمشاركات تلاقيها 3 او 4 مشاركات عند طرح الموضوع ليس بقصد التقييم انما بقصد المشاركة نتفاعل ... نتعلم .... لكن للاسف معظمنا بحمل الملف ويحفظه في الارشيف دون التطرأ لما فيه او المحاولة لفهمه وده خلاني اطرح الموضوع الحالي واعتذر عن الاطالة الموضوع هو الفورم التغاعلي UserForm interactive التخلص من الشكل التقليديVisual Basic كلنا متفقين انه الـ Visual Basic موارده الجمالية محدودة لكن غير محدود في الخداع البصري وده يلي هانتعلمه دمج Infographics والبيئة التفاعلية مع الVisual Basic بحيث المستخدم لا يحس بالملل عند استخدامه بالمرفقات الملف يلي هانشتغل عليه خطوة خطوة في حالة قبول التفاعل مع بعضنا البعض لنتعلم ونبدع , الملف لا يحتوي الا علي الوظائف التفاعلية UserForm interactive.xlsm رابط الدرس الاول في الفورم التفاعلي اضافة MultiPage والتحكم في الانتقالات بينها من خلال التبويبات الرئيسة باستخدام Class Module رابط الدرس الثاني في الفورم التفاعلي Advance Data Entry Software مدخل للدرس الثالث How to Generate and Preview PDF File in Userform Create Dynamic Drop-Down Menu In Excel Userform قائمة شقية للاصناف الكثيرة والمتشابهة Pop-up form in Excel Userform شرح تفصيلي لأداة ال ListView وكيفية استخدامها والتعامل معها رابط الدرس الثاني ListView Right to Left الدرس الثاني Create Dynamic Drop-Down Menu In Excel Userform Dark Mood App Officana Business Application Final Template Generate QR Code برنامج ادارة الاشتراكات مع شاشة دخول متعددة المهام ZAD IPTV Subscriptions Create Drill Down Data Entry

بسم الله الرحمن الرحمن الرحيم الدرس الثاني لليوزفورم التفاعلي تعال نفكر مع بعض خارج المألوف والمعقول بمعني ايه اي حد بفكر يعمل فورم يسهل استخدام البيانات بقعد يفكر في شكل الفورم وتصميمه وتركيب الاكواد وما الي ذلك في موضوعات تناولت الفورم المرن او حسب مايكون اسمه فورم بيركب علي ورقة العمل وتضبط شغلك عليه لو فكرنا بطريقة مختلغة برمجية خارج حدود التصميم والاكواد والوقت والمجهود طيب الفكرة هنا ايه ...........!!! فورم يصنع لك الفورم يلي انت عاوزه بالالوان والاعمدة والشكل نفس فكرة مواقع التصميم والبلوجر يلي بتعطيك template قالب جاهز وتعدل عليه ندخل في الموضوع النهاردة موضوعنا فورم تفاعلي يصنع لك فورم خدمي نضيف ورقة عمل جديد من خلال التبويب Insert Sheet نضيف عدد الاعمدة يلي انت عاوزها في قاعدة بياناتك من خلال Enter No of columan مثال اضافة ورقة عمل جديدة باسم Officana عدد الاعمدة 5 مثلا (Sno-Name-username-password-Contact) اقوم بادخال اسماء الاعمدة ثم Add من خلال الفورم هاتقدر تعدل المسيات تضيف تحذف كما تشاء بعد ما تنتهي من الاعداد للتصميم لقاعدة بيانات كل يلي عليك تختار الشيت تدخل طريق العرض من خلال عدد الاعمد مثلا 3 وتضغط openForm وشوف النتيجة وهنا هتلاقي وظايف البحث والتعديل والحذف كما اخترت طريقة العرض 3 طيب لو غيرنا طريق العرض 2 لاحظ تغير الفورم معاك لتغير اللون اضغط علي Color هاسيبك تجرب بنفسك وتشوف النتيجة اتمني من الله اكون قدرت اوصلك المعلومة وافيدك الملف بالمرفقات Advance Data Entry Software Officana.xlsm الدرس القادم الفورم التفاعلي المتقدم عن نقاط البيع ان شاء الله برنامج POS لادارة نقاط البيع مع فاتورة ضريبية

السلام عليكم ورحمة الله وبركاتة الهدف من المقال هو الإجابة على استفساراتكم و المشاكل التى تواجة المبرمجين فى تطبيق الفاتورة الالكترونية فى السعودية المرحلة الثانية اول شىء نبدأ بيه هو التعريف بموضوع الفاتورة الالكترونية فى السعودية (هيئة الزكاة والدخل ) المرحلة الثانية يتم تطبيق المرحلة الثانية يتم من خلال 3 مراحل هما :- 1- مرحلة تجهيز ملف xml الخاص بالفاتورة 2- مرحلة التوقيع الإلكترونى لملف xml 3- مرحلة ارسال الملف بعد التوقيع الى هيئة الزكاة والدخل 1 – يمكنك متابعة هذا الرابط لمعرفة كيفية انشاء ملف xml الخاص بالفاتورة والحقول الالزامية والحقول الغير الزامية https://zatca.gov.sa/ar/E-Invoicing/Syst...tions.aspx هذا هو اهم واصعب شىء فى موضوع الفاتورة الالكترونية يجب القراءة بعناية حيث ان ملف ال xml اذا وجد به خطأ سوف يتم رفضة من هيئة الزكاة والدخل 2 – مرحلة التوقيع الإلكترونى لملف xml هذا هو اسهل شىء بالمرحلة الثانية كل ما عليك هو الدخول الى موقع هيئة الزكاة والدخل ثم تختار بوابة مطورو انظمة الفاتورة الالكترونية والتسجيل بها ثم تحميل ال sdk الخاصة بهيئة الزكاة والدخل والتى يوجد بها وظيفة توقيع ملف xml الخاص بالفاتورة بمفتاح التشفير الخاص بالمؤسسة وايضا بها وظيفة للتأكد من صحة التوقيع الالكترونى لملف الفاتورة يوجد فى ملف sdk فولدر به امثلة للفاتورة xml وكذلك الاشعار الدائن والمدين 3 – مرحلة ارسال الملف الموقع الى هيئة الزكاة والدخل من خلال ال api الخاصة بالهيئة توفر هيئة الزكاة والدخل مجموعة وظائف api لأستخدامها لرفع ملف الفاتورة والتأكد من صحتة يوجد بعض الروابط خاصة بالبيئة التجريبية يمكنكم استخدامها حتى يتم اخطاركم من قبل هيئة الزكاة والدخل بموعد التنفيذ الفعلى للفاتورة يمكنكم مشاهدة هذة الفيديوهات سوف تجدون بها الحقول الالزامية لتكوين ملف xml C# or VB.Net https://youtu.be/hO3XdQTa5ZU VB6 - VBA https://youtu.be/qTWA8IWYIjo أى أخ عندة مشكلة بتواجهه او استفسار يبعت وانا هارد عليه بأذن الله ورقم الواتس آب بتاعى +201090838734

أستاذى @kanory جزاك الله كل خير

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

التصحيح في الملف المرفق... المعاش التقاعدي2.xlsx

حياك الله اخي فوزي اعتذر عن التأخير عن الرد علي الرسائل الخاصة بالنسبة لطلبك اتبع الخطوات كما بالصورة اختار اسم المدرس ثم اب ديت اختار الفصل الذي ترغب فيه دبل كليك ع الليست الثاني ثم حفظ للملف اتمني يكون قدرت اساعدك .. جرب وقولي النتيجة مع تحياتي فوزي اوفيسنا.xlsm

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

مرحبا... المعادلة المستعملة في الكود لا أعرفها... أما التي أعرفها واكتشفتها مؤخرا هي معادلة "هيرون" والتي صيغتها : =SQRT(s*(s-a)*(s-b)*(s-c)) حيث: a، b، c هي أطوال أضلاع المثلث و s = (a + b + c)/2 وليس لي جواب آخر....

حياك الله أخي طلبت منك التحويل لأني لا أستطيع فتح قاعدة البيانات 🙂 ، يمكن أستطيع بس الصراحة مضيعة لوقتي لأني سأضطر أصمم النماذج والجداول لعمل التجارب، وموضوعك سهل. أعتقد الشباب بعد محاولتي التصدي لموضوعك ترددوا في الدخول، ومن جهتي أقول لهم يا جماعة "درعموا" و "افزعوا" مع الرجال. فأنا مكتف اليدين. من جهتي بدعو لك،

وعليكم السلام 🙂 انا استعمل هذه الطرق: 1. Dim OldName, NewName OldName = "OLDFILE": NewName = "NEWFILE" ' Define file names. Name OldName As NewName ' Rename file. OldName = "C:\MYDIR\OLDFILE": NewName = "D:\YOURDIR\NEWFILE" Name OldName As NewName ' Move and rename file. 2. Kill "D:\YOURDIR\NEWFILE.mdb" . الطريقة الثانية 1. Dim objFso as object Set objFso= CreateObject("Scripting.FileSystemObject") objFso.MoveFile "D:\testvbs\autorun.exe", "D:\testvbs\autorun.txt" 2. Dim FSO as object Dim myFile As String Set FSO = CreateObject("Scripting.FileSystemObject") myFile = "C:\Users\Dell\Desktop\Sample Data\file1.xlsx" FSO.DeleteFile myFile, True . جعفر

تسلم استاذي الكبير ابو بسمله

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي .يتم انشاء شيت جديد تلقائيا عند الكتابة في عمود b مع نسخ المعادلات للحصول على النتائج مباشرة في نفس الشيت المضاف قم بنسخ هذا الكود في حدث شيت ("رئيسي") Private Sub Worksheet_Activate() 'انشاء ارتباط تشعبي باسماء اوراق العمل Dim ws As Worksheet Application.ScreenUpdating = False Worksheets("رئيسي").Range("b3:b500").ClearContents Range("b3").Select For Each ws In ActiveWorkbook.Worksheets If (ws.Name <> "رئيسي") Then ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, Address:="", SubAddress:="" & ws.Name & "!A1" & "", ScreenTip:="", TextToDisplay:=ws.Name ActiveCell.Offset(1, 0).Select Application.ScreenUpdating = True End If Next ws Call MH End Sub '(b)انشاء ورقة جديدة تلقائيا واعادة تسميتها باخر قيمة موجودة في عمود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Or Target.Row <= 2 Then Exit Sub If Target.Column = 2 And Target.Value <> "" And Not (sheetExists(Target.Value)) Then Call Bouton1_Cliquer Sheets("رئيسي").Select End If End Sub Function sheetExists(sheetToFind As String) As Boolean sheetExists = False For Each Sheet In Worksheets If sheetToFind = Sheet.Name Then sheetExists = True Exit Function End If Next Sheet End Function وهدا الكود في module Public Sub MH() '(b)'افراغ خلايا الجدول بشرط وجود فراغ في العمود Dim a& With Sheets("رئيسي") For a = .Cells(.Rows.Count, 3).End(xlUp).Row To 1 Step -1 If .Cells(a, 2) = "" Then Range(Cells(a, 3), Cells(a, 13)).Select Selection.ClearContents .Cells(a + 1, 2).Select End If Next a End With End Sub Sub Bouton1_Cliquer() Dim lastLine As Integer Dim NameSheet As String Dim MH As Boolean lastLine = ThisWorkbook.Sheets("رئيسي").Range("b" & Rows.Count).End(xlUp).Row NameSheet = ThisWorkbook.Sheets("رئيسي").Range("b" & lastLine) MH = feuilleExiste(NameSheet) If MH = True Then MsgBox "يتعدر انشاء ورقة جديدة بسبب وجودها مسبقا ", vbInformation Else Worksheets("1").Copy After:=Worksheets(Worksheets.Count) ActiveSheet.Name = Worksheets("رئيسي").Cells(Rows.Count, 2).End(xlUp).Value Range("a1").Value = ActiveSheet.Name ThisWorkbook.Sheets("رئيسي").Activate End If End Sub احمد_mh.xlsm

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

بعد إذن استاذي الجليل جعفر هل ممكن اشارك بهذا الموضوع تفضل أخي يارب يكون هذا طلبك employees.rar

تفضل جرب المرفق طباعة الشهادات1.xlsm