الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

مغلق
بدأه alrahil في 9 يناير 2005 · 4 رد · 1,001 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

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

اريد ان اقو م بكتابه جهه غير التي موجود بحيث اني اذا كتب جهه غير الموجوده في القائمة المنسدله يطلب حفظه في القائمة

وكذلك على نوع المعاملة

ملف الحفظ معمول له هذه الخاصيه لكن لا اعلم كيف

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

اخوكم الراحل

كلمة السر : هاني

الباسورد: 5339

الملف مرفق للمعاينه والتعديل

#2

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

تم تعديل هذه المشاركة بواسطة biskra في 9 يناير 2005 في 15:01

#3

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

اخوي biskra

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

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

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

اخوك الراحل

#4

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

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

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)

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

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

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

#5

مرحبا اخوي

biskra

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

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

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

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

هذا الموضوع مغلق.

مواضيع مشابهة