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

كل عام وانتم بالف خير عيدكم سعيد

تفضل يا أستاذى أنا تلميذك

عليكم السلام و رحمة الله و بركاته أولا ما يصلح أن تسمى حقلا باسم date غيرته إلى mdate أضف السطرين التاليين إلى زر ترتيب تصاعدى فى النموذج الرئيسى Me.test.Form.OrderBy = "mdate asc" Me.test.Form.OrderByOn = True ملفك بعد التعديل test1005.rar

إذن استعمل كود الأستاذ شفان فهو الذي يقوم بالمطلوب

السلام عليكم ورحمة الله أخواني الكرام وعلمائنا وأساتذتنا العباقرة في هذا الصرح العملاق والأكثر من رائع بعد إنتهاء ولله الحمد من برمجة برنامج شؤون الموظفين والمرتبات ونشره في الموقع منذ فترة وجيزة على هذا الرابط برنامج شؤون وإدارة الموظفين بحلته وشكله الجديد أحببت اليوم بعد طلبات من الاصدقاء أن أقوم برفع البرنامج مفتوح المصدر لكي تتم الفائدة منه في كافة النواحي العلمية والعملية وذلك من (خلال الكودات وطريقة التصميم) ماعليكم سوا فك الضغط عن الملف المرفق وتنصيب البرنامج بكل سهولة وفي الاخير تفعيل الماكرو يعمل البرنامج على كافة أنظمة ويندوز وكافة نسخ أوفيس من 2007 ومافوق لاتنسونا من الدعاء بظهر الغيب في هذه الايام المباركة الملف بامتداد zip هو الملف كاملا Office Soft.Employ & Salary-Source.zip Office Soft.Employ _ Salary-Source.rar

؟؟؟؟؟؟؟؟؟؟ هل تحب منتديات اوفسنا.rar الكود.rar

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

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

جرب هذا الملف الكود مرفق Option Explicit Sub tanslate_data() Dim My_Sh As Worksheet Dim lr1, i, k, m As Integer Dim my_rg, cel As Range Application.ScreenUpdating = False Application.Calculation = xlCalculationManual lr1 = Main.Cells(Rows.Count, "D").End(3).Row Set my_rg = Main.Range("d12:j" & lr1) For i = 1 To 10 m = 0 Set My_Sh = Sheets(i & "") My_Sh.Range("c10:H34").ClearContents My_Sh.Range("j10:o34").ClearContents For k = 12 To lr1 '======================= Select Case m Case Is < 25 If Main.Cells(k, "j") = i Then My_Sh.Cells(m + 10, "c") = Main.Cells(k, "d") My_Sh.Cells(m + 10, "f") = Main.Cells(k, "g") My_Sh.Cells(m + 10, "g") = Main.Cells(k, "h") My_Sh.Cells(m + 10, "h") = Main.Cells(k, "i") m = m + 1 End If Case Else If Main.Cells(k, "j") = i Then My_Sh.Cells(m - 15, "j") = Main.Cells(k, "d") My_Sh.Cells(m - 15, "m") = Main.Cells(k, "g") My_Sh.Cells(m - 15, "n") = Main.Cells(k, "h") My_Sh.Cells(m - 15, "o") = Main.Cells(k, "i") m = m + 1 End If End Select Next Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub studiant_by_classes.rar

الرابط السابق لا يعطي النتائج اذا الحقل يساوي NULL ، لذلك عملت التغيير على استعلام برنامجك ، حتى تحتوي النتائج على جميع الحقول ، التي بها قيم او التي لا تحتوي على قيم او التي هي عبارة عن Null : هذا المثال للحقل School بدل School: Like "*" & [Forms]![Datamasterform]![School] استعمل School1: Nz([School],"") IIf(Len([Forms]![Datamasterform]![School] & "")=0,Nz([School],""),[Forms]![Datamasterform]![School]) جعفر 660.Test2000.mdb.zip

اليك هذا الرابط بها ماتريد اعمل استعلام الفرق بين الجدولين

السلام عليكم ورحمة الله شيت "إحصاء الفصل الدراسي الثاني" غير موجود في الملف المرفق... بن علية حاجي

لماذا تكرر موضوعك ... الم ينصحك الناصحون بعدم تكرار المواضيع ؟

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

السلام عليكم ورحمة الله ربما هذا يفيدك Lists.rar

كلنا نتعلم شكرا لك

لجعل الامر السابق يعمل ، يجب ان نضع علامة صح على الاعدادات التالية (اللي في الدائرة الحمراء): في الاكسس 2003 فما دون: . والاكسس 2010 . جعفر

ارفع ملفاً(نموذجياُ حوالي 50 اسم) يحتوي على اسماء جميع التلاميد مع فصولهم والمعلومات عنهم في ورقة واحدة(هكذا يحب ان تبدأ) و عندها يمكن ادراج صفحات بعدد الفصول و اضافة كل تلميذ في صفه

جزاك الله خيرا نتعلم منك الكثير

صدقت أما التى بالقوسين ففى مصدر بيانات عنصر التحكم من نافذة الخصائص

كل عام وانتم بالف الف خير وتقبل الله منا ومنكم صالح الاعمال

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

السلام عليكم أخي محمد يجب أن توضح المطلوب أكثر : هل هو إخفاء شاشة الأكسس؟ أم إخفاء شريط أدوات أكسس؟

انا اعطيتك رابط فيه مثال ، فهل جربته؟ جعفر

في هذه الحالة يكفي استبدال الأمر For I = 6 To m في الكود بالأمر 34 For I = 6 To كما في الملف المرفق... بن علية حاجي ترقيم_2.rar

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

تقبل الله طاعتكم وكل عام وانتم بخير

استاذي الحبيب عند كتابة هذا في محرر الفيجوال Me.test1 = date() اوتوماتيكيا يتغير الى هذا Me.test1 = date * في محرر فيجوال

=date ()

السلام عليكم شباب عيدكم مبارك وايامكم سعيدة ان شاء الله جعفر

كل عام وانتم بخير

حسب فهمي لسؤالك اليك هذه الملاحظة عند كتابة DATE في محرر الفيجوال مثلا Me.start = date اذن انت بتقول مربع نصي اي حقل باسم ستارت يساوي تاريخ اليوم

الاخ العزيز اشكرك جدا علي التعاون والاهتمام لقد اضفت الى كثيرا تمت التجربه ونجحت اكرر شكري وامتناني وفيق الله

وعليكم السلام هذه طريقتي: Private Sub ÃãÑ56_Click() Dim a_rr As Error Dim X As String On Error GoTo a_rr X = InputBox("enter text", "text ") If Len(Trim(X)) = 0 Then MsgBox "error " Exit sub end if For i = 1 To Len(X) If IsNumeric(Mid(X, i, 1)) Then MsgBox "contains Numbers" Exit Sub End If Next i DoCmd.OpenReport "Rep_sadder", acViewPreview, , "Go_sad like '" & X & "'" Exit Sub a_rr: MsgBox " error " End Sub جعفر

شكرا لكلماتك الطيبة أخي الفاضل وممكن من غير متغير عام فقط option group مجموعة الخيارات مثل الأربع اختيارات في الامتحان ولا أدري لماذا غيرت الطريقة في شاشة تحديد رقم الاختبار فقط أضف عنصر التحكم هذا للنموذج واملأ الخيارات بأسماء الاختبارات ودع القيم هي 1 و 2 و 3 ..... وهكذا

لانك لم رفقت قاعدة بيانات لذا انا عملت العملية على قاعدة استاذنا @محمد احمد لطفى لذا اعتذر منه اتفضل هذا هو كود البحث Private Sub مربع_تحرير_وسرد96_AfterUpdate() ' ابحث عن السجل الذي يطابق عنصر التحكم. Dim rs As Object Set rs = Me.Recordset.Clone On Error GoTo nnn rs.FindFirst "[رقم الملف] = " & Me![مربع_تحرير_وسرد96].Column(1) If Not rs.EOF Then Me.Bookmark = rs.Bookmark Else nnn: If MsgBox("هذا الاسم ليس موجودة في القائمة هل تريد اضافة هذا الاسم ؟ ", vbYesNo, "تنبيه") = vbYes Then DoCmd.GoToRecord , , acNewRec Me.name_b = Me.مربع_تحرير_وسرد96 Me.مربع_تحرير_وسرد96 = Null Else Exit Sub End If End If End Sub واليك المرفق test5.rar

هذا الملف ضفت فيه ورقة الترحيل اريد الترحيل واضافة التاريخ والعدد في صفحة المرحل لها تلقائي اتمنى تساعدني فيها material.rar

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

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

جرب هذا الملف كنموذج tar7im.rar

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

الاخ العزيز يحياوي بداية ... شكرا للكلمات الرقيقة والتي تعبر عن شخص مهذب نبيل هنا كود : تغيير سهم الماوس حيث يقوم باظهار نص (Text) بدلا من ايقونة الساعة الرملية المألوفة منقول من موقع : EXCEL4US ارجو ان ينال الرضى وفقكم الله ياسر الحافظ المؤشر الى نص.rar