Shivan Kurdi

استأذن من استاذنا @محمدنجار اخي محمد طريقة استاذنا محمد نجار هو طريقة حيحة لكي توصل الى الرصيد اذا هو ليس بمطلبك ممكن تخبرنا عن نوعية العمل اي سبب لهذا الطلب تقبل تحياتي

استاذنا @Elsayed Bn Gemy اعطاك الطريقة وانا اعطاك طريقة واليك ملف تيكس بها ارقام للغات تقدر تستخدمه في مثالي الاعلاه كود اللغة في الكمبيوتر.rar

هل انت مصمم ؟ في اي وقت يكون ... اهلا بك معنا ... واظن ان الاصدار 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