Shivan Rekany

هل انت مصمم ؟ في اي وقت يكون ... اهلا بك معنا ... واظن ان الاصدار 2010 راح يعجبك كتير

والحمدلله

جميلة جدا استاذ @ابا جودى صرت صديق للالوان والتصميم

يا ليت قد قلت هذا مسبقا مثالنا هو لتغير الكيبورد من الانكليزي الى العربي والعكس بل اذا تريد ان تدخل الارقام بالعربية اليك هذا الكود اكتبه في حدث عند تحميل ام عند فتح النموذج لكل مربعات النصية Private Sub Form_Load() Me.RWATIB.NumeralShapes = 2 End Sub او غير هذا الخاصية في النموذج عند فتح التصميم لمرة واحدة فقط شوف الصورة اختر مربع النص و غير خاصية نوميرال شيبس الى ناشينال وليس العربي ام سيستم واليك هذا النموذج لاستفادة اكثر ادخال الارقام العربية.rar

استفضل استاذي الغالي @عبد الفتاح كيرة طلاب (1).zip

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

استأذن من استاذنا @عبد الفتاح كيرة ما رأيك عن هذا هل هذا ماتريد

فكر انت في المنتدى ... اقدر اقول هو منتدى الاولى للتعليم في عالم العربي نعم هناك ما تريد اتفضل اليك هذا الرابط واليك الرابط اللي ما قال عنه استاذنا @sandanet النسخة الاخيرة اي بعد اضافة من استاذنا @jjafferr اختار ما تريد تقبل تحياتي

هل وصلتم للحل ما ؟ لأني نزلت المرفق ما كان بها اشياء المطلوبة لكي نشوف وين المشكلة !!

غدا ان شاء الله لي العودة انتظرني اتفضل جرب هذا المرفق انا اتأخرت لازم اروح جربه و وافيني بالنتيجة بحث مساهم.rar

الله يستر عليك يا أميـــر بعد دخولك و كثر مشاركاتك في هذه الايام صرنا

مادام تريد لهدول الحروف فقط اتفضل اليك هذا استعلام SELECT Table.NAME, Replace(Replace(Replace(Replace([Table]![NAME],"أ","ا"),"إ","ا"),"آ","ا"),"ة","ه") AS MYNAMEEEE FROM [Table]; واليك هذا الكود خلف الزر لأنه الكود بها حروف العربية لذا غير مكان الحروف Private Sub Command0_Click() Dim REPL As String REPL = Replace(Replace(Replace(Replace(Me.NAME1, "أ", "ا"), "إ", "ا"), "آ", "ا"), "ة", "ه") Me.MYNAME = REPL End Sub واليك ملفك بها كلا طريقين الغاء الهمزه والاليف.rar

لأنه يكتب الكلمة 7 مرات عن شكل طبقات نقدر نقول خدعة جميلة شكرا لك اباجودي على الهدية

انت على الحق الخطأ من عندي افتح محرر فيجوال واحذف هذا Or Left(Me.myname, 1) = "ع" من هذا السطر وبالنسبة ما شفت في الكود اي خطأ وحقا النتيجة بيعطي الخطأ واخير عملت تغير تسلسلي في الكود وضبطت اليك ملفك بعد تعديلين فيها بحث مساهم.rar

بسيطة لا تستخدم الماوس عفوا قصدي يعني هناك كود عند تحريك الماوس .. ماهو الكود ؟ و هل هو مهم جدا ام لا ؟ هل نقدر بدل ان نستخدم عند تحريك الماوس ان نستخدم في مكان اخر ؟ هذا وهذا و هذا واليك اكثر من هذا لازم نعرفه جيدا ! لذا يجب ان ترفق قاعدة مصغرة من قاعدة بياناتك اي نريد تلك النموذج مع مصدره لكي نشوفه تقبل تحياتي

وهذه الأداة هدية مني خاص لاستاذي الحبيب @ابوخليل ولكل اعضاء ومن يستخدم اوفيس اصدار 2003 ويريد ان يستخدم اصدرا احدث بواجهة 2003 اي بها قوائم اصدر 2003 او من يستخدم اصدار اعلى من 2003 وعنده ذكريات مع قوائم اصدار 2003 اتفضل من هنا http://www.officeclassicmenu.com/en/download.html

او اليك هذا باستخدام count بدل dcount Private Sub Form_Current() Me.Text15 = Me.ÑÞã_ÇáÏÑÌÉ Me.Refresh If Me.Text15 <= (Me.Text17 - 1) Then Me.AllowEdits = False Else Me.AllowEdits = True End If End Sub stu.rar

العفو استاذ محمد ايمن

الله يجزيك الفردوس الاعلى شكرا لك سيدي

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

اضغط على مفتاح شيفت مطولا و افتح البرامج

استأذن من استاذنا @ابا جودى و @أمير2008 اتفضل القي نظرتا الى هذا تقدر تستخدم احد هذه الاكواد Private Sub Form_Current() On Error Resume Next Me.Text15 = Me.رقم_الدرجة Me.Refresh If Me.Text15 <= DCount("[رقم الطالب]", "جدول_الدرجة", "[رقم الطالب]=" & Me.رقم_الطالب) - 1 Then Me.رقم_الدرجة.Locked = True Me.رقم_الطالب.Locked = True Me.رقم_المادة.Locked = True Me.اسم_المادة.Locked = True Me.الدرجة.Locked = True Else Me.رقم_الدرجة.Locked = False Me.رقم_الطالب.Locked = False Me.رقم_المادة.Locked = False Me.اسم_المادة.Locked = False Me.الدرجة.Locked = False End If End Sub او Private Sub Form_Current() On Error Resume Next Me.Text15 = Me.رقم_الدرجة Me.Refresh If Me.Text15 <= DCount("[رقم الطالب]", "جدول_الدرجة", "[رقم الطالب]=" & Me.رقم_الطالب) - 1 Then Me.AllowEdits = False Else Me.AllowEdits = True End If End Sub اليك قاعدة بياناتك stu.rar

اتفضل اليك هذا الكود If DCount("[id]", "table1", "[id]=" & Me.Text1) > 0 Then If MsgBox("هل تريد ان تحذف سجل رقم ( " & Me.Text1 & " ) فعلا", vbYesNo + vbMsgBoxRight, "") = vbYes Then Dim sql As String sql = "DELETE Table1.ID, Table1.NAME, Table1.TEL, Table1.DATE FROM Table1 WHERE (((Table1.ID)=[Forms]![Form1]![Text1]));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True MsgBox "تم حذف السجل المرقم ( " & Me.Text1 & " ) بنجاح" Me.Text1 = "" End If ' msgbox Else MsgBox "ليس لدينا اي سجل برقم ( " & Me.Text1 & " ) في جدولنا" End If ' dcount وهذا قاعدة بايناتك بعد اضافة الكود الاعلاه ID.rar

اولا اضفت لك حقل جديد في جدول لرمز اللجنة و ستكتب في حدث بعد تحديث ال gender او تقدر تستخدم في حدث عند الحالي او اذا اذا عندك اسماء مكتوبة تقتدر تستخدم في خلف زر و تستخدم مع الكود فور تو لكي يسجل في كل سجلات لكن بعد ما عطيتني كل الاحتمالات اتفظل قاعدة بياناتك بعد اضافة حقل الخاص للجنة واضافة هذا الكود Private Sub Gender_AfterUpdate() If Me.Gender = "ذكر" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "أ" Or Left(Me.myname, 1) = "إ" Or Left(Me.myname, 1) = "آ" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ا" Or Left(Me.myname, 1) = "أ" Or Left(Me.myname, 1) = "إ" Or Left(Me.myname, 1) = "آ" Or Left(Me.myname, 1) = "ب" Or Left(Me.myname, 1) = "ت" Or Left(Me.myname, 1) = "ث" Or Left(Me.myname, 1) = "ج" Or Left(Me.myname, 1) = "ح" Then Me.committee = "لجنة 1" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "ح" Or Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ذ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "ز" Then Me.committee = "لجنة 2" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "خ" Or Left(Me.myname, 1) = "د" Or Left(Me.myname, 1) = "ذ" Or Left(Me.myname, 1) = "ر" Or Left(Me.myname, 1) = "ز" Or Left(Me.myname, 1) = "س" Or Left(Me.myname, 1) = "ش" Then Me.committee = "لجنة 2" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "س" Or Left(Me.myname, 1) = "ش" Or Left(Me.myname, 1) = "ص" Or Left(Me.myname, 1) = "ض" Or Left(Me.myname, 1) = "ط" Or Left(Me.myname, 1) = "ظ" Then Me.committee = "لجنة 3" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ص" Or Left(Me.myname, 1) = "ض" Or Left(Me.myname, 1) = "ط" Or Left(Me.myname, 1) = "ظ" Or Left(Me.myname, 1) = "ع" Or Left(Me.myname, 1) = "غ" Or Left(Me.myname, 1) = "ف" Or Left(Me.myname, 1) = "ق" Then Me.committee = "لجنة 3" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "ع" Then Me.committee = "لجنة 4" ElseIf Me.Gender = "انثى" And Left(Me.myname, 1) = "ك" Or Left(Me.myname, 1) = "ل" Or Left(Me.myname, 1) = "م" Or Left(Me.myname, 1) = "ن" Or Left(Me.myname, 1) = "ه" Or Left(Me.myname, 1) = "و" Or Left(Me.myname, 1) = "ي" Then Me.committee = "لجنة 4" ElseIf Me.Gender = "ذكر" And Left(Me.myname, 1) = "غ" Or Left(Me.myname, 1) = "ف" Or Left(Me.myname, 1) = "ق" Or Left(Me.myname, 1) = "ك" Or Left(Me.myname, 1) = "ل" Or Left(Me.myname, 1) = "م" Or Left(Me.myname, 1) = "ن" Or Left(Me.myname, 1) = "ه" Or Left(Me.myname, 1) = "و" Or Left(Me.myname, 1) = "ي" Then Me.committee = "لجنة 5" End If End Sub وفي حدث الحالي انا كتبت Gender_AfterUpdate لكي اذا تفتح اي سجل يسجله اذا عندك سجلات مسجلة من قبل وتقدر تحذفه بعد تسجيل بحث مساهم.rar

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