jo_2010 قام بنشر يوليو 25 مشاركة قام بنشر يوليو 25 الخبراء الافاضل بعد التحية وجدت هذا النموذج فى منتدنا الرائع منذ فترة ولا اعرف من صاحب هذة الفكرة لكن اود شرح كيف تم عملها وكيف ازيد او احذف من هذة القائمة وكيف اطبقها فى برنامجى لكم الشكر copy.mdb رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر يوليو 25 مشاركة قام بنشر يوليو 25 (معدل) عزيزي جو تمت مناقشة الموضوع في هذه المشاركة تم تعديل يوليو 25 بواسطه ahmed draz 1 2 رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر يوليو 25 مشاركة قام بنشر يوليو 25 تم عملها برمجيا كاي قائمة مختصرة لكن في القاعدة التي ارفقتها تم استيرادها بدون اوامر البرمجة الخاصة بها يمكن اضافة وتعديل القائمة حسب الرغبة كالتالي: Sub CustomizeShortcutMenu() Dim cb As CommandBar Dim ctl As CommandBarControl ' الوصول إلى القائمة المختصرة الموجودة Set cb = Application.CommandBars("cop") ' إضافة عنصر جديد إلى القائمة المختصرة Set ctl = cb.Controls.Add(Type:=msoControlButton, Temporary:=True) With ctl .Caption = "New Menu Item" .OnAction = "MyCustomFunction" End With End Sub ' دالة مخصصة Sub MyCustomFunction() MsgBox "This is a custom function!" End Sub 2 رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر يوليو 25 الكاتب مشاركة قام بنشر يوليو 25 9 دقائق مضت, AlwaZeeR said: تم عملها برمجيا كاي قائمة مختصرة لكن في القاعدة التي ارفقتها تم استيرادها بدون اوامر البرمجة الخاصة بها يمكن اضافة وتعديل القائمة حسب الرغبة كالتالي: Sub CustomizeShortcutMenu() Dim cb As CommandBar Dim ctl As CommandBarControl ' الوصول إلى القائمة المختصرة الموجودة Set cb = Application.CommandBars("cop") ' إضافة عنصر جديد إلى القائمة المختصرة Set ctl = cb.Controls.Add(Type:=msoControlButton, Temporary:=True) With ctl .Caption = "New Menu Item" .OnAction = "MyCustomFunction" End With End Sub ' دالة مخصصة Sub MyCustomFunction() MsgBox "This is a custom function!" End Sub لم تعثر على القائمة فى المرفق والكود اللى حضرتك كتبتة كيف استفيد منة ممكن مرفق لو تكرمت وكيف اضيف للقائمة وكيف احدف منها سامحنى على قلة خبرتى بالبرمجة وكيف استفد من المرفق السايق رابط هذا التعليق شارك More sharing options...
ahmed draz قام بنشر يوليو 25 مشاركة قام بنشر يوليو 25 اسم القائمةالمختصره هو cop وهنا شرح كامل للموضوع 3 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر يوليو 25 مشاركة قام بنشر يوليو 25 سأكشف لكم عن سر 👀 كنت قد بدأت منذ عدة أيام بإنشاء طريقة تساعد على عمل قوائم مختصرة للنماذج ، ولكنها أخذت مني وقتاً وجهداً كبيرين ، وتوقفت عند مرحلة إعادة تجميع الأفكار 😇 💡 قريباً النسخة الأولى 💡 2 1 1 رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر يوليو 28 الكاتب مشاركة قام بنشر يوليو 28 في 25/7/2024 at 15:09, ابو جودي said: الخبير الفاضل برجاء المساعدة فى طلبى التحكم فى الاوامر واضافة الفواصل بين كل مجموعة اوامر حاولت تعديل الاسماء الى عربى فى الوحدة النمطية وحاولت ازالة النقاط ووضع فواصل بين كل امر واخر ولم انجح كيف استطيع التحكم الكامل فى القائمة لك خالص الشكر myRight_Click.mdb 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 28 مشاركة قام بنشر يوليو 28 2 ساعات مضت, jo_2010 said: التحكم فى الاوامر واضافة الفواصل اتفضل يا استاذ يوسف Option Compare Database Option Explicit ' Constants for button states and control types Public Const BUTTON_STATE_DOWN As Integer = -1 ' BUTTON_STATE_DOWN: Represents the state where a button is pressed down or activated. ' Used to indicate that a button is in the pressed state. Public Const BUTTON_STATE_UP As Integer = 0 ' BUTTON_STATE_UP: Represents the state where a button is in its normal (not pressed) state. ' Used to indicate that a button is not pressed or activated. Public Const CONTROL_TYPE_BUTTON As Integer = 1 ' CONTROL_TYPE_BUTTON: Represents a button control type in a command bar or menu. ' Used to add buttons to a command bar or menu. Public Const CONTROL_TYPE_EDIT As Integer = 2 ' CONTROL_TYPE_EDIT: Represents an edit control type, such as a text box. ' Typically used to add an editable text field to a command bar or menu. Public Const CONTROL_TYPE_COMBOBOX As Integer = 4 ' CONTROL_TYPE_COMBOBOX: Represents a combo box control type in a command bar or menu. ' A combo box allows users to select from a list of options or enter a custom value. Public Const CONTROL_TYPE_POPUP As Integer = 5 ' CONTROL_TYPE_POPUP: Represents a popup menu or sub-menu control type. ' Used to create a dropdown menu or context menu in a command bar. Public Const BAR_TYPE_POPUP As Integer = 5 ' BAR_TYPE_POPUP: Represents a popup menu bar type. ' Used to create a new command bar that behaves as a popup menu (i.e., appears on right-click or when invoked). ' Variables for CommandBar and Controls Public commandBar As Object ' Represents the custom command bar (popup menu) Public commandButton As Object ' Represents each button/control added to the command bar Public commandBarName As String ' Name of the custom command bar ' Subroutine to create and configure the custom command bar Public Sub CreateCustomCommandBar() ' Ignore errors during creation or deletion of the command bar On Error Resume Next ' Define the name of the custom command bar commandBarName = "cmb_CustomMenu" ' Name of the custom command bar ' Delete the existing command bar with the same name, if any CommandBars(commandBarName).Delete If Err.Number <> 0 Then Err.Clear ' Add a new command bar (popup menu) with the specified name Set commandBar = CommandBars.Add(commandBarName, BAR_TYPE_POPUP, False, False) With commandBar ' Add Cut button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 21, , , False) commandButton.Caption = "قص" ' Button caption commandButton.FaceId = 21 ' Icon for the Cut button ' Add Copy button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 19, , , False) commandButton.BeginGroup = False ' Ensure items are grouped properly commandButton.Caption = "نسخ" ' Button caption commandButton.FaceId = 19 ' Icon for the Copy button ' Add Paste button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 22, , , False) commandButton.BeginGroup = False ' Ensure items are grouped properly commandButton.Caption = "لصق" ' Button caption commandButton.FaceId = 22 ' Icon for the Paste button ' Add Sort Ascending button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 210, , , False) commandButton.BeginGroup = True ' Start a new group for sorting buttons commandButton.Caption = "ترتيب تصاعدي" ' Button caption commandButton.FaceId = 210 ' Icon for the Sort Ascending button ' Add Sort Descending button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 211, , , False) commandButton.BeginGroup = True ' Start a new group for sorting buttons commandButton.Caption = "ترتيب تنازلي" ' Button caption commandButton.FaceId = 211 ' Icon for the Sort Descending button ' Add Close Form/Report button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 923, , , False) ' Updated to False commandButton.BeginGroup = True ' Start a new group commandButton.Caption = "إغلاق" ' Button caption commandButton.OnAction = "CloseCurrentItem" ' Call the CloseCurrentItem subroutine End With ' Clean up Set commandBar = Nothing Set commandButton = Nothing End Sub ' Subroutine to close the currently active form or report Public Sub CloseCurrentItem() ' Ignore errors if no form or report is open ' On Error Resume Next Dim obj As Object ' Close the active form if it exists For Each obj In Forms If obj.Name = Screen.ActiveForm.Name Then DoCmd.Close acForm, obj.Name Exit Sub End If Next obj ' Close the active report if it exists For Each obj In Reports If obj.Name = Screen.ActiveReport.Name Then DoCmd.Close acReport, obj.Name Exit Sub End If Next obj ' If no form or report is active, show a message MsgBox "There is no active form or report to close.", vbExclamation ' Clean up Err.Clear End Sub بخصوص الفاصل غير القيمة البولينية من false الى true فقط فى السطر الذى تريده لعمل الفاصل بين الاوامر فى قائمة السياق commandButton.BeginGroup = False ' Group items under this button من محرر الاوامر للمرة الاولى اعمل Run للدالة : CreateCustomCommandBar وفى النموذج خلى ShortcutMenuBar = cmb_CustomMenu 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 28 مشاركة قام بنشر يوليو 28 ملحوظة انا اضفت كود الى قائمة السياق لاغلاق ايا كان تقرير او نموذج وذلك لاضفاء المرونة التامة لاستخدام نفس قائمة السياق ان اردنا مع اى نموذج او تقرير دون كتابة العديد من الاكواد امممممم طبعا نصيحتى الذهبية انا قدمت اليك الكود مستخدما الاحرف العربية داخل المحرر وهذا ما لا احبذه انصحك وان اردت استخدام اللغة العربية تحويلها من خلال التطبيق التالى وبذلك تكون الاكواد بالطربقة المثلى داخل الموديول بالشكل التالى Option Compare Database Option Explicit ' Constants for button states and control types Public Const BUTTON_STATE_DOWN As Integer = -1 ' BUTTON_STATE_DOWN: Represents the state where a button is pressed down or activated. ' Used to indicate that a button is in the pressed state. Public Const BUTTON_STATE_UP As Integer = 0 ' BUTTON_STATE_UP: Represents the state where a button is in its normal (not pressed) state. ' Used to indicate that a button is not pressed or activated. Public Const CONTROL_TYPE_BUTTON As Integer = 1 ' CONTROL_TYPE_BUTTON: Represents a button control type in a command bar or menu. ' Used to add buttons to a command bar or menu. Public Const CONTROL_TYPE_EDIT As Integer = 2 ' CONTROL_TYPE_EDIT: Represents an edit control type, such as a text box. ' Typically used to add an editable text field to a command bar or menu. Public Const CONTROL_TYPE_COMBOBOX As Integer = 4 ' CONTROL_TYPE_COMBOBOX: Represents a combo box control type in a command bar or menu. ' A combo box allows users to select from a list of options or enter a custom value. Public Const CONTROL_TYPE_POPUP As Integer = 5 ' CONTROL_TYPE_POPUP: Represents a popup menu or sub-menu control type. ' Used to create a dropdown menu or context menu in a command bar. Public Const BAR_TYPE_POPUP As Integer = 5 ' BAR_TYPE_POPUP: Represents a popup menu bar type. ' Used to create a new command bar that behaves as a popup menu (i.e., appears on right-click or when invoked). ' Variables for CommandBar and Controls Public commandBar As Object ' Represents the custom command bar (popup menu) Public commandButton As Object ' Represents each button/control added to the command bar Public commandBarName As String ' Name of the custom command bar ' Subroutine to create and configure the custom command bar Public Sub CreateCustomCommandBar() ' Ignore errors during creation or deletion of the command bar On Error Resume Next ' Define the name of the custom command bar commandBarName = "cmb_CustomMenu" ' Name of the custom command bar ' Delete the existing command bar with the same name, if any CommandBars(commandBarName).Delete If Err.Number <> 0 Then Err.Clear ' Add a new command bar (popup menu) with the specified name Set commandBar = CommandBars.Add(commandBarName, BAR_TYPE_POPUP, False, False) With commandBar ' Add Cut button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 21, , , False) ' Button caption >>--> Cut commandButton.Caption = ChrW(1602) & ChrW(1589) commandButton.FaceId = 21 ' Icon for the Cut button ' Add Copy button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 19, , , False) commandButton.BeginGroup = False ' Ensure items are grouped properly ' Button caption >>--> Copy commandButton.Caption = ChrW(1606) & ChrW(1587) & ChrW(1582) commandButton.FaceId = 19 ' Icon for the Copy button ' Add Paste button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 22, , , False) commandButton.BeginGroup = False ' Ensure items are grouped properly ' Button caption >>--> Paste commandButton.Caption = ChrW(1604) & ChrW(1589) & ChrW(1602) commandButton.FaceId = 22 ' Icon for the Paste button ' Add Sort Ascending button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 210, , , False) commandButton.BeginGroup = True ' Start a new group for sorting buttons ' Button caption >>--> Sort Ascending commandButton.Caption = ChrW(1578) & ChrW(1585) & ChrW(1578) & ChrW(1610) & ChrW(1576) & ChrW(32) & ChrW(1578) & ChrW(1589) & ChrW(1575) & ChrW(1593) & ChrW(1583) & ChrW(1610) commandButton.FaceId = 210 ' Icon for the Sort Ascending button ' Add Sort Descending button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 211, , , False) commandButton.BeginGroup = True ' Start a new group for sorting buttons ' Button caption >>--> Sort Descending commandButton.Caption = ChrW(1578) & ChrW(1585) & ChrW(1578) & ChrW(1610) & ChrW(1576) & ChrW(32) & ChrW(1578) & ChrW(1606) & ChrW(1575) & ChrW(1586) & ChrW(1604) & ChrW(1610) commandButton.FaceId = 211 ' Icon for the Sort Descending button ' Add Close Form/Report button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 923, , , False) ' Updated to False commandButton.BeginGroup = True ' Start a new group ' Button caption >>--> Close commandButton.Caption = ChrW(1573) & ChrW(1594) & ChrW(1604) & ChrW(1575) & ChrW(1602) commandButton.OnAction = "CloseCurrentItem" ' Call the CloseCurrentItem subroutine End With ' Clean up Set commandBar = Nothing Set commandButton = Nothing End Sub ' Subroutine to close the currently active form or report Public Sub CloseCurrentItem() ' Ignore errors if no form or report is open ' On Error Resume Next Dim obj As Object ' Close the active form if it exists For Each obj In Forms If obj.Name = Screen.ActiveForm.Name Then DoCmd.Close acForm, obj.Name Exit Sub End If Next obj ' Close the active report if it exists For Each obj In Reports If obj.Name = Screen.ActiveReport.Name Then DoCmd.Close acReport, obj.Name Exit Sub End If Next obj ' If no form or report is active, show a message MsgBox "There is no active form or report to close.", vbExclamation ' Clean up Err.Clear End Sub Converter Arabic and Unicode (v. 3).accdb 1 رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر يوليو 28 الكاتب مشاركة قام بنشر يوليو 28 2 ساعات مضت, ابو جودي said: اتفضل يا استاذ يوسف Option Compare Database Option Explicit ' Constants for button states and control types Public Const BUTTON_STATE_DOWN As Integer = -1 ' BUTTON_STATE_DOWN: Represents the state where a button is pressed down or activated. ' Used to indicate that a button is in the pressed state. Public Const BUTTON_STATE_UP As Integer = 0 ' BUTTON_STATE_UP: Represents the state where a button is in its normal (not pressed) state. ' Used to indicate that a button is not pressed or activated. Public Const CONTROL_TYPE_BUTTON As Integer = 1 ' CONTROL_TYPE_BUTTON: Represents a button control type in a command bar or menu. ' Used to add buttons to a command bar or menu. Public Const CONTROL_TYPE_EDIT As Integer = 2 ' CONTROL_TYPE_EDIT: Represents an edit control type, such as a text box. ' Typically used to add an editable text field to a command bar or menu. Public Const CONTROL_TYPE_COMBOBOX As Integer = 4 ' CONTROL_TYPE_COMBOBOX: Represents a combo box control type in a command bar or menu. ' A combo box allows users to select from a list of options or enter a custom value. Public Const CONTROL_TYPE_POPUP As Integer = 5 ' CONTROL_TYPE_POPUP: Represents a popup menu or sub-menu control type. ' Used to create a dropdown menu or context menu in a command bar. Public Const BAR_TYPE_POPUP As Integer = 5 ' BAR_TYPE_POPUP: Represents a popup menu bar type. ' Used to create a new command bar that behaves as a popup menu (i.e., appears on right-click or when invoked). ' Variables for CommandBar and Controls Public commandBar As Object ' Represents the custom command bar (popup menu) Public commandButton As Object ' Represents each button/control added to the command bar Public commandBarName As String ' Name of the custom command bar ' Subroutine to create and configure the custom command bar Public Sub CreateCustomCommandBar() ' Ignore errors during creation or deletion of the command bar On Error Resume Next ' Define the name of the custom command bar commandBarName = "cmb_CustomMenu" ' Name of the custom command bar ' Delete the existing command bar with the same name, if any CommandBars(commandBarName).Delete If Err.Number <> 0 Then Err.Clear ' Add a new command bar (popup menu) with the specified name Set commandBar = CommandBars.Add(commandBarName, BAR_TYPE_POPUP, False, False) With commandBar ' Add Cut button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 21, , , False) commandButton.Caption = "قص" ' Button caption commandButton.FaceId = 21 ' Icon for the Cut button ' Add Copy button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 19, , , False) commandButton.BeginGroup = False ' Ensure items are grouped properly commandButton.Caption = "نسخ" ' Button caption commandButton.FaceId = 19 ' Icon for the Copy button ' Add Paste button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 22, , , False) commandButton.BeginGroup = False ' Ensure items are grouped properly commandButton.Caption = "لصق" ' Button caption commandButton.FaceId = 22 ' Icon for the Paste button ' Add Sort Ascending button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 210, , , False) commandButton.BeginGroup = True ' Start a new group for sorting buttons commandButton.Caption = "ترتيب تصاعدي" ' Button caption commandButton.FaceId = 210 ' Icon for the Sort Ascending button ' Add Sort Descending button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 211, , , False) commandButton.BeginGroup = True ' Start a new group for sorting buttons commandButton.Caption = "ترتيب تنازلي" ' Button caption commandButton.FaceId = 211 ' Icon for the Sort Descending button ' Add Close Form/Report button Set commandButton = .Controls.Add(CONTROL_TYPE_BUTTON, 923, , , False) ' Updated to False commandButton.BeginGroup = True ' Start a new group commandButton.Caption = "إغلاق" ' Button caption commandButton.OnAction = "CloseCurrentItem" ' Call the CloseCurrentItem subroutine End With ' Clean up Set commandBar = Nothing Set commandButton = Nothing End Sub ' Subroutine to close the currently active form or report Public Sub CloseCurrentItem() ' Ignore errors if no form or report is open ' On Error Resume Next Dim obj As Object ' Close the active form if it exists For Each obj In Forms If obj.Name = Screen.ActiveForm.Name Then DoCmd.Close acForm, obj.Name Exit Sub End If Next obj ' Close the active report if it exists For Each obj In Reports If obj.Name = Screen.ActiveReport.Name Then DoCmd.Close acReport, obj.Name Exit Sub End If Next obj ' If no form or report is active, show a message MsgBox "There is no active form or report to close.", vbExclamation ' Clean up Err.Clear End Sub بخصوص الفاصل غير القيمة البولينية من false الى true فقط فى السطر الذى تريده لعمل الفاصل بين الاوامر فى قائمة السياق commandButton.BeginGroup = False ' Group items under this button من محرر الاوامر للمرة الاولى اعمل Run للدالة : CreateCustomCommandBar وفى النموذج خلى ShortcutMenuBar = cmb_CustomMenu معلمى الفاضل سامحنى على جهلى وقلة خبرتى عملت مديول جديد واضفت فية كود حضرتك ولكن مف الاسف لم تظهر القائمة اليك القاعدة للتعديل عليها myRight_Click.mdb رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 28 مشاركة قام بنشر يوليو 28 13 ساعات مضت, ابو جودي said: من محرر الاوامر للمرة الاولى اعمل Run للدالة : CreateCustomCommandBar انت يا صديقى لم تفعل الخطوة السابقة انتظر انا اقوم بعمل فكرة تتخطى هذه المشكلة لو تمت سوف اوافيكم بها الفكره سوف تقوم هى بطريقة الية بعمل كل شئ دون اى تدخل من المستخدم رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو جودي قام بنشر يوليو 28 أفضل إجابة مشاركة قام بنشر يوليو 28 في 25/7/2024 at 15:08, Foksh said: سأكشف لكم عن سر 👀 منتظر بلهفة مشتاق في 25/7/2024 at 15:08, Foksh said: كنت قد بدأت منذ عدة أيام بإنشاء طريقة تساعد على عمل قوائم مختصرة للنماذج ، ولكنها أخذت مني وقتاً وجهداً كبيرين ، وتوقفت عند مرحلة إعادة تجميع الأفكار 😇 💡 قريباً النسخة الأولى 💡 ربما اكون لك داعما فى تجميع الافكار اهديكم بنات افكارى فى المشاركة التالية التى سوف انوه عنها لاحقا فى نهاية هذه المشاركة وانت يا استاذ يوسف 15 ساعات مضت, jo_2010 said: لكن مف الاسف لم تظهر القائمة اليك اليك الحل من وجهة نظرى المتواضعة ليسهل نقل الاكواد الى اى قاعدة تقريبا جمعت كل الاكواد الممكنة فى موديول واحد وانظر بنفسك الى المرفق فى : المشاركة الآتية من هنا افدم اعتذارى لفتح موضوع جديد ليكون شامل وواف بالشرح ليكون اثراء ومرجعا يسهل العثور عليه 1 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 31 مشاركة قام بنشر يوليو 31 في 28/7/2024 at 19:36, jo_2010 said: ولكن مف الاسف لم تظهر القائمة اليك القاعدة للتعديل عليها يعنى ع الاقل رد تقول الدنيا تمام واللا لاء رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر أغسطس 1 الكاتب مشاركة قام بنشر أغسطس 1 17 ساعات مضت, ابو جودي said: يعنى ع الاقل رد تقول الدنيا تمام واللا لاء استاذى الفاضل انا اخترت حضرتك كافضل اجابة رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر أغسطس 1 مشاركة قام بنشر أغسطس 1 3 ساعات مضت, jo_2010 said: انا اخترت حضرتك كافضل اجابة انا مش فارق عندى اختيار افضل اجابة من عدمها انا اللى فارق عندى الموضوع سهل بالنسبة لك والافكار وصلت لك وفهمت الاكواد وكل شئ تمام معاك ؟؟؟ انا عارف ان انت من الناس اللى بتبحث عن المعلومات وتحب تتعلم مش من الناس اللى مجرد عندهم مشكلة تريد حلها وخلاص رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر أغسطس 2 الكاتب مشاركة قام بنشر أغسطس 2 في 1/8/2024 at 12:53, ابو جودي said: انا مش فارق عندى اختيار افضل اجابة من عدمها انا اللى فارق عندى الموضوع سهل بالنسبة لك والافكار وصلت لك وفهمت الاكواد وكل شئ تمام معاك ؟؟؟ انا عارف ان انت من الناس اللى بتبحث عن المعلومات وتحب تتعلم مش من الناس اللى مجرد عندهم مشكلة تريد حلها وخلاص شكرا لحضرتك وشكرا لكلامك عنى اللي يعتبرة وسام على صدر ى خالص الشكر لحضرتك انت عامل زي الدكتور اللي بيكتب العلاج ومش بيكتفى بهذا لكنة يتابع حالة المريض اتحسنت علي العلاج اللي كتبة ولا لا شكرا لك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.