برنامج الصادر والوارد

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

الله يعطيك العافيه

اخوي biskra

وماقصرت الطريقه صحيحه بس اللي

انا ابيه انها تحفظ من ضمن القائمه الموجوده

ولك جل شكري واحترامي

اخوك الراحل

بما أن الملف يتضمن مجموعة كبيرة من الحقول اليك الطريقة التالية, فقط يجب التركيز جيدا عند كتابة الكود حتى لا تختلط الأمور, و مع ذلك فالأمر سهل نسبيا.

قم بانشاء وحدة نمطية جديدة و أنسخ فيها الكود التالي:

Function Append2Table(cbo As ComboBox, NewData As Variant) As Integer
On Error GoTo Err_Append2Table
' Purpose: Append NotInList value to combo's recordset.
' Assumes: ControlSource of combo has the same name as the foreign key field.
' Return: acDataErrAdded if added, else acDataErrContinue
' Usage: Add this line to the combo's NotInList event procedure:
' Response = Append2Table(Me.MyCombo, NewData)
Dim rst As DAO.Recordset
Dim sMsg As String
Dim vField As Variant ' Name of the field to append to.

Append2Table = acDataErrContinue
vField = cbo.ControlSource
If Not (IsNull(vField) Or IsNull(NewData)) Then
sMsg = "هل تريد حفظ المدخل الجديد " & معلومة جديدة & " for " & cbo.Name & "?"
If MsgBox(sMsg, vbOKCancel + vbQuestion, "اٍضافة المدخل الجديدظ؟") = vbOK Then
Set rst = CurrentDb.OpenRecordset(cbo.RowSource)
rst.AddNew
rst(vField) = NewData
rst.Update
rst.Close
Append2Table = acDataErrAdded
End If
End If

Exit_Append2Table:
Set rst = Nothing
Exit Function

Err_Append2Table:
MsgBox "Error " & Err.Number & ": " & Err.Description, vbInformation, "Append2Table()"
Resume Exit_Append2Table
End Function

بعد ذلك قم بعملية الحفظ, ثم أذهب الى الحقول التي تريد أن تضيف عليها الجديد و في وضع التصميم, في حدث عند عدم الوجود في القائمة أنسخ الكود التالي:

Response = Append2Table(Me![اْسم الحقل هنا], NewData)

غير عبارة اسم الحقل هنا باسم الحقل في وضع التصميم و قم بالحفظ و جرب, بعد نجاح العملية اٍن شاء الله قم بنفس الاجراء على بقية الحقول بنفس الطريقة, فقط أن الكود الأول ينسخ مرة واحدة فقط.

أرجو لك التوفيق , فقط لاحظ أن هناك نص الرسالة التي سوف تظهر لك عند اضافة جديد و هي مكتوبة في الكود الأول التي يمكنك التغيير عليها كما تريد.

ملاحظة أخرى يجب أن لا تنساها هي خاصية الاٍلتزام بالقائمة يجب أن تكون نعم أؤكد نعم.

مرحبا اخوي

biskra

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

وقلت التزام بالقائمه ولكن برضوه ما صار اي شي

انا شاكر ومقدر لمجهوداتك اللي قاعد تبذلها

والله يوفقك دنيا واخره