Shivan Kurdi

اولا اضفت لك حقل جديد في جدول لرمز اللجنة و ستكتب في حدث بعد تحديث ال 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 بت اليك هذا الرابط لعل يفيدك

حسب فهمي للموضوع هنا سيتم تغير الرقم سري a -hp1 بدل رقم 1 اعطي ماتريد وانا عندي سؤال ما هذه المرفقات مع القاعدة ؟

عفوا على التأخير الرد اتفضل اليك طريقة تقدر تستخدم دالة if هكذا 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) = "ح" 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) = "ج" 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) = "ذ" 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) = "ذ" Then Me.committee = "لجنة 2" End If انا قلت لك اعطيني كل الاحتمالات اي أي لجنة بيأخذ اي حروف للرجال والنساء مثلا اذا لجنة رقم 3 بيأخذ الحروف ط ش س ع ق مثلا للرجال والنساء تقدر ان لا تستخدم في ذلك السطر من الكود Me.Gender = "انثى" او "ذكر" لأن كل منها بيأخذ نفس الحروف اتمنى لن يوصل لك المطلوب تقبل تحياتي

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

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

انقل كل الملفات الى مكان واحد مثلا قرص D و جرب

اليك هذا If Len(Me.Combo11 & "") <> 0 Then If Me.Combo11 = "اجمالى الطلاب النشطين" Then DoCmd.OutputTo acOutputReport, "active_s", acFormatPDF, "D:\active_s.pdf" ElseIf Me.Combo11 = "طبقا للكلية" Then DoCmd.OutputTo acOutputReport, "active_s_f", acFormatPDF, "D:\active_s_f.pdf" ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then ElseIf Me.Combo11 = "طبقا للنوع" Then End If Else MsgBox "اختر التقرير اولا" End If End Sub

اسف ما رأيت مرفقك اتفضل استخدمت هذا الكود If Len(Me.Combo11 & "") <> 0 Then If Me.Combo11 = "اجمالى الطلاب النشطين" Then DoCmd.OpenReport "active_s", acViewPreview ElseIf Me.Combo11 = "طبقا للكلية" Then DoCmd.OpenReport "active_s_f", acViewPreview ElseIf Me.Combo11 = "طبقا للفرقة الدراسة" Then DoCmd.OpenReport "", acViewPreview ElseIf Me.Combo11 = "طبقا للنوع" Then DoCmd.OpenReport "", acViewPreview End If Else MsgBox "اختر التقرير اولا" End If اعمل التقريرين لفرقة الدراسة و النوع و اكتب اسمهما في الكود 8.rar

حسب فهمي لسؤالك اتفضل هذا Database1.rar

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

ههههه حبيت فكرتك اتفضل عملت لك هذا عالسريع Database1.rar

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

يا اهلا بك اخي حسين ممكن تعطي لي كل الاحتمالات لكي اعمل لك الكود المناسب تقبل تحياتي

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

حسب فهمی لسؤالك في تاريخ الى قبل تحديث اكتب If me.date1 > me.date2 then Msgbox "لا یجوز " Cancel = -1 End if غير me.date1 بأسم مربع نصي تاريخ من و me.date2 بأسم مريع نصي تاريخ الى

اعتذر منك على التأخير الرد اولا ثانيا مثالك ابد مش واضحة لي ممكن تتوضح اكثر اعطيني اسماء الحقول للجمع و كل 24 ساعة اي في يوم اخر تريد تنقل مجموع الى اي جدول وفي اي حقل

هو لخبيرنا استاذ @أبو إبراهيم الغامدي اللي اعتذر ان يشارك في هذا الموضوع وانت قد قمت بمشاركة بدل منه شكرا لكما

استأذن من استاذي الحبيب @Elsayed Bn Gemy اتفضل اليك هذا Option Compare Database Private Declare Function LoadKeyboardLayout Lib _ "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long Private Sub ÃãÑ0_Click() Call LoadKeyboardLayout("00000401", 1) ' ARABIC End Sub Private Sub ÃãÑ1_Click() Call LoadKeyboardLayout("00000409", 1) ' ENGLISH End Sub واليك ملفك بعد تعديل تغير اللغة.rar

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

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

عذركم معكم ما عندنا حق عليكم استاذي الحبيب ولكن كنت اريد ان اخبركم بأن هنا موضوع هكذا لعل وعسى يكون هناك واحد يريد ان يشارك في هذا الموضوع تقبلوا تحياتي وانا اعتذر منكم

والف تحية لك سيدي انا اتفضل هذا على النقطة الثانية كما عملت لي في موضوع هدية سكرين ريليشن

يا جماعة يا استاذنا @jjafferr @ابو خليل @رمهان @صالح حمادي @أبو عبدالله الحلوانى @محمد ايمن @محمد سلامة @sandanet @ابا جودى @Elsayed Bn Gemy @عبد الفتاح كيرة @أبو إبراهيم الغامدي @أمير2008 وأي شخص اللي ما ذكرت اسمه ونسيته اطلب منكم جميعا لا تطمعوا علينا اعطينا ما عندكم الله يجزيكم خيرا اخوكم الصغير شفان ريكاني