نجوم المشاركات
Popular Content
Showing content with the highest reputation on 08 ينا, 2022 in all areas
-
تفضل اخى عربي ملف جديد.xlsm2 points
-
وعليكم السلام 🙂 رجاء استعمال خاصية البحث في المنتدى ، فستحصل على الكثير والكثير 🙂 هذه احدى الروابط . جعفر2 points
-
السلام عليكم ورحمة الله وبركاته وبها نبدأ مشكلتك ليست في الكود مشكلتك في الويندوز تفضل حل مشكله اللغه العربيه2 points
-
Version 1.0.0
323 تنزيل
أهلا بكم.. محاولة متواضعة لتنفيذ الفاتورة السعودية المبسطة باستخدام الجافا سكريب ومتصفح الويب.. أرجو أن تنال استحسانكم..1 point -
اخى الكود الجديد به كل ما تحتاج ان شاء الله1 point
-
بالعكس استاذي الفاضل .... نريد اثراء الموضوع من كل من لديه فكرة .... اشكرك على الاقتحام المرحب فيه ..1 point
-
أولا- أعتذر لاقتحامي النقاش بدون استئذانكم فأنت صاحب الموضوع ثانيا- سعدت بموافقتك ما أقصد واعتقد أن كلنا حولها ندندن1 point
-
بغض النظر عن مواقع التواصل كيف يمكن استخدام طريقتكم لعرض الصفحات التي تتطلب متصفح ميزات غير متوفرة في تلك الأداة المصاحبة للأكسس حيث أن هذا الكود يعتمد علي اننا نقوم بكتابة الشفرة او نمررها كما فعلتم بمرفقكم المميز الفاتورة الالكترونية داخل الأداة وفقط <head> <meta http-equiv="X-UA-Compatible" content="IE=edge"> </head> باختصار كيف يمكن دمج هذا الكود مع كود الصفحة المطلوبة ليتسنا لنا عرضها علي اداة الويب بروزر الخاصة بالأكسس حيث ان هذا ما يحدث عند استدعاء بعض الصفحات علي هذه الأداة وجزاكم الله عنا خيرا
1 point -
اخي هاشم العلوي طبعاً لعدم توضيحك لطلبك تم عمل الاتي حفظ الصفحة بأسم خليه h5 يتم حفظ الملف علي برتيشن d الملف نموذج كنترول .xlsm اخي هل هذا هو المطلوب اخبرني بالنتيجه1 point
-
أهلا بكم.. نسيت أن أذكر شيئاً يتعلق بمواقع التوصل وهو الأمان المشفر، ومنصات IFrame التي يعمل من خلالها المستعرض لا تقدم هذه الميزات..1 point
-
آمين يارب العالمين وجزاكم مثله اخى الكريم والحمد لله الذي بنعمته تتم الصالحات1 point
-
لم يكون فتح المواقع داخل أكسس هو هدفي، ولا هو مضمون مشاركتي أيضا! فأرجو أن لا يكون هذا توقعكم ولا تتطلعاتكم.. بالنسبة لبرامج التواصل مثل الواتس والتليقرام فهذه لها APIs تعمل من خلاله، وتحتاج منك إلى اشتراك..1 point
-
السلام عليكم ورحمه الله وبركاته وبها نبدأ ضع هذا الكود في ملفك Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) + 1 UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 4) = UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 2) * UserForm1.ListBox1.List(UserForm1.ListBox1.ListIndex, 3) UserForm1.Label7.Caption = UserForm1.Label7.Caption + 1 Dim varTotal As Currency Dim varTotal2 As Currency Dim varRow As Integer For varRow = 0 To (UserForm1.ListBox1.ListCount - 1) varTotal = varTotal + UserForm1.ListBox1.Column(2, varRow) varTotal2 = varTotal2 + UserForm1.ListBox1.Column(4, varRow) Next UserForm1.Label7.Caption = varTotal UserForm1.Label9.Caption = varTotal2 End Sub بدلا من Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) UserForm2.Show End Sub1 point
-
الحل الامثل هو ان تعمل مجلد اسمه مثلا (مجلد العمل) وتضع فيه كل ما يخصك في هذا الموضوع حتي يكون الامر سهلا عليك اذا اردت نقله بالفلاشة الي اي موقع اخر تحياتي1 point
-
جزاكم الله عنا خيرا لقد عمل المرفق بكل سلاسة وبشكل مذهل كالعادة فليس هذا الابداع بالشئ الجديد عليكم قد كنت فقدت الأمل في التعامل مع أداة الويب بروزر حتي سمعت كلماتكم هذه في اماكنية ترقية الأداة وأرجو ان يتسع وقتكم للرد علي استفساري البسيط هذا لدي صفحة اريد التعامل معها من خلال الأكسس كيف احقن هذه الصفحة بالكامل أو امرر عنوان هذه الصفحة بما تحتوي من شفرات بعد استخدام طريقتكم هذه للتعامل معها كمتصفح edge وجزاكم الله خيرا1 point
-
هل من الممكن معرفة الطريقة استاذ @أبو إبراهيم الغامدي @jjafferr ؟؟؟؟ أهلا بكم.. حتى أنا لا أعرف ما الذي يرمي إليه الاستاذ جعفر! أما عن الوسم المشار إليه: فهو يؤهل مستعرض ويب للعمل بالتقنيات الجديدة (HTML5) و (CSS3)، في هاتين التقنيتين أشاء كثيرة منها (تشغيل ملفات الصوت والصورة) دون الحاجة إلى أدوات خارجية. معرفة المزيد أرجو مراجعة منظمة مقاييس W3 | ومدرسة W31 point
-
وعليكم السلام ورحمة الله وبركاته يمكنك ان تضع هذا الكود في وحدة نمطية (Module) Public Sub ColorCurrentRec(frm As Form, RecKey As Control, ByVal bakColor As Integer, ByVal ForColor As Integer) Dim ctl As Control On Error Resume Next '=================================== 'The required color argument for QBColor function 'is a whole number in the range 0-15. ' 'The color argument has these settings: ' 'Number Color Number Color '0 Black 8 Gray '1 Blue 9 Light Blue '2 Green 10 Light Green '3 Cyan 11 Light Cyan '4 Red 12 Light Red '5 Magenta 13 Light Magenta '6 Yellow 14 Light Yellow '7 White 15 Bright White '============================================= For Each ctl In frm.Section(0).Controls With ctl ' If .Section = 0 Then 'you can change the condition as you want here .FormatConditions(0).Modify acExpression, , RecKey.Name & "=" & RecKey If Err.Number = 7966 Then Err.Clear .FormatConditions.Add acExpression, , RecKey.Name & "=" & RecKey End If If Err.Number <> 438 Then .FormatConditions(0).BackColor = QBColor(bakColor) .FormatConditions(0).ForeColor = QBColor(ForColor) .FormatConditions(0).FontBold = True End If ' Else ' Exit For ' End If End With Next ctl ثم تستدعيها من خلال الفورم الذي تريده هكذا 'ID = اسم الحقل الذي ستسند قيمة الشرط اليه ممكن تغير شرط التساوي داخل الوحدة النمطية الي ما تشاء او تجعل الحقل يساوي null '8 = هذه قيمة لون الخلفية للحقل ويمكن تغير القيمة من 0 - 15 '9 = هذه قيمة لون النص للحقل ويمكن تغير القيمة من 0 - 15 'حسب الجدول الموضح للقيم في الوحدة النمطية Call ColorCurrentRec(me, ID, 8, 9) تمنياتي بالتوفيق1 point
-
1 point
-
تم عمل المطلوب في اول عشر صور قم بنسخ الكود في يقية الصور تفضل Encodingمعدل2.xlsm1 point
-
السلام عليكم مشاركة مع استاذنا jjafferr نفس النتيجة بس من سكة تانية وان كانت طريقة اخونا الفاضل jjafferr اسهل اخي houari-edu انسخ رقم التعريف الوطني في نفس خانة سنة الميلاد في الجدول ثم ادهب الي النموذج واضغط انتر (ENTER) 11.accdb1 point
-
اخي نثغةثمسخبف الكود بعد اضافة الطباعه والمسج اصبح هكذا sub SAVE() Dim Ws As Worksheet: Set Ws = Sheets("صفحة العمل") Dim Sh As Worksheet: Set Sh = Sheets("ترحيل الشراء") LR = Sh.Range("a" & Rows.Count).End(xlUp).Row Sh.Range("a" & LR + 1) = Ws.Range("a2") Sh.Range("a" & LR + 1).Offset(0, 0) = Ws.Range("a12") Sh.Range("a" & LR + 1).Offset(0, 2) = Ws.Range("b11") Sh.Range("a" & LR + 1).Offset(1, 2) = Ws.Range("b12") Sh.Range("a" & LR + 1).Offset(2, 2) = Ws.Range("b13") Sh.Range("a" & LR + 1).Offset(3, 2) = Ws.Range("b14") Sh.Range("a" & LR + 1).Offset(4, 2) = Ws.Range("b15") Sh.Range("a" & LR + 1).Offset(0, 3) = Ws.Range("J3") Sh.Range("a" & LR + 1).Offset(1, 3) = Ws.Range("J4") Sh.Range("a" & LR + 1).Offset(2, 3) = Ws.Range("J5") Sh.Range("a" & LR + 1).Offset(3, 3) = Ws.Range("J6") Sh.Range("a" & LR + 1).Offset(4, 3) = Ws.Range("J7") ' Sh.Range("a" & LR + 1).Offset(0, 4) = Ws.Range("D3") Sh.Range("a" & LR + 1).Offset(1, 4) = Ws.Range("D4") Sh.Range("a" & LR + 1).Offset(2, 4) = Ws.Range("D5") Sh.Range("a" & LR + 1).Offset(3, 4) = Ws.Range("D6") Sh.Range("a" & LR + 1).Offset(4, 4) = Ws.Range("D7") ' Sh.Range("a" & LR + 1).Offset(0, 5) = Ws.Range("l3") Sh.Range("a" & LR + 1).Offset(1, 5) = Ws.Range("l4") Sh.Range("a" & LR + 1).Offset(2, 5) = Ws.Range("l5") Sh.Range("a" & LR + 1).Offset(3, 5) = Ws.Range("l6") Sh.Range("a" & LR + 1).Offset(4, 5) = Ws.Range("l3") ' Sh.Range("a" & LR + 1).Offset(0, 6) = Ws.Range("e11") Sh.Range("a" & LR + 1).Offset(1, 6) = Ws.Range("e12") Sh.Range("a" & LR + 1).Offset(2, 6) = Ws.Range("e13") Sh.Range("a" & LR + 1).Offset(3, 6) = Ws.Range("e14") Sh.Range("a" & LR + 1).Offset(4, 6) = Ws.Range("e15") Sh.Range("a" & LR + 1).Offset(0, 7) = Ws.Range("l3") Sh.Range("a" & LR + 1).Offset(1, 7) = Ws.Range("l4") Sh.Range("a" & LR + 1).Offset(2, 7) = Ws.Range("l5") Sh.Range("a" & LR + 1).Offset(3, 7) = Ws.Range("l6") Sh.Range("a" & LR + 1).Offset(4, 7) = Ws.Range("l7") Sh.Range("a" & LR + 0).Offset(1, 7) = Ws.Range("f11") [a12] = [a12] + 1 Sh.Activate Sheets(1).Activate Reply = MsgBox(" تم الترحيل بنجاح" & Chr(10) & " هل تريد'طباعة الفاتورة ", vbYesNo) 'هنا هل تريد طبع النسخ ام لا If Reply <> 6 Then Exit Sub 'هنا هل تريد طبع النسخ ام لا ' ActiveWindow.SelectedSheets.PrintPreview 'معاينة قبل الطباعة ' ' Application.Dialogs(xlDialogPrinterSetup).Show '''هذا خاص باختيار الطباعه Application.ScreenUpdating = False With Sheets("صفحة العمل") 'هنا حدد الشيت المراد طباعتة' With .UsedRange For i = 1 To .Rows.Count If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True '-c معتمد علي العمود 'هذا الستر الذي يمنع الفراغ End If Next i End With .PrintOut Rows.Hidden = False End With Application.ScreenUpdating = True end sub تفضل مثال 3.xlsm اخبرني بالنتيجه1 point
-
وعليكم السلام 🙂 في الاستعلام: [سنة الميلاد]: "20" & mid([رقم التعريف الوطني],4,2) جعفر1 point
-
وعليكم السلام 🙂 فيه مثال بسيط في هذه المشاركة ، من سطر امثلة عملية: .1 point
-
الله ان شاء الله يقويك على فعل الخير اخوي ابو خليل ، وفيت وما قصرت 🙂 الملاحظات الوحيدة اللي عندي الآن هي: في جميع برامجي يوجد لدي هذين الحقلين ، وقد انقذوني في الكثير من الحالات لما يكون عدد السجلات عندك بالآلاف ، حقل: Auto_ID ونوعه ترقيم تلقائي، وحقل: Auto_Date ونوعه رقم ، والقيمة الافتراضية فيه Now هذه الحقول ليست للمبرمج وإنما للبرنامج ، ويستطيع المبرمج الاستفادة منها 🙂 اما فهرست الحقول ، فهذا يتم على خطوتين: عند عمل علاقات بين الجداول ، ثم لاحقا ، لكل حقل نعمل له فرز ، او تصفية (بمعيار) ، سواء في الاستعلام او الكود 🙂 جعفر1 point
-
الاكسس كفئ لدرجة جدا كبيرة ، فلا غبار عليه ، والاكسس مثله مثل اي برامج ، فيه مشاكل ، وكذلك SQL Server تكون فيه مشاكل ، واذا عندك مشكلة برمجية في الاكسس ، فالـ SQL Server لن يحل هذه المشكلة ، لذا ، يجب ان تكون عندك رؤية واضحة لسبب انتقالك من برنامج الى آخر. هناك عدة طرق لحل هذه المشكلة: سواء بتصدير البيانات الى ملف csv (وليس اكسل ، فالاكسل بصيغة xls يتحمل 65,536 سجل فقط ، وصيغة xlsx تتحمل 1,048,576 سجل فقط) ، او عمل نسخة من الاكسس ، والمنتدى مليئ بمثل هذه المواضيع. سؤال: هل الاكسس السبب ، او برنامجك هو السبب؟ للعلم ، يجب على المبرمج ان يعيد برمجة البرنامج (كله او اجزاء منه) بين الفترة والاخرى ، وذلك بسبب ان التعديلات والاضافات بعضها جوهري ، ويضطر الميرمج ان يضعها في البرنامج بطريقة او اخرى ، بينما لاحقا ، يجب عليه ان ينظر في البرنامج ككل من اول وجديد ، ويعمل النسخة التالية منه ، وفي مفهوم البرمجة ، فالنسخة الثالثة عادة تكون الانضج 🙂 جعفر1 point
-
السلام عليكم من فضلكم أبحث عن كود vba excel يطلب إدخال كلمة مرور محددة مثل "0000" عند وصول تاريخ معين أو عدد مرات استعمال الملف وأيت يتم مسك هذا الكود؟ وجزاكم الله خيرا1 point
-
لم افهم ارجو التوضيح1 point
-
عمل مبدع رائع يدل على حس جميل في التصميم واشم فيها رائحة من توجيهات استاذنا جعفر حينما كنت منهمكا في عملك بدأت اجرب لاخراج نموذج التفاصيل .. وتبين لي وجوب دمج بعض الجداول المساعدة ، علما ان ماتم عمله من نماذج لن يتغير او يتأثر ... فقط عندي ملاحظة بسيطة عليها المهم : انت ذكرت الاعارة فضلا اذكر لي كيف تتم وهل هي خارج نطاق الادارة ( وتسجل باسم من ؟ ) وهل الاعارة دائمة مثل غيرها ام محددة بزمن معين1 point
-
اعتقد المفروض Select Case Me.Combo30 لكن بصراحة لم افهم كيف يعمل البرنامج1 point
-
و عليكم السلام ور حمة الله و بركاته... تفضل يا اخي المطلوب دليل الهاتف مع التعديل ..... الليست بوكس من اليسار الي اليمين لتلائم الشكل باللغة العربية ... دليل الهاتف مع التعديل الليست بوكس.xlsm1 point
-
أهلا بكم.. نأتي الآن على الجزء المهم في هذه المشاركة: الجافا سكربت.. # سبق الذكر أن رمز الاستجابة السريع يتم إنتاجة بواسطة مكتبة قدمها أحد مطويري جافا سكربت، وقد قمت بتضمينها إلى جدول شفرات الويب WebXCode Table لأتمكن من استخدامها ضمن صفحة الويب، وذلك عن طريق الحقن الصوري! بمعنى أنك لو ضغط بزر الفارة الأيمن على الصفحة ثم نقرت View Source لن ترى هذه المكتبة، لكن في الحقيقة إنها موجودة! لكن تعمل في الخلفية! -- يلحق تضمين المكتبة، الأعلان عن متغير غرضي يحمل نسخة من المكتبة يُعرّف بمكان وضع الرمز والخصايص التي يحملها.. var Xqrcode =new QRCode('qr-stamp',{text:'QR Code',colorDark:'DarkBlue',colorLight:'WhiteSmoke',width:120,height:120}); وقد تم تضمين المكتبة والتصريح عن المتغير بالطريقة التالية WD.getElementById("qr-code").innerHTML = WebCode(3) _ & ";var Xqrcode =new QRCode('qr-stamp'," _ & "{text:'QR Code',colorDark:'DarkBlue',colorLight:'WhiteSmoke',width:120,height:120});" qr-stamp: هو معرف وسم HTML الذي سيوضع فيه الرمز، والبيانات التالية هي الخصائص، هذا المعامل إلزامي text: يحمل قيمة نصية تمثل بيانات الرمز؛ قد تكون بيانات نصية بسيطة، وقد تكون بيانات نصية مرمزة. ما يمرر على هذا المتغير؛ هو ماسيظهر على الرمز، سوف نقوم بإدراج الرمز عن طريق وظيفة أخرى.. colorDark: يحمل قيمة اللون الغامق في الرمز؛ يراعى في هذا مقاييس HTML في تعريف الألوان.. colorLight: يحمل قيمة اللون الفاتح في الرمز؛..... width: يحمل قيمة رقمية تمثل عرض الرمز height: يحمل قيمة رقمية بالبكسل تمثل طول الرمز !! يجب أن تكون قيم الطول والعرض متساوية. أكبر قيمة هي 256 بكسل !! جميع هذه الخصائص اختيارية إلا أنها تحمل قيم افتراضية.. ؟؟ كيف استدعي المتغير وأمرر إلىه القيم، وأين أضعه المتغير Xqrcode الذي سبق وأن أعلنا عنه يمثل المكون الأبوي لتابعين هما Xqrcode.makeCode(var) // له معامل نصي واحد يمثل البيانات التي ستظهر في الرمز Xqrcode.clear() // يقوم بمحو البيانات السابقة // يتم استدعائها بالطريقة التالية // من داخل النموذح WD.script.Xqrcode.makeCode(var) // من خارج النموذج WF.WD.script.Xqrcode.makeCode() // WF غرض يمثل النموذج // WD غرض يمثل صفحةويب يمكن أن تضعه في أي مكان من النموذج. بالنسبة لي وضعته في حدث السجل الحالي.. !! لتكن على علم أن جافا سكربت حساس لحالة الأحرف..1 point
-
واياكم استاذ عمر وانت اللى قمت بالحل فالمشاركه التاليه للاستفسار فلم افعل شىء ربنا يوفقك 😀1 point
-
أهلا بكم.. أعلم أن هذا الأسلوب جديد بعض الشيء لكن أعتقد أنه بالإمكان التأقلم معه! خاصة وأن الشفرة ليست بالمعقدة.. شفرة الجافا سكربت ليست بالصعبة بل في ظني أسهل بكثير من الفيجوال بيسك لأنها تتعامل مع المتغيرات كأغراض (Objects)، والغرض يقوم بخدمة ذاته دون الحاجة إلى وظائف خارجية.. كان القصد من هذه المقدمة الإطرائية هو إزالة الرهبة من استخدام أسلوب الدمج بين أكسس والويب.. لنعد إلى المشروع ونتعرف على مكوناته وطريقة عمله.. :: يحتوي الجدول (WebCode) على ثلاث سجلات؛ يحتوي كل منها على نص برمجي يقوم بتهيئة العمل على متصفح الويب.. -- السجل الأول يحتوي على نص HTML. يقوم هذا النص بتهيئة الصفحة للعمل.. ما يهمنا في هذا النص هو تبويب <head> الذي يحتوي التعليمات التي تجعل متصفح الويب يعمل كمتصفح Edge. -- السجل الثاني يحتوي على نص CSS يقوم هذا النص بتزيين الصفحة وترتيب مكوناتها.. سوف أشرح في وقت لاحق الفرق بين Id, Class، وعن كيفية الوصول إلى عناصر الصفحة من أجل تزيينها. -- السجل الثالث يحتوي على شفرة JavaScript المعني بتكوين رمز QR.. ما يهمنا من هذه الشفرة هو طريقة استخدامها فقط!.. :: تحتوي قاعدة البيانات على وحدين نمطيتين.. -- الأولى للتحويل من وإلى النظام العشري TLVModule -- الثانية للتحويل من وإلى نظام 64بت UTF8EncodeDecode كلتا الوحدتين مستعارة من الويب وليس لي فيها عمل..َ :: مصدر مكتبة الجافا سكربت: QRCode Library (JavaScript) :: مصدر الوحدات النمطية: TLV.QRCode.MSAccess.VBA1 point
-
السلام عليكم اليك اخى الملف تم تنفيذ المطلوب شاشة دخول.xlsm1 point
-
السلام عليكم . تقبل الله منا و منكم الصلاة و الصيام و القيام إن شاء الله لقد قمت بإضافة تحديث للبرنامج يمكن الزبون من تأجيل عملية إغلاق البرنامج لأجل حفظ العمل المتواجد بين يده. أضفت زر أمر في نموذج العد التنازلي عند الضغط عليه يغير العد من 60 و يغير حجم النموذج و ينقله للركن العلوي في الجهة اليسرى من الشاشة close pro.rar
1 point -
اللهم آمين وإياك وجميع المسلمين يا رب. تفضل أخي لك ما تريد وفوقه بوسة . بالتوفيق. Pharmasy4.rar1 point
-
إليك الحل أخي الكريم، مع تمنياتي لك بالتوفيق في حياتك وفي وظيفتك الجديدة. 0951_2.rar1 point
-
استاذنا العزيز @ناقل.. اعتقد هو موضوع جديد على منتدانا بدأ به استاذنا الجليل ابو ابراهيم الغامدي طرحك الجريء جعلني قبل قليل اتصفح بعض المواقع الاجنبية حول الموضوع .. لكنني لم اعرف من اين ابدأ انا اعلم بأن (حوصلتك) كبيرة كما نقولها في العراقي 😄.. وعليك طرح المواضيع في هذا الخصوص لتعطينا دعما في البحث لينتفع منه بقية اخوتنا0 points
