صالح حمادي

السلام عليكم و رحمة الله تعالى وبركاته أخوتي و أساتذتي الكرام حياكم الله أود أن أطرح فكرة حول قيام أعضاء منتدانا الغالي بالمشاركة في تأليف كتاب حول أكواد VBA و يسمى بعد ذلك الكتاب بإسم المنتدى و يكون صدقة جارية لكل من شارك في. حيث يقسم العمل إلى مجموعة أقسام أو أبواب و تكلف كل مجموعة معينة من أعضاء المنتدى الذين يمتلون الخبرة الكافية. و كل مجموعة يتقاسمون الأدوار فيما بينهم. على أن يقدموا العمل المطلوب جاهزا ليتم تجميعه و مراجعته من قبل خبرائنا الأعزاء و طرحه في المنتدى ليستفيد منه كل من يرغب في ذلك. جعلنا الله و إياكم خدما و ذخرا للإسلام و المسلمين إن شاء الله.

تضيف مربع نص في النموذج الثاني الذي تريد فتحه بعد نموذج الدخول. في الزر الذي يقوم بفتح النموذج الثاني : اذهب إلى محرر الشيفرة و بعد السطر الذي يقوم بفتح النموذج أكتب قيمة مربع النص في النموذج الثاني = قيمة مربع نص اسم المستخدم في نموذج الدخول

الاسم : صالح حمادي تاريخ الميلاد : 25 / 02 / 1988 البلد : الجزائر - ولاية الوادي المهنة: أستاذ مادة رياضيات التعليم : ليسانس مراقبة و تشخيص الأنظمة الكهربائية 2009 + ماستر شبكات كهربائية 2011 الحالة الاجتماعية : متزوج و قد وهبني المولى عز وجل طفلة في هذه الأيام و قد سميتها على بركة الله "غفران" معلومات أخرى : أهوى لغات البرمجة (VB.net و Delphi) و الأوفيس بشكل عام و الأكسس بشكل خاص

السلام عليكم تفضل جرب هذا الملف بعد التعديل موظفين.rar

الله يبارك فيك أستاذ محمد شكرا جزيلا أخي سامي

بارك الله لكم جميعا و جعلها في ميزان حسناتكم إن شاء الله

إضافة إلى إجابة الأستاذ العزيز و القدير تشفان: يمكن إستعمال هذا السطر فقط لحدث عند التغيير للكمبوبكس Me.kesm = DLookup("[kesm]", "users", "deCode([UName],'User')= user") ليقوم بالعمل

نعم هذه الدالة تقوم بإرجاع قسم كل مستخدم تقوم بإختياره Me.نص2 = DLookup("[classe_user]", "tbl_user", "[user_name]='" & Me.user_name & "'") و هذا مثال على ذلك dlookup.rar

بارك الله فيكم و جزاكم الله كل خير

الله يبارك فيكم جميعا و جعل الله بيوتكم عامرة بالذكر و الدعاء و حافلاة بالأفراح و الأعياد و المناسبات السعيدة إن شاء الله

استعمل الدالة dlookup DLookUp("classe","tbl_users","user_name'" & me.name_textbox &"'")

شكرا أستاذ علي على هذا الإطراء

me.data1 هي مربع نص التاريخ الأول me.data2 هي مربع نص التاريخ الثاني

شكرا جزيلا

نعم هذا ما سيقوم به التقرير لأن مصدر التقرير هو إستعلام البحث يعني راح يطبع النتائج الموجودة في الإستعلام فقط

السلام عليكم قم بإضافة الكود التالي لحدث عند التغيير للكمبوبكس الأول و الثاني: Me.Refresh 2017.rar

أنشئ تقرير و اجعل خاصية مصدر السجلات لهذا التقرير هي الإستعلام الذي يقوم بالبحث

قم بإضافة حقل جديد في جدول B_sales و سمه مثلا الباقي الحالي و اذهب إلى النموذج الفرعي و جعل مصدر عنصر التحكم لمربع نص الباقي : الحقل الباقي الحالي و قم بإضافة الكود التالي لحذث بعد التحديث لمربع نص الكمية: Me.الباقي = Me.رصيد_المخزن - Me.الكمية db101.rar

السلام عليكم أريد أن أضيف على بعض الشرح على الكود الرائع للأستاذ جعفر SelText هذه الدالة تقوم بنسخ الجزء المحدد من مربع النص SelLength و هذه الدالة تقوم بحساب عدد الحروف المحددة في مربع النص SelStart و هذه الدالة تقوم بإعطاء ترتيب الحرف الذي يبدأ منه التحديد في مربع النص

جرب هذا الكود إذن: varFilter = (varFilter + " AND ") & "[اسم حقل التاريخ] Between me.date1 And me.date2

السلام عليكم استعمل هذا الكود في حدث بعد التحديث لمربع نص الكمية: Me.رصيد_المخزن = Me.رصيد_المخزن - Me.الكمية

للبحث بين تاريخين ضع الكود التالي في معيار حقل التاريخ لإستعلام البحث : Between [Forms]![frmSearch1]![date1] And [Forms]![frmSearch1]![date2]

هذه الصورة لمربع نص واحد بالأكسس و ليست مأخوذة من صفحة وورد و يمكن عمل كل هذا بتغيير خاصية مربع النص "تنسيق النص" إلى "نص منسق" و سوف تتمكن من التحكم في تنسيق مربع النص و كأنك في الوورد : نوع الخط . اللون . التسطير. المحاذاة كل سطر على حدى...الخ

السلام عليكم استعمل الكود التالي: Me.txt1 = Abs(Me.txt2) abs هي دالة القيمة المطلقة يعني راح تعطيك النتيجة دائما موجبة بالتوفيق

هذا خاص بإصدار 2007 فما فوق حسب علمي