محمود الخلف

اريد ان يعطيني ان الاسماء هذه متشابهة وليست فريدة احمد محمد خلف محمد محمد خلف احمد محمد علي

*السلام عليكم ورحمة الله وبركاته* عندي عمود فيه ١٥ ال اسم اريد استخراج الاسماء المتشابه والمكررة مثلا احمد محمد خلف محمد محمد خلف احمد محمد علي

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

شكرا اخي جعفر بارك الله بك

السلام عليكم اخوتي عندي فورم لمرضى يوجد في مربع نص اسم الامراض مثلا(ربو+صرع+التهاب معدة+ضغط) اريد عندما يوجد من بين الامراض مرض السكر او مرض الضغط يكتب لي في مربع نص اخر ان هذا المريض مصاب بمرض مزمن وشكر

جزاك الله خيرا

موظفين مطلوب نفس الطريقة لكن عند كنابة اسم الموظف وليس الكود.mdb

السلام عليكم لدي نموذج للموظفين اريد عندما ادخل /اسم الموظف/ اظهار جميع معلوماته في الفورم في حال كان الاسم موجود واذا كان الاسم غير موجود يقوم بتفريغ كل مربعات النص مع رسالة ان الاسم جديد وغير موجود وجدت هنا في المنتدى البحث بدلالة رقم لكن لم اجد بدلالة نص اريد على غرار هذا الكود لكن يبحث بقيمة نص 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

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