أبوبسمله

وعليكم السلام اتفضل اخى راجع الرابط التالى بالتوفيق

ام تريد ؟ اذا كان فاستخدم تجميع التواريخ بالسنه كالتالى 👇 او بالشهر Month([تاريخ الالغاء]) واليك المرفق بالتوفيق دمج الاستعلام.rar

اللهم آمين الامر لله حبيبى الغالى متحرمش منك اباجودى بالتوفيق اخى العزيز

وعليكم السلام اخى الفاضل هل تريده مثل هذا الموضوع 👇 ان كان مثله فا استخدم الموديول لاخى ومعلمى العزيز جعفر جزاه الله عنا كل خير ان لم يكن فوضح اكثر ماذا تريد ؟ بالتوفيق

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

واياكم اخى بالتوفيق

وعليكم السلام مشاركه مع اخى واستاذى العزيز اوبمهاب @SEMO.Pa3x جزاه الله عنا كل خير اتفضل التعديل Private Sub s5_AfterUpdate() On Error GoTo ED Dim ss As String Dim QRY As String Set dbs = CurrentDb() QRY = "SELECT * from wer;" Set Q = dbs.OpenRecordset(QRY) ss = "الاسم='" & s5 & "'" Q.FindFirst ss If Not Q.NoMatch = True Then s1 = Q!الرقم_الوظيفي s2 = Q!التاريخ s3 = Q!اليوم s4 = Q!الوظيفة 's5 = Q!الاسم s6 = Q!تاريخ_الالتحاق s7 = Q!تاريخ_الاستقالة s8 = Q!فترة_العمل Else Beep MsgBox "هذا الموظف غير موجود في ملف الموظفين", , "المبرمج" s1 = Null s2 = Null s3 = Null s4 = Null s5 = Null s6 = Null s7 = Null s8 = Null End If AD: Exit Sub ED: Resume AD End Sub Private Sub أمر17_Click() On Error GoTo ED Dim ss As String Dim QRY As String Set dbs = CurrentDb() QRY = "SELECT * from wer;" Set Q = dbs.OpenRecordset(QRY) ss = "الرقم_الوظيفي=" & s1 Q.FindFirst ss If IsNull(s1) Then Beep Exit Sub End If Q.Edit Q!التاريخ = s2 Q!اليوم = s3 Q!الوظيفة = s4 Q!الاسم = s5 Q!تاريخ_الالتحاق = s6 Q!تاريخ_الاستقالة = s7 Q!فترة_العمل = s8 Q.Update s1 = Null s2 = Null s3 = Null s4 = Null s5 = Null s6 = Null s7 = Null s8 = Null s1.SetFocus AD: Exit Sub ED: Beep Resume AD End Sub بالتوفيق موظفين مطلوب نفس الطريقة لكن عند كنابة اسم الموظف وليس الكود.mdb

واياكم اخي بالتوفيق

وعليكم السلام ورحمة الله وبركاته استخدم الفورمات Format(txtDate;"dd/mm") txtdate=اسم مربع النص بالتوفيق اخي

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

احسن الله اليك اخى خالد 💐

تسلم اخى ومعلمى العزيز تنويه بسيط :- ان شاء الله تكتب ان شاء الله وليس انشاء الله والله اعلى واعلم ولعلها من سرعه الكتابه احبكم فالله

اللهم آمين والشكر لله ثم لاخوانى واساتذتى جزاهم الله عنا كل خير بالتوفيق اخى ازهر اعذرونى رصيد الاعجاب عندى خلصان مش عارف اعمل اعجابات خالص

بالتاكيد اخى واستاذى بارك الله لنا فيكم ودمتم لنا سالمين سبقتنى انت المره دى جزاك الله خيرا 💐 اخوك الصغير احمد

Private Sub Form_Current() If Me.RecordsetClone.RecordCount >= 30 Then If MsgBox("عددالسجلات", vbYesNo + vbMsgBoxRight) = vbYes Then DoCmd.OpenForm "a" End If End If End Sub

جزاك الله خيرا اخى واستاذى العزيز خالد @kha9009lid بحاول اسبقكم لكى تصححوا لنا ان اخطات بارك الله لنا فيكم وجزاكم عنا كل خير 💐

وعليكم السلام اخى ازهر اتفضل جرب الكود التالى Private Sub Form_Current() If Me.RecordsetClone.RecordCount >= 30 Then MsgBox "ضع رسالتك كما تريد " End Sub بالتوفيق

جزاك الله خيرا اخى ومعلمنا العزيز جعفر بارك الله لنا فيكم وجزاكم الله عنا كل خير 💐 اخوكم الصغير احمد

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

اهلا ومرحبا باخى واستاذى الغالى خالد عن نفسى اقوم باخذ نسخه من البرنامج الذى اعمل عليه عالفلاش وبرفع نسخه عالايميل يدويا وهذا لاى ظرف طارئ لقدر الله بارك الله فيكم اخوانى واساتذتى وجزاكم الله عنا كل خير 💐

اللهم آمين أجمعين ان شاء الله تسلم اخى و استاذى العزيز 💐

امممممممممم يالا خير ان شاء الله هبقى اغلبك معايا بقى لو احتجته استاذى بارك الله فيك وجزاك الله كل خير

جزاك الله خيرا 💐 استاذى العزيز هل هو مجانى ام لا ولو امكن وصله لتحميله

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

السلام عليكم اتفضل اخى @عمر طاهر جرب ووافنا بالنتيجه بالتوفيق test.accdb