محمود الخلف قام بنشر مايو 23, 2021 مشاركة قام بنشر مايو 23, 2021 (معدل) السلام عليكم لدي نموذج للموظفين اريد عندما ادخل /اسم الموظف/ اظهار جميع معلوماته في الفورم في حال كان الاسم موجود واذا كان الاسم غير موجود يقوم بتفريغ كل مربعات النص مع رسالة ان الاسم جديد وغير موجود وجدت هنا في المنتدى البحث بدلالة رقم لكن لم اجد بدلالة نص اريد على غرار هذا الكود لكن يبحث بقيمة نص 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 "هذا الموظف غير موجود في ملف الموظفين", , "المبرمج" DoCmd.GoToRecord , , acNewRec '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 تم تعديل مايو 23, 2021 بواسطه jjafferr وضع الكود بالطريقة الصحيحة بإستخدام <> القائمة رابط هذا التعليق شارك More sharing options...
SEMO.Pa3x قام بنشر مايو 23, 2021 مشاركة قام بنشر مايو 23, 2021 عليكم السلام، ارفق قاعدة بياناتك لكي نقوم بمساعدتك. رابط هذا التعليق شارك More sharing options...
محمود الخلف قام بنشر مايو 23, 2021 الكاتب مشاركة قام بنشر مايو 23, 2021 موظفين مطلوب نفس الطريقة لكن عند كنابة اسم الموظف وليس الكود.mdb رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر مايو 23, 2021 مشاركة قام بنشر مايو 23, 2021 وعليكم السلام مشاركه مع اخى واستاذى العزيز اوبمهاب @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 1 رابط هذا التعليق شارك More sharing options...
محمود الخلف قام بنشر مايو 24, 2021 الكاتب مشاركة قام بنشر مايو 24, 2021 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ابوبسمله قام بنشر مايو 24, 2021 مشاركة قام بنشر مايو 24, 2021 3 ساعات مضت, محمود الخلف said: جزاك الله خيرا واياكم اخى بالتوفيق رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان