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

بسم الله نبدأ عامنا الحالي بهذه الموسوعة 1200_Visual_Basic_macro_examples.rar عسى أن ينال إعجابكم

و هذا هو شكل البرنامج بعد إضافة بعض الأوامر للنماذج الفرعية تأثيرات النماذج.rar

تفضل التعديل يا أخي محمود: و اتبع شرح الصور تضغط على إدراج صورة فتظهر لك الصورة الثانية تبحث عن مكان الصورة و تختارها ثم تضغط على فتح فيظهر مسار الصورة في مكانه و تظهر الصورة أيضا في مكانها الصورة الثانية: 1988.rar

تفضل اخي هذه المشاركة السابقة ممكن تفيدك كود للحفظ كل دقيقة.rar

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

صمم الصفحة وكيفية العمل عليها وان شاء الله محلولة بمعنى صمم لاصقات ارقام الجلوس التى تريدها فقط

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

ارفع نموذجاً عن الملف

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

شكرا جزيلا بارك الله فيك

لوقلت فنان الفن له ناسه حق الكلم يكتب صفحة فكراسه صالح رسم رسمه طلعت هنا فراسه شكرا بجد

السلام عليكم أخوي وائل هل هذا الذي كنت تريده!! جعفر

يا سلام عليك ، الآن الجواب واضح مثل البدر جعفر

بسم الله الرحمن الرحيم الحمد لله الواحد القهار، العزيز الغفار،مكور الليل على النهار ، تذكرة لأولي القلوب والأبصار وتبصرة لذوي الألباب والاعتبار ، الذي أيقظ من خلقه من اصطفاه فزهدهم في هذه الدار، وشغلهم بمراقبته وإدامة الأفكار ، وملازمة الاتعاظ والادكار، ووفقهم للدؤوب في طاعته والتأهب لدار القرار، والحذر مما يسخطه ويوجب دار البوار، والمحافظة على ذلك مع تغاير الأحوال والأطوار. أحمده أبلغ حمد وأزكاه، وأشمله وأنماه. أما بعد: رأيت أن أقدم عملا خالصا لوجه الله الكريم لعل الله يتغمدنا برحمته ولذا رأيت أنا الفقير إلى الله المحمدي عبد السميع عبد الغني أن أجمع الأكواد بطريقة منظمة تسهل للجميع الحصول عليها عند استخدام محرك البحث ، ولهذا ساقدم سلسلة من الأكواد كل كود بعنوان واضح يسهل الوصول له في موضوع مستقل وسأشرح كيفية استخدام الكود ماتيسر لي إن شاء الله وعلى الله قصد السبيل ****************************************** هذا كود تفقيط ولاأروع يصلح لتحويل ارقام المجموع الكلي للطلاب الى تفقيط ويصلح ايضا لرجال الماهيات طريقة الاستفادة من الكود افتح ملف اكسيل اضغط على الرز ALT وانت ضاغط على الزر اضغط على F11 الموجود أعلا لوحة المفاتيح ستظهر شاشة الماكرو اضغط على موديول 1 سيتم فتح الموديول الصق فيه الكود الموجود تحت هذا السطر انتقل الى صفحة الإكسيل واكتب في الخلية B6 اي رقم مثلا 50 وفي أي خليه أخرى ولتكن الخلية D6 اكتب الجملة التاليه اضغط انتر سيظهر تفقيط الرقم وإذا أردنا الاستفادة من الكود في الماهيات نضع في الخليه D6 هذه الجمله =" فقط "&ArbNum2Text(B6; 2;3;"جنيه";"جنيهات";1;"قرش";"قروش";1) أو اكتب هذه الجمله = "الصافي : " & ArbNum2Text(B6) منقول للفائده ودمتم في حفظ الله كود تفقيط مفيد باستخدامات مختلفة.rar

وعليكم السلام جرب الدالة المعرفة التالية Function CaculateVolt(cycle As Variant) Application.Volatile Static x If IsEmpty(cycle) Then x = 0 x = x + cycle CaculateVolt = x * 2 End Function اكتب في الخلية B1 المعادلة التالية =CaculateVolt(A1) الآن جرب إدخال عدد الدورات في الخلية A1 ، اكتب 5 ستجد النتيجة أصبحت 10 ، ثم اكتب الرقم 10 ستجد النتيجة 30 ، ثم اكتب الرقم 15 ستجد النتيجة 60 .. إذا أردت عمل إعادة ضبط للقيمة فقط قم بمسح محتويات الخلية A1 تقبل تحياتي

السلام عليكم 1. يجب ادخال جميع ارقام الصور في الجدول يدويا من البداية ، سواء انك تستخدمهم او لا ، وبدون ادخال المسار ، 2. في اول نموذج تفتحه في البرنامج ، وعلى حدث "التحميل" او "فتح النموذج" ضع هذا الكود: الكود الاول سيجعل نافذة اختيار الملفات تفتح في آخر مجلد تم اغلاقها منه (حيث العادة انها تفتح على c:\c) ، والكود الثاني ليخبر البرنامج مكان وجود مجلد الصور icons If Len(Explorer_Path & "") = 0 Then Explorer_Path = "c:\" End If icons_Folder = "C:\Users\ACER\Desktop\icons\" 3. يجب ان يكون اسم كل حقل في النماذج ، اسم صحيح وموجود في الجدول ، وعندما نريد تغيير الصورة ، نستخدم النقر المزدوج . 4. كل حقل يجب ان يكون لدية الكود التالي على حدث "النقر المزدوج" Call Get_Pictures(Me, "img2001", "2001") وهذا مثال كامل للحدث للحقل img1006 Private Sub img1006_DblClick(Cancel As Integer) Call Get_Pictures(Me, "img1006", "1006") End Sub 5. وهذه الوحدة النمطية تقوم بالعمل الشاق Option Compare Database Public Explorer_Path As String Public icons_Folder As String Function Get_Pictures(frm As Form, Ctl, img_Name) On Error GoTo err_Get_Pictures Dim strFilter As String 'make the user select a new picture strFilter = GetOpenFile_CLT(Explorer_Path, ".حدد مكان الصورة") 'if nothing is selected, exit If strFilter = "" Then Exit Function 'return to this folder, next time windows explorer is opened Explorer_Path = Mid(strFilter, 1, InStrRev(strFilter, "\")) 'delete the old picture, if it exists 'get the name and path of this picture from the table, and delete the picture 'delete the file Kill DLookup("item_pic", "Tmenu", "[itemcode]='" & img_Name & "'") 'now copy the new file 'make the new picture name, with the icon filder path New_Path = icons_Folder & img_Name & ".jpg" New_Path = Replace(New_Path, "\\", "\") 'copy the file FileCopy strFilter, New_Path 'update the pictre path in the table mySQL = "UPDATE Tmenu SET item_pic = '" & New_Path & "' WHERE itemcode='" & img_Name & "'" CurrentDb.Execute (mySQL) 'show the picture in the Form frm(Ctl).Picture = New_Path Exit_Get_Pictures: Exit Function err_Get_Pictures: If Err.Number = 94 Or Err.Number = 53 Then 'Old picture does not exist for deletion Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Function 6. في تجاربي استعملت النماذج Form1 و Form2 ، ولا تستطيع استعمال النموذج المستمر لوضع الصور. جعفر 514.اضافة صورة لصنف.mdb.zip

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$A$1" Then If Target.Value = 5 Then ActiveSheet.PrintOut End If End If End Sub

تفضل يا أخي.. أدخل الأرقام في العمود B ومن ثم شغل مولد الباركود multi barcode.rar

الدرس الثالث: استخدام جهاز قارئ الباركود في الإكسيل كثير من الناس يعتقد أن استخدام جهاز قراءة الباركود يحتاج نظام وأجهزة خاصة للتعامل معه، ولكن الأمر أبسط مما كنت أتوقعه، في ا لدرس الأول حللنا عقدة تكوين شريط الباركود ، لم يبق لدينا إلا أن نربطه في قاعدة البيانات في الإكسيل. كل ما عليك هو التالي: 1- طباعة ملصقات الباركود على ورقة A4. 2- بناء قاعدة البيانات في الإكسيل. 3- بناء صفحة الإدخال في الإكسيل. بالنسبة لآلية عمل جهاز القارئ يكون لو بعملتين هما: كتابة الكود ثم enter. فلذلك ينتقل مؤشر الماوس إلى السطر التالي. ولكي نجعل المؤشر يبقى في مكانه نقوم بحماية الصفحة (انظر الشرح في الملف المرفق) لا أعتقد أنكم تحتاجود درس آخر .. لأننا وصلنا إلى الفكرة ومبرووووك عليكم التعامل مع الباركود. barcode reading.rar

الدرس الأول: مولد الباركود أول خطوة لمعرفة كيفية قراءة الباركود هو طريقة توليدها ومن ثم ربطها بالبرنامج. تختلف صياغة الباركود نظراً للكود الذي يتبعه والتي تحدد معايير رسم وقراءة رموز الباركود، مثل كود 93 و كود 39 وكود 128، ولهذا السبب يشتكي البعض من عدم تمكنه من قراءة رموز الباركود، ولهذا في هذا الدرس سنعتمد على كود 128 وكود QR لأنهما الأكثر شيوعاً وتقبل معظم الأجهزة.. هناك برامج ومواقع كثيرة تقوم بتوليد الباركود، ونحن في هذا الدرس قمنا بتوليد الباركود عن طريق موقع خارجي من خلال المرفق التالي. barcode generator.rar

الأخوة والأخوات مشرفى وأعضاء المنتدى الغالى كل عام وانتم بخير اقدم لكم بعض الأعمال التى قد تفيد في تيسير العمل في العملية التعليمية كلها نتاج توجيهاتكم وردودكم واقتراحاتكم لكم منى خالص التحيات وأرق الأمنيات بالتوفيق أخيكم سليمان محمود جده أخصائي أول تطوير تعليم بمدرسة مجول الإعدادية المشتركة إدارة سمنود التعليمية - محافظة الغربية كنترول شيت (أولى- ثانية) إعدادي .rar (3.3 M http://www.multiupload.com/4OFT4ESS79 كنترول شيت (أولى-ثانية-ثالثة) إبتدائي .rar (2.6 M http://www.multiupload.com/LCPENVBU28 كنترول شيت (رابعة-خامسة-سادسة)إبتدائي .rar (2.9 M http://www.multiupload.com/2OLV5FSQRQ برنامج ملف الإنجاز 2011-2010.rar (429 K http://www.multiupload.com/F7FO9P7RVM برنامج توزيع الملاحظة آليا .rar (280 K http://www.multiupload.com/GEUD8OGRBV