سامي الحداد

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

مشاركة مع الاستاذ @TQTHAMI تفضل اخي بلال جرب الملف واعلمنا بالنتيجة بالتوفيق بلال - تعديل.rar

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

تفضل اخي الكريم شوف التعديل ووافينا بالنتجة بالتوفيق الفاتورة.accdb

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

استاذي ومعلمي الجليل استاذ خالد حفظك الرحمن انتم من نتعلم منهم كل يوم وما نحن الا تلاميذ في الصف الاول .. ستبقون ذخرا لنا ولهذا الصرح الكبير . الله يحفظكم تحياتي لك يا الغالي

يسعدني مرورك والتجربة اخوي قاسم وجزاك الله خيرا. تحياتي لشخصك الكريم

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

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

السلام عليكم اخواني جميعا ورحمة الله وبركاته عملت هذه القاعدة منذ زمن وتوقفت لانشغالي بالعمل والسفر الدائم . بإختصار شديد الهدف من البرنامج هو للبحث في جميع جداول وحقول القاعدة . لقد رايت هذا الموضوع هنا .. لا اعرف اذا كان هذا البرنامج يفي بالغرض ام لا. للامانة العلمية بعض الاكواد استعنت بها من الانترنت وحقوق الاشخاص والاكواد محفوظة. يوجد بعض الجداول في القاعدة وفيها بيانات قليلة . أتمنى من الجميع التجربة وموافتي بالنتيجة تحياتي للجميع Search All Tables 2020 New.accdb

السلام عليكم اخي @biskra هذا الملف انا الذي عملته والاخ السائل قد كتب كلمة قائمة ..... في التقرير اعتقدت انه يريد فقط إضافة الطلاب والعمال بدون كلمة قائمة لانها موجودة على العموم حصل حير . وهذا تعديل على حسب ما فهمت تحياتي قاعدة.accdb

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

السلام عليكم ورحمة الله وبركاته أخواني الاعزاء @العنزي العنزي @أبو ألين @kkhalifa1960 @ابو البشر @ابو نزار@محمد التميمي @غريب طرابلس @شامل2 @at_aziz@r3dx@Matin_Murad واسف ان نسيت احدا بارك الله فيكم جميعا واشكركم على المرور والتهنئة و إن شاءالله معا نتعلم ونفيد بعضنا البعض. جزاكم الله خيرا احبتي دمتم في رعاية الله وحفظه

مشاركة مع الاستاذ @TQTHAMI جزاه الله خيرا تحياتي للجميع قاعدة.accdb

كما تفضل الاستاذ عمر فى طريقة اسهل باستخدام دالة 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