اختيار من مربع تحرير وسرد (عنوان معدل )

[aboarab20]

السلام عليكم ورحمة الله وبركاته

حاولت أرفع الملف لكن ما أستطعت ، لكن الإستفسار إن شاء الله بسيط

 

عندي نموذج وفيه خانة مطلوب من الطبيب أن يعبأ فيها الدواء المطلوب

وعندي قائمة مسبقاً في الجداول بأسماء الأدوية

والأطباء يرغبون بأنهم يختارون من قائمة الأدوية اللي مسجله مسبقاً في الجداول ، بدون الحاجة إلى كتابتها من الطبيب

أحد يساعدنا ياحبايب

[عابرسبيل]

عليكم السلام ورحمة الله وبركاته

 

من مربع سرد وتحرير وعن طريق السحب والافلات على الفورم سوف تظهر لك نافذه اتبع مافيها وسوف تصل الى ما تريد ان شاء الله

 

مثال في المرفقات..

EXA.rar

[aboarab20]

التعديل في المرفق

أتمنى المساعدة

إذا اخترت من مربع تحرير وسرد

ابغى اللي اخترته يروح الى مربع يجمع فيه كل الاختيارات اللي اخترتها

يعني اذا اخترت (سبحان الله) ابغاه يسجل في مربع آخر ، وأختار من الخيارات ويسجل في المربع نفسه وتسير مسرودة 

 

[jjafferr]

تفضل 

 

 

والكود اللي يضيف هو:

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

[aboarab20]

ألف شكر لك يأخ جعفر 

ولا يهون بقية الأخوان

جزاك الله خير

[ابو جودي]

طيب يا استاذ جعفر ممكن سؤال لو تكرمت الله يرضى عليك وعلى والديك

هل يمكن عدم التكرار فى الاختيار

او لو تم التكرار تظهر رسالة تفيد بان الاسم هذا تم ادارجه هلى تريد تكرار ادراج نفس الاسم مرة اخرى
ولو تم اختيار " Yes"  تتم العملية بتكرار الاسم ولو تم اختيار  " No " لا تتم العملية 

[jjafferr]

 

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 ، وسوف ترى مثال هناك تستطيع ان تستعمله فيما تريد 

 

 

جعفر