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

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

وفقك الله اخي الكريم

أخي الكريم

أعتقد أن المشكلة لديك هي في المفتاح الرئيسي لأحد الجداول وهو غالباً جدول الملفات التي يتم سحبها وإرجاعها وأعتقد أن نموذج البحث عن الملفات الذي يقوم بالبحث عن الملف الذي تم إرجاعه يبحث في هذا المفتاح الرئيسي فيجد نفس الملف المسجل سابقاً.

وللتغلب على هذه المشكلة يجب أن تنشئ جدول وسيط به مفتاحان الاول رقم الملف والثاني به تاريخ الارجاع أو بيان أخر من جدول المستعيرين (الذين قاموا بسحب الملف) وما شابه ذلك بحيث أن بيانات الحقلين معاً لا تتشابه وعندما يقوم البرنامج بالبحث عن الملف يبحث في هذا الجدول وليس في جدول الملفات الأصلي.

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

أرجو أن يكون تصوري معقول للمشكلة حيث لا يوجد لدينا القاعدة التي بها المشكلة.

والله الموفق.

السلام عليكم ..

مشكورين على الرد .. يعطيكم العافيه..

الأخ team2000 .. اني اجرب الآن الطريقه التي اقترحتها في مكان آخر .. حيث انه عند سحب ملف مسحوب يظهر لنا بأن الملف مسحوب فلايمكن سحبه .. والطريقه هي بأن اضع نعم عند سحب الملف وجربت ووضعت لها هاذا الكود

Dim strSQL As String, rec As New ADODB.Recordset

strSQL = "SELECT * FROM TransTbl WHERE CPRIN = '" & CPRIN.Value & "'"

rec.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If rec.Fields("Signed").Value = True Then

MsgBox "الملف مسحوب", vbOKOnly, "خطأ في الادخال"

Exit Sub

End If

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

Private Sub Command22_Click()

On Error GoTo Err_Command22_Click

DoCmd.GoToRecord , , acNewRec

Exit_Command22_Click:

Exit Sub

Err_Command22_Click:

MsgBox Err.Description

Resume Exit_Command22_Click

End Sub

سوري تعبتكم معاي :(

أخي الكريم ضع الكود الاول الذي كتبته في حدث "قبل التحديث" لمربع نص اسم الكتاب ثم انتهي بالكود في حالة أن الكتاب تم سحبه بجملة إلغاء الادخال من مربع النص ولا داعي لغتح سجل جديد قبل التأكد من الكتاب موجود أو تم إعادته.... والترتيب كالأاتي:

1- عند ادخال اسم الكتاب > تحقق من وجوده بالمكتبة (تم إعادته)

2- نعم> السماح لادخال باقي البيانات ثم حفظها في سجل جديد.

3- لا> إظهار رسالة تفيد بعدم وجود الكتاب>مسح محتوى مربع النص>إعادة التركيز على مربع النص لادخال اسم جديد.

السلام عليكم ..

خلاص انا يأست :( .. بليز ساعدووني

team2000 .. مافهمت شلوون اسوي اللي قلت لي عليه :(

هذا مثال للبرنامج اللي اشتغل عليه .. في المرفقات.. ياليت تشوفونه وتساعدوني :(

المطلوب:

1- اذا كان الملف مسحوب .. يعطيني مسج ان الملف مسحوب .. في فورم .. سحب جديد و سحب للمراجعة .. ف المفروض ان مايتسجل في الجدول.. المشكله ان اول مرة يطلع ان الملف مسحوب .. بس المرات اللي بعدها مايطلع .. لأنه يشوف أول ريكورد حسب اعتقادي

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

اتمنى ألقى حل عندكم :( .. الاسبوع الجاي آخر اسبوع اداوم فيه .. والبرنامج متعطل بس على هالنقطتين .. لو كنت خبيره في الاكسس و لغات البرمجه اتوقع بيكون سهل الموضوع .. بس للأسف التخصص اللي انا فيه مايعلمونا فيه برمجه :(

db2.rar

محد يقدر يساعدني؟ :(