كيف تم عمل هذة القائمة قائمة السياق ( القائمة المختصرة - Shortcut menu )

**jo_2010** · يوليو 25

الخبراء الافاضل

بعد التحية

وجدت هذا النموذج فى منتدنا الرائع منذ فترة ولا اعرف من صاحب هذة الفكرة لكن اود شرح كيف تم عملها وكيف ازيد او احذف من هذة القائمة وكيف اطبقها فى برنامجى لكم الشكر

copy.mdb

ahmed draz · يوليو 25

عزيزي جو

تمت مناقشة الموضوع في هذه المشاركة

:fff:

تم تعديل يوليو 25 بواسطه ahmed draz

**AlwaZeeR** · يوليو 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

**jo_2010** · يوليو 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

لم تعثر على القائمة فى المرفق

والكود اللى حضرتك كتبتة كيف استفيد منة ممكن مرفق لو تكرمت

وكيف اضيف للقائمة وكيف احدف منها سامحنى على قلة خبرتى بالبرمجة وكيف استفد من المرفق السايق

ahmed draz · يوليو 25

اسم القائمةالمختصره هو cop

وهنا شرح كامل للموضوع

**Foksh** · يوليو 25

سأكشف لكم عن سر 👀

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

💡 قريباً النسخة الأولى 💡

**ابو جودي** · يوليو 25

**jo_2010** · يوليو 28

في 25‏/7‏/2024 at 15:09, ابو جودي said:

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

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

myRight_Click.mdb

**ابو جودي** · يوليو 28

2 ساعات مضت, jo_2010 said:

التحكم فى الاوامر واضافة الفواصل

اتفضل يا استاذ يوسف :fff: :wink2:

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

**ابو جودي** · يوليو 28

ملحوظة انا اضفت كود الى قائمة السياق لاغلاق ايا كان تقرير او نموذج :wink2:

وذلك لاضفاء المرونة التامة لاستخدام نفس قائمة السياق ان اردنا مع اى نموذج او تقرير دون كتابة العديد من الاكواد

امممممم

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

انصحك وان اردت استخدام اللغة العربية تحويلها من خلال التطبيق التالى
وبذلك تكون الاكواد بالطربقة المثلى داخل الموديول بالشكل التالى

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

**jo_2010** · يوليو 28

2 ساعات مضت, ابو جودي said:

اتفضل يا استاذ يوسف :fff: :wink2:

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

**ابو جودي** · يوليو 28

13 ساعات مضت, ابو جودي said:

من محرر الاوامر للمرة الاولى اعمل Run للدالة : CreateCustomCommandBar

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

**ابو جودي** · يوليو 28

في 25‏/7‏/2024 at 15:08, Foksh said:

سأكشف لكم عن سر 👀

منتظر بلهفة مشتاق

في 25‏/7‏/2024 at 15:08, Foksh said:

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

💡 قريباً النسخة الأولى 💡

ربما اكون لك داعما فى تجميع الافكار اهديكم بنات افكارى فى المشاركة التالية التى سوف انوه عنها لاحقا فى نهاية هذه المشاركة :fff:

وانت يا استاذ يوسف

15 ساعات مضت, jo_2010 said:

لكن مف الاسف لم تظهر القائمة اليك

اليك الحل من وجهة نظرى المتواضعة ليسهل نقل الاكواد الى اى قاعدة

تقريبا جمعت كل الاكواد الممكنة فى موديول واحد وانظر بنفسك الى المرفق فى :

المشاركة الآتية من هنا

افدم اعتذارى لفتح موضوع جديد ليكون شامل وواف بالشرح ليكون اثراء ومرجعا يسهل العثور عليه

**ابو جودي** · يوليو 31

في 28‏/7‏/2024 at 19:36, jo_2010 said:

ولكن مف الاسف لم تظهر القائمة اليك القاعدة للتعديل عليها

يعنى ع الاقل رد تقول الدنيا تمام واللا لاء

**jo_2010** · أغسطس 1

17 ساعات مضت, ابو جودي said:

يعنى ع الاقل رد تقول الدنيا تمام واللا لاء

استاذى الفاضل انا اخترت حضرتك كافضل اجابة

**ابو جودي** · أغسطس 1

3 ساعات مضت, jo_2010 said:

انا اخترت حضرتك كافضل اجابة

انا مش فارق عندى اختيار افضل اجابة من عدمها

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

**jo_2010** · أغسطس 2

في 1‏/8‏/2024 at 12:53, ابو جودي said:

انا مش فارق عندى اختيار افضل اجابة من عدمها

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

شكرا لحضرتك

وشكرا لكلامك عنى اللي يعتبرة وسام على صدر ى

خالص الشكر لحضرتك

انت عامل زي الدكتور اللي بيكتب العلاج

ومش بيكتفى بهذا لكنة يتابع حالة المريض اتحسنت علي العلاج اللي كتبة ولا لا شكرا لك

تسجيل الدخول

كيف تم عمل هذة القائمة قائمة السياق ( القائمة المختصرة - Shortcut menu )

الردود الموصى بها

jo_2010

ahmed draz

AlwaZeeR

jo_2010

ahmed draz

Foksh

ابو جودي

jo_2010

ابو جودي

ابو جودي

jo_2010

ابو جودي

ابو جودي

ابو جودي

jo_2010

ابو جودي

jo_2010

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

تصفح الموقع

تصفح جديد الموقع

Support

Important Information