aboarab20 قام بنشر نوفمبر 5, 2015 قام بنشر نوفمبر 5, 2015 السلام عليكم ورحمة الله وبركاته حاولت أرفع الملف لكن ما أستطعت ، لكن الإستفسار إن شاء الله بسيط عندي نموذج وفيه خانة مطلوب من الطبيب أن يعبأ فيها الدواء المطلوب وعندي قائمة مسبقاً في الجداول بأسماء الأدوية والأطباء يرغبون بأنهم يختارون من قائمة الأدوية اللي مسجله مسبقاً في الجداول ، بدون الحاجة إلى كتابتها من الطبيب أحد يساعدنا ياحبايب
عابرسبيل قام بنشر نوفمبر 5, 2015 قام بنشر نوفمبر 5, 2015 عليكم السلام ورحمة الله وبركاته من مربع سرد وتحرير وعن طريق السحب والافلات على الفورم سوف تظهر لك نافذه اتبع مافيها وسوف تصل الى ما تريد ان شاء الله مثال في المرفقات.. EXA.rar 1
aboarab20 قام بنشر نوفمبر 15, 2015 الكاتب قام بنشر نوفمبر 15, 2015 التعديل في المرفق أتمنى المساعدة إذا اخترت من مربع تحرير وسرد ابغى اللي اخترته يروح الى مربع يجمع فيه كل الاختيارات اللي اخترتها يعني اذا اخترت (سبحان الله) ابغاه يسجل في مربع آخر ، وأختار من الخيارات ويسجل في المربع نفسه وتسير مسرودة
jjafferr قام بنشر نوفمبر 15, 2015 قام بنشر نوفمبر 15, 2015 تفضل والكود اللي يضيف هو: Private Sub cmb_List_AfterUpdate() If Len(Me.Add_List & "") = 0 Then Me.Add_List = Me.cmb_List Else Me.Add_List = Me.Add_List & vbCrLf & Me.cmb_List End If End Sub جعفر 263.EXA.accdb.zip 2
aboarab20 قام بنشر نوفمبر 22, 2015 الكاتب قام بنشر نوفمبر 22, 2015 ألف شكر لك يأخ جعفر ولا يهون بقية الأخوان جزاك الله خير
ابو جودي قام بنشر نوفمبر 22, 2015 قام بنشر نوفمبر 22, 2015 طيب يا استاذ جعفر ممكن سؤال لو تكرمت الله يرضى عليك وعلى والديك هل يمكن عدم التكرار فى الاختيار او لو تم التكرار تظهر رسالة تفيد بان الاسم هذا تم ادارجه هلى تريد تكرار ادراج نفس الاسم مرة اخرى ولو تم اختيار " Yes" تتم العملية بتكرار الاسم ولو تم اختيار " No " لا تتم العملية
jjafferr قام بنشر نوفمبر 22, 2015 قام بنشر نوفمبر 22, 2015 7 دقائق مضت, محمد عصامـے said: هل يمكن عدم التكرار فى الاختيار نعم ممكن قبل السطر التالي: في 11/15/2015, 4:08:52, jjafferr said: Me.Add_List = Me.Add_List & vbCrLf & Me.cmb_List يمكن البحث في Me.Add_List عن الاسم الجديد من Me.cmb_List قبل ادخالها في Me.Add_List ، مثلا: if instr(me.Add_List,Me.cmd_List)>0 then نعم المادة موجودة في القائمة else المادة غير موجودة في القائمة endif جعفر اما: اقتباس ولو تم اختيار " Yes" تتم العملية بتكرار الاسم ولو تم اختيار " No " لا تتم العملية . فيمكنك البحث في VBA عن Msgbox ، وسوف ترى مثال هناك تستطيع ان تستعمله فيما تريد جعفر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.