سامي الحداد

كما تفضل الاستاذ عمر فى طريقة اسهل باستخدام دالة Count لا يستحسن استخدام الماكرو الا في الضرورة وهذه طريقة اخرى اظهار النتيجة في النموذج الرئيسي. بحث.accdb

اسف على التاخير .. وذلك لانشغالي بالعمل والسفر تفضل اخي الكريم حسب ما فهمت من طلبك Private Sub T_mg_BeforeUpdate(Cancel As Integer) With Me.RecordsetClone .FindFirst "N_lagna = " & Me!T_mg & "" Cancel = (.NoMatch = False) If Cancel Then MsgBox "رقم اللجنة " & NewLagna & " موجود مسبقا" _ & vbCr & vbCr & "الرجاء تغير رقم اللجنة... وإعادة المحاولة ", vbInformation, "لجنة مكررة" Me.Undo Me.Bookmark = .Bookmark End If End With End Sub هذا الكود في حالة الضغط على مفتاخ الادخال (انتر) Private Sub أمر21_Click() On Error Resume Next With Me.RecordsetClone .FindFirst "N_lagna = " & Me!T_mg & "" Cancel = (.NoMatch = False) If Cancel Then MsgBox "رقم اللجنة " & NewLagna & " موجود مسبقا" _ & vbCr & vbCr & "الرجاء تغير رقم اللجنة... وإعادة المحاولة ", vbInformation, "لجنة مكررة" Me.Undo Me.Bookmark = .Bookmark End If End With نفس الكود السابق ولكن في حالة الضغظ على زر إضافة اللجنة جرب ووافنا بالنتيجة سوف اغيب في الفترة القادمة لبعض الوقت واذا كان هناك اي تعديل فالاخوة والاساتذة لن يقصروا ان شاءالله جزاهم الله خيرا. تحياتي

تفضل اخي الكريم هل هذا هو المطلوب ؟ اعداد اللجان.accdb

تفضل أخي الكريم عسى ات يكون هو المطلوب. Private Sub LoginBT_Click() On Error Resume Next Dim LogUser As New CUser If trycount > 3 Then MsgBox " Of a good Muslim is his leaving alone what does not concern him", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" MsgBox " The program will be closing now ,,, Please check designer ", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" DoCmd.Quit ElseIf IsNull(Me.user) Then MsgBox ("Please, you must enter your user name ") Me.user.SetFocus ElseIf IsNull(Me.pass) Then MsgBox (" Please, you must enter your password ") Me.pass.SetFocus ElseIf Len(Trim(Me.pass)) > 20 Then MsgBox (" Shall not exceed twenty password letter or number") Me.pass.SetFocus '------- Mohamed Essam ------ secreted user to enter the activation model and the abolition of shift team and hide and show tables --------- ElseIf [user] = "sadmin" And [pass] = "sadmin" Then DoCmd.Close DoCmd.OpenForm "MSysEdit" ElseIf [user] = "adminx" And [pass] = "adminx" Then DoCmd.Close DoCmd.OpenForm "UsersAbility", acNormal '------- Mohamed Essam ------ secreted user to enter the activation model and the abolition of shift team and hide and show tables --------- ElseIf [user] = "خالد" And [pass] = "123" Then DoCmd.Close DoCmd.OpenForm "Main1" Else LogUser.UserName = Me.user LogUser.pass = Me.pass If LogUser.Valid Then Set MyUser = LogUser DoCmd.Close DoCmd.OpenForm "frmend" Else MsgBox " User name or password is incorrect. Please try again ,,,", vbOKOnly + vbMsgBoxRight + vbInformation, "Warning!" trycount = trycount + 1 End If End If End Sub مع خالص التقدير للاستاذ @ابو جودي محمد عصام . بالتوفيق

الشكر لله عز وجل حياك الله اخي الكريم . وبخدمتكم

وعليكم السلام اخي الكريم الرجاء كتابة الكود كاملا حتى يتسنى لنا معرفة التفاصيل او ارفق مثالا حتى تحصل على الاجابة من اخوانك . على العموم انظر لهذا الجزء من الكود وحاول ان تطوعه على حسب ملفك. Dim UserSecurity As Integer UserSecurity = (DLookup("UserSecurityLevelID", "tblUser", "UserLogin='" & Me.txtLoginID.Value & "'")) Select Case UserSecurity Case Is = 1 DoCmd.OpenForm "_Main1" Case Is = 2 DoCmd.OpenForm "_Main2" Case Is = 3 DoCmd.OpenForm "_Main3" End Select بالتوفيق

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

ما هي الفائدة من ربط الرسالة بمربع النص وبما انك تستخدم مربع النص لامر اخر فلا ارى اي ضروره لعمل هذا .. مجرد رأي على العموم عدلت قليلا على ملفك لانه كان هناك اشاكلية في حقل التلفون , جرب هذا التعديل تحياتي تعديل رسائل.mdb

وعليكم السلام هذا الكود لمنع تكرار السجل Private Sub UserName_BeforeUpdate(Cancel As Integer) Dim ID As Integer Dim UsrName As String Dim Msg, Style, Title, Response UsrName = Me.UserName ID = Nz(DLookup("[ID]", "UserLog", "[UserName]='" & Me.UserName & "'"), 0) If ID <> 0 Then Me.Undo Cancel = True Msg = "This name already exists" & vbCrLf & _ "Mr. " & UsrName & vbCrLf & vbCrLf & _ "Yes : Go to that record" & vbCrLf & _ "No : Delete this record" Style = vbYesNo + vbExclamation + vbDefaultButton2 Title = "Repetition is prohibited" Response = MsgBox(Msg, Style, Title) If Response = vbYes Then DoCmd.FindRecord ID, , , , , acAll, True End If End If End Sub وبما انك لم ترفق ملف للتعديل عليه اليك هذا الملف ويمكنك اقتباس الفكرة منه بالتوفيق Prevent Duplicate & Filter.accdb

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

تفضل اخي حمدي التعديل Private Sub Combo18_AfterUpdate() ' ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[phone_number] = '" & Str(Nz(Me![Combo18], 0)) & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub

السلام عليكم اخي الكريم حمدي بصراحة انا كذلك لم استطع فهم الصيغة على العموم اليك هذا الكود جرب ووافنا بالنتيجة ويا حبذا لو ترفق كل الملف بكل الاوامر والاكواد حتى يتسنى لنا معرفة اين المشكلة بالضبط. تفبل تحياتي If Me.SELCTALL = True Then DoCmd.SetWarnings True DoCmd.RunSQL "UPDATE email SET[selcted]=True , SelectRow ='R' ", dbFailOnError DoCmd.RunSQL "UPDATE email SET[SendStuts]=True , SelectRow ='R' ", dbFailOnError ElseIf Me.SELCTALL = False Then DoCmd.RunSQL "UPDATE email SET[selcted]=Null , SelectRow ='T' ", dbFailOnError DoCmd.RunSQL "UPDATE email SET[SendStuts]=Null , SelectRow ='T' ", dbFailOnError End If DoCmd.SetWarnings False DoCmd.Requery If Me.Dirty Then Me.Dirty = False

بارك الله فيك أخي العزيز @محمد احمد لطفى بارك الله فيك وجزاك الله خيرا وان شاءالله نخدمكم بقدر ما نستطيع. الله يبازك فيك اخي ابو اشرف جزاك الله خير الجزاء. الله يبارك فيك اخي الكريم. أستاذي الحبيب أبو أحمد بارك الله فيك . واعاننا الله واياكم على خدمه اخواننا الكرام. بارك الله فيك اخي الكريم وجزاك الله خير.

الف الف مبروك أخي @Eng.Qassim على الترقية ومزيد من التألق . تمنياتي لك بالتوفيق

السلام عليكم تفضل هذه المحاولة وبدون اي استعلام بعد إذن الاستاذ @Ahmed.IQ بالتوفيق بحث شامل2.accdb

أخى واستاذي الحبيب خالد جزاك الله خيرا وبارك الله فيك انتم اساتذتنا ومنكم تعلمنا الكثير الكثير نفعنا الله بكم ودمتم ذخرا لهذا الصرح الكبير. جزاك الله خيرا وبارك الله فيك .

وهذه محاولتي بعد ان فهمت طلبك Private Sub المحافظة_AfterUpdate() Dim strFilter As String strFilter = "المحافظة=" & "'" & Me.المحافظة & "'" If Me.FilterOn = True Then Me.Filter = "" Me.FilterOn = False Else Me.Filter = strFilter Me.FilterOn = True End If End Sub Private Sub أمر8_Click() DoCmd.OpenReport "تقرير1", acViewPreview, , Me.Sub1.Form.Filter End Sub بالتوفيق اوفسنا (2).accdb

بارك الله فيك اخوي العزيز ابو خليل الشرف لي بما تعلمته منكم اساتذتي الاجلاء. تحياتي لشخصكم الكريم حبيب المنتدى أبو بسملة بارك الله فيك وجزاك الله خيرا واعاننا الله واياكم على خدمه اخواننا الكرام تحياتي لشخصك الكريم

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

وعليكم السلام اخي حمدي اليك الكود التالي جرب ووافنا بالنتيجة DoCmd.SetWarnings False If Me.SELCTALL = True Then DoCmd.RunSQL "UPDATE email SET selectrow = True;", dbFailOnError ElseIf Me.SELCTALL = False Then DoCmd.RunSQL "UPDATE email SET selectrow = False;", dbFailOnError End If Me.Requery DoCmd.SetWarnings True بالتوفيق

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

السلام عليكم ورحمة الله وبركاته بصراحة متفاجئ من الموضوع مازلت طالب علم اتعلم منكم اخوانى الاحبه يكفيني فعلا ان اكون بينكم اخوتي واحبتي وهذا وسام غالي من منتدى عظيم مليئ بالأستاذة الكبار علماً وخلقاً والتزاماً أشكر لكم جميعاً هذا الوسام وحسن الظن أساتذتي الكرام كل الشكر والتقدير لفريق الموقع ولأساتذتي وزملائي على هذه الثقة وأتمنى أن أكون عند حسن الظن ويكفيني شرفاً خدمتكم بما يمن الله به أخي وأستاذي ومعلمي الحبيب جعفر جزاك الله خيرا على كل ما تقدمه لنا تعلمنا منكم كرم الخلق في تعاملكم وتواضعكم وإن شاءالله اكون عند حسن الظن. حفظكم الرحمن اخى واستاذى محمد البرناوى بارك الله فيك واعاننا الله واياكم على مساعدة اخواننا الكرام اخى واستاذى الحبيب @AbuuAhmed بارك الله فيك وجزاك الله خيرا واعاننا الله واياكم على خدمه اخواننا الكرام اخى واستاذى المهندس قاسم @Eng.Qassim جزاك الله خيرا وبارك الله فيك وان شاء الله ارى هذا اللقب عن قريب قد اضيف اليك وفقكم الله أحسن الله إليكم، أخي الفاضل @Abou Elhassan اخى واستاذي الحبيب طاهر الوليدي جزاك الله خيرا أنت الورد كله بارك الله فيك ووفقكم الله اخى واستاذى الحبيب @Moosak اسعدك الله وبارك فيك وفى علمكم ونتعلم كل يوم منك ومن اساتذتنا الافاضل معاً نكمل مسيرة نشر العلم و نتعلم كل ماهو جديد اعاننا الله جميعا على هذه الثقه فى خدمه اخواننا الكرام اخى الحبيب حمدى الظابط بارك الله فيك وجزاكم الله خيرا وفقكم الله اخي الكريم @TQTHAMI بارك الله فيك وجزاكم الله خيرا ، شكراً على تشجيعكم وإن شاءالله معا نكمل مسيرة العلم ونتعلم كل ما هو جديد اخي الكريم @qathi بارك الله فيك وجزاكم الله خيرا تقبلوا تحياتي وتمنياتي بالتوفيق واسال الله لى ولكم ان يكون عملنا خالصا لوجهه الكريم

اسف لم اجرب الكود السابق فقد كتبته على عجالة اليك التعديل على الكود Private Sub Command38_Click() If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then Exit Sub DoCmd.GoToRecord acDataForm, Me.Name, acNext End Sub Private Sub Command39_Click() If Me.CurrentRecord = 1 Then Exit Sub DoCmd.GoToRecord acDataForm, Me.Name, acPrevious End Sub

Private Sub Command38_Click() Me.Dirty = False DoCmd.GoToRecord record:=acNext End Sub ضع هذا الكود في زر التالي غير السطر الثاني من الكود بالنسبة للازرار الباقية مثلا السابق او سجل جديد الخ. بالتوفيق

الشكر لله أخي انصاري بالتوفيق