نجوم المشاركات
Popular Content
Showing content with the highest reputation on 04 ينا, 2022 in all areas
-
مع تأييدي لابداع أستاذنا بن علية حاجي مرفق المعادلات بصيغة أخرى استخراج البيانات-2.xlsx3 points
-
أهلا بكم.. أعلم أن هذا الأسلوب جديد بعض الشيء لكن أعتقد أنه بالإمكان التأقلم معه! خاصة وأن الشفرة ليست بالمعقدة.. شفرة الجافا سكربت ليست بالصعبة بل في ظني أسهل بكثير من الفيجوال بيسك لأنها تتعامل مع المتغيرات كأغراض (Objects)، والغرض يقوم بخدمة ذاته دون الحاجة إلى وظائف خارجية.. كان القصد من هذه المقدمة الإطرائية هو إزالة الرهبة من استخدام أسلوب الدمج بين أكسس والويب.. لنعد إلى المشروع ونتعرف على مكوناته وطريقة عمله.. :: يحتوي الجدول (WebCode) على ثلاث سجلات؛ يحتوي كل منها على نص برمجي يقوم بتهيئة العمل على متصفح الويب.. -- السجل الأول يحتوي على نص HTML. يقوم هذا النص بتهيئة الصفحة للعمل.. ما يهمنا في هذا النص هو تبويب <head> الذي يحتوي التعليمات التي تجعل متصفح الويب يعمل كمتصفح Edge. -- السجل الثاني يحتوي على نص CSS يقوم هذا النص بتزيين الصفحة وترتيب مكوناتها.. سوف أشرح في وقت لاحق الفرق بين Id, Class، وعن كيفية الوصول إلى عناصر الصفحة من أجل تزيينها. -- السجل الثالث يحتوي على شفرة JavaScript المعني بتكوين رمز QR.. ما يهمنا من هذه الشفرة هو طريقة استخدامها فقط!.. :: تحتوي قاعدة البيانات على وحدين نمطيتين.. -- الأولى للتحويل من وإلى النظام العشري TLVModule -- الثانية للتحويل من وإلى نظام 64بت UTF8EncodeDecode كلتا الوحدتين مستعارة من الويب وليس لي فيها عمل..َ :: مصدر مكتبة الجافا سكربت: QRCode Library (JavaScript) :: مصدر الوحدات النمطية: TLV.QRCode.MSAccess.VBA2 points
-
2 points
-
2 points
-
اعرض الملف الفاتورة السعودية المبسطة أهلا بكم.. محاولة متواضعة لتنفيذ الفاتورة السعودية المبسطة باستخدام الجافا سكريب ومتصفح الويب.. أرجو أن تنال استحسانكم.. صاحب الملف أبو إبراهيم الغامدي تمت الاضافه 03 ينا, 2022 الاقسام قسم الأكسيس1 point
-
أهلا بكم.. :: نأتي الآن إلى التعريف بالشفرة المشغلة لمتصفح الويب وطريقة عملها.. !! في أكسس الإصدر العاشر وما بعده أصبح إداة متصفح الويب أحد أدوات أكسس الأساسية مع بقاء الأداة ضمن أدوات Microsoft ActiveX، وهذه الأخيرة هي المستخدمة في المشروع، كما أن الأداة المضمنة مع أكسس تختلف برمجتها قليلا عن أداة ActiveX. أرجو التنبه لهذا.. # مكتبات DLL: حتما إذا كنا نتعامل مع أدوات ActiveX سوف يكون هناك مكتبات DLL، ولذا عند إدراج الأداة في النموذج يقوم أكسس بالتأشير على المكتبات اللازمة للعمل، كما أن هناك مكتبات اختيارية تساعد في تحسين العمل، لكن ليست ضرورية. سوف أعرف بتلك المكتبات عند الحديث عن الشفرة التي تستختتذكردمها.. الجدير بالذكر؛ أن تكون على علم أن أكسس يفقد الإتصال بهذه المكتبات عند قص ولص الأداة، أو عند نقل النموذج المتضمن لهذه الأداة.. كن على ذكر من ذلك!! # مكتبات DLL: في الصورة التالية المكتبات التي المشار إليها سابقا؛ ذات اللون الأزرق ضرورية يتم التأشير عليها تلقائيا عن أضافة أداة متصفح الويب والتي أسفل منها اختيارية، بمعنى أننا نؤشر عليها باختيارنا من أجل تحسين أسلوب برمجة الشفرة، لكن إذا استخدمتها ضمن الشفرة فإنه يصبح من الضروري إعادة التأشير عليها.. # يتضمن النموذج ثلاث خصائص غرضية للتحكم في طبقات أداة المتصفح.. -- الخصيصة الأولى للتحكم في الطبقة الأولى من الأداة، والتي هي بمثابة متصفح الويب.. Public Property Get WB() As WebBrowser Set WB = Me.WebBrowser0.Object End Property -- الخصيصة الثانية للتحكم في الطبقة الثانية من الأداة، والتي هي بمثابة صفحة الويب.. Public Property Get WD() As HTMLDocument Set HD = Me.WebBrowser0.Document Set WD = HD End Property -- الخصيصة الثالثة للتحكم في الطبقة البينية بين متصفح الويب وصفحة الويب، وهي بمثابة النافذة الأم لصفحة الويب.. Public Property Get PW() As HTMLWindow2 Set PW = Me.WebBrowser0.Document.parentWindow End Property !! لاحظ أن الإعلان (التصريح) عن هذه الخصائص أخذ الإعلان العام Public وذلك من أجل إظهارها عند استخدامها من خارج النموذج..1 point
-
1 point
-
انظر هنا وانظر هنا ايضا المنتدى مليء بالموضوعات حول هذا الشأن جرب ابحث في هذه الشاشة في حقل قوقل على كلمة : اهتزاز1 point
-
على ما يبدوا ان المشكله من عندى سوف اقوم بتجربته على جهاز آخر غدا واوفيكم بالرد ان شاء الله جزاك الله خيرا اخى واستاذى العزيز1 point
-
اضافة جميلة وفريدة من نوعها الى مكتبة المنتدى المثال يعمل على اكمل وجه بارك الله فيك حبيبنا ابو ابراهيم وجعله في ميزان حسناتك1 point
-
لم ترد على سؤالى لانى مسحت البيانات وجربت الكود بعد التعديل الذي وضعته لك والكود ياتى بالبيانات في الشيت المطلوب ENTP-SH1 point
-
لم ترد على سؤالى لانى مسحت البيانات وجربت الكود بعد التعديل الذي وضعته لك والكود ياتى بالبيانات في الشيت المطلوب ENTP-SH1 point
-
1 point
-
تفضل اخي عربي مسلم ضع كودك بين هذاين السترين 'Application.Calculation = xlCalculationManual 'Application.Calculation = xlCalculationAutomatic ان شاء الله يكون هو المطلوب الملف جاهز ملف جديد.xlsm1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
هذه الخطوة الاولي ضع هذا الملف داخل مجلد control بحيث يكون داخل مجلد كونترول هذا الملف والمجلد 01 وفي كل مرة تفتح الملف اختر تحديث تلقائي 2021 معدل.xlsx1 point
-
Sheets("Sheet1").Cells(1,1) = Me.TextBox1.Value & " " + Me.TextBox2.Value في الخلية A1?1 point
-
وعليكم السلام - لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب وشكرا !!!!1 point
-
وعليكم السلام 🙂 اخي يونس ، رجاء افتح موضوع جديد فيه طلبك ، وضع مرفق ، وان شاء الله تجد الاجابة على طلبك 🙂 جعفر1 point
-
وعليكم السلام ورحمة الله وبركاته اخى محمد عدنان حضرتك عايز ترحل من الخليه رقم كام ؟ الى الخليه رقم كام ؟ ومن العامود رقم كام ؟ الى العامود رقم كود ؟ ممكن تعمل صورة لشكل النتائج التي تريدها يدوي ليفهم الاخوة ما تريد1 point
-
تم إجراء بعض التعديلات لتتناسب مع المطلوب وهي: كتابة تاريخ 1 في الشهر المطلوب في الخلية c5 وبناء يتم جلب بيانات باقي ايام الشهر وتلوين الجمعة والسبت وكتابة اسم الشهر تلقائيا تم وضع معادلة التصفية الأفقية لجلب تاريخ اليوم المكتوب فيه غ (معادلة مصفوفات) تم وضع معادلة لحساب عدد أيام الغياب بالتوفيق حضور و غياب مع الخلاصة الشهرية.xlsm1 point
-
جرب هذا الملف بالتفصيل Fahad Time Sheet.xlsx1 point
-
السلام عليكم ورحمة الله أخي الكريم، لست أدري لماذا لا تريد أن يكون الحل بالتنسيقات أو بالمعادلات؟ رغم أن الحل بالتنسيقات أحسن وأفضل (ربما يقلل من سرعة عمل الملف إذا كانت تنسيقات أخرى مكثفة)... المهم في الملف المرفق تجد حلا بكود يغير تنسيق أرقام خلايا نطاق معين حسب رقم العمود في النطاق... وأعترف أن الإخوة الكرام لا يبخلون بأكواد أخرى تكون أفضل مما قدمته... أخوك بن علية صفر على الشمال.rar1 point
-
السلام عليكم ضع هذا الكود في حدث ورقة العمل Private Sub Worksheet_Change(ByVal Target As Range) Range("B4:E20").NumberFormat = "@" If Not Intersect(Target, [B4:E20]) Is Nothing Then Select Case Target.Column Case 2: If Len(Target) < 2 Then Target = "0" & Target Case 3: If Len(Target) < 3 Then w = 3 - Len(Target) Do Until Len(Target) = 3 Target = "0" & Target Loop Case 4: If Len(Target) < 4 Then w = 4 - Len(Target) Do Until Len(Target) = 4 Target = "0" & Target Loop Case 5: If Len(Target) < 5 Then w = 5 - Len(Target) Do Until Len(Target) = 5 Target = "0" & Target Loop End Select End If End Sub1 point