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

[المبارك55]

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

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

تقبلوا خالص التحيات

[سامي الحداد]

وعليكم السلام 

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

Dim strSQL As String
    Dim i As Integer
    Dim Msg As String
    Dim NewID As String

    If NewData = "" Then Exit Sub
    
   
    NewID = UCase(Trim(Left(NewData, 3)))

    Msg = "'" & NewData & "' غير موجود حاليًا في قائمة الأنواع." & vbCr & vbCr
    Msg = Msg & "هل تريد إنشاء سجل نوع جديد?"

    i = MsgBox(Msg, vbQuestion + vbYesNo, "نوع غير معروف...")
    If i = vbYes Then
        strSQL = "Insert Into [Your Table Here] ([Your ComboBox],[FieldName]) values ('" & NewID & "','" & NewData & "')"
        CurrentDb.Execute strSQL, dbFailOnError
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If

غير الاسماء حسب مسميات الحقول والقائمة المنسدلة والجدول لديك

تحياتي

[Ahmed_J]

السلام عليكم

حسب فهمي لطلبك

انظر للصور

مع الاخذ بنظر الاعتبار (من خصائص النموذج - بيانات - السماح بعمليات تحرير القوائم ) اجعلها نعم

اتمنى يكون المطلوب

test.accdb

تم تعديل ديسمبر 24, 2022 بواسطه Ahmed_J

[kkhalifa1960]

الملف مابه غير الجدول فقط ؟؟؟؟؟؟؟

[المبارك55]

السلام عليكم

شكرا لكم اعزائي  حاولت بالطرق السابقة ولكن لم تنجح 

بالمرفق قاعدة بيانات بها جدول و ونموذج للعمل عليهما 

مع خالص الشكر على جهودكمDatabase1.accdb

[سامي الحداد]

تفضل اخي الكريم

بالتوفيق

Database2.accdb

[kkhalifa1960]

طالع هذا الفيديو 

وهذا 

 

تم تعديل ديسمبر 25, 2022 بواسطه kkhalifa1960

[Moosak]

وأنا وجدت هذا الكود في مكتبتي 🙂 

(إضافة عنصر ليس موجود في القائمة )

'************ Code Start **********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish
'
Private Sub cbxAEName_NotInList(NewData As String, Response As Integer)
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strMsg As String

    strMsg = "'" & NewData & "' is not an available AE Name " & vbCrLf & vbCrLf
    strMsg = strMsg & "Do you want to associate the new Name to the current DLSAF?"
    strMsg = strMsg & vbCrLf & vbCrLf & "Click Yes to link or No to re-type it."
    
    If MsgBox(strMsg, vbQuestion + vbYesNo, "Add new name?") = vbNo Then
        Response = acDataErrContinue
    Else
        Set db = CurrentDb
        Set rs = db.OpenRecordset("tblAE", dbOpenDynaset)
        On Error Resume Next
        rs.AddNew
            rs!AEName = NewData
        rs.Update
        
        If Err Then
            MsgBox "An error occurred. Please try again."
            Response = acDataErrContinue
        Else
            Response = acDataErrAdded
        End If
        
    End If

rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
'*********** Code End **************

 

[المبارك55]

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

شكرا جزيلا لتفاعلكم  ،،، والشكر موصول للاستاذ سامي الحداد فقد كانت اجابتة سهلة  واوفت لما نحتاجه فمنكم جميعا تعلمنا الجديد والكثير شكرا لكم

[المبارك55]

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

بعد استعمال الكود الذي وضعه الاستاذ سامي الحداد لاحظت بان السجل المدخل من خلاله ينزل في الجدول كسجلين متاشبهين اي السجل يكون مكرر بادخال واحد فماهو الحل لعدم التكرار

لكم خالص التحية

[سامي الحداد]

21 ساعات مضت, المبارك55 said:

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

بعد استعمال الكود الذي وضعه الاستاذ سامي الحداد لاحظت بان السجل المدخل من خلاله ينزل في الجدول كسجلين متاشبهين اي السجل يكون مكرر بادخال واحد فماهو الحل لعدم التكرار

لكم خالص التحية

وعليكم السلام  اخي الكريم

جرب التعديل ووافنا بالنتيجة

تحياتي

Database3.accdb

[AbuuAhmed]

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

[المبارك55]

 شكرا لاهتمامكم استاذنا العزيز / سامي الحداد الان  اختفى التكرار وتم استخدام الكود   بشكل ناجح

شكرا لكم جميعا