اخواني الاعزاء بعد التحية بصراحة انا عندي مشكلة في النموذج الذي قمت بتصميمه وهي انه كلما ادخل اسم الموظف ورقمه وصورته وانتقلت الي السجل التالي وادخلت الرقم واللاسم والصورة ورجعت مره ثانية الي السجل الاول لا اجد صورة الموظف الاول موجودة ولكن اجد بيناته فقط موجودة ولكن لا اجد الصورة
الملف المرفق فيه تحديد المشكلة بالضبط
من عندة فكرة او اي تعديل للكود يقوم بالتعديل في الملف المرفق و يرسله ولالالا يتردد
بس اهم من تعديل الكود وارساله انه يقول عمل اية بالضبط
اهم شيئ يقول عمللللللللل ايه
مرحبا :)
اخي الغالي النصيحة الاولى داااااااااااااااائما
(((((((((((تجنب تسمية الجداول او حقولها باسماء عربية)))))))))))))
طيب نرجع لموضوعك عزيزي
عندك جدول فيه ثلاث حقول
الاول و هو (رقم العامل) و هو من نوع (رقم)
الثاني وهو (الاسم) وهو من نوع (نص)
الثالث وهو (emppic) و نوعه (((((((نص))))))) وهنا عندي تحفظ و قد يكون في غير محله
عموما
انا غيرت لك نوع خانة emppic من Text الى نوع Hyperlink و ما فيه مشكله الى الحين
طيب لما تفتح النموذج و تدخل بيانات عامل جديد (رقمه و اسمه وتختار صورته) سوف يخزن البرنامج معلومات مسار الصورة في خانة emppic في الجدول.... اوكي؟
و لما تفتح الجدول بتلاقي ان الخانة هذي فيها موقع الصورة اللي اخترتها للعامل اذن البيانات التي تخبر البرنامج عن مكان صورة العامل موجوده عندنا .... حتى الان كل شي ماشي حلو!!!!
طيب تعال لما تروح لعامل ثاني في النموذج هنا يبتدي المشوار:
(شغل اغنية حليم .... و ابتدا المشوار و ركز معاي)
في حدث On Current للنموذج بنحط الكود هذا:
Private Sub Form_Current()
On Error Resume Next
NoPic.Visible = Nz(emppic, "") = ""
APic.Picture = Nz([emppic], "")
BtnEnable BP, Not ([CurrentRecord] = 1)
If NewRecord Then
bc.Value = "جديد"
BtnEnable BN, False
Else
bc.Value = [CurrentRecord]
BtnEnable BN, Not ([CurrentRecord] = Val([bbc]))
End If
BtnEnable Bsave, False
' السطرين التالية هي الاضافة التي انهت المشكله
'لايجاد مسار صورة العامل المحدد في النموذج
Me.APic.Picture = DLookup("emppic", "البيانات الاساسية", "emp_id=" & Me.emp_id & "")
'تحديث محتويات النموذج لإظهار الصورة
Me.Refresh
End Subعزيزي انا اسف جدا اذا كان شرحي غير واضح لكن اتمنى ان المشكلة انحلت
و بالخدمة ... :)
تصدق بالله يا سوالففففففففففففف ان بجد رائع جداً
بس لي طلب اخر عنك وعوزك تكون رحب الصدر
اذا ارت ان يفتح الفور علي نموذج جديد مرة واحدة اعمل اية
اي عندي يضغط مدخل البيانات علي الفور يتفتح الفور علي سجل خالي من البيانات
مششششششششككككوووو يا راااااااااااااااائع
مرحبا
عزيزي ما فهمت القصد من كلامك يا غالي
ممكن معلش تعيد الطلب ؟.
ما فهمت معنى كلامك ((((اذا ارت ان يفتح الفور علي نموذج جديد مرة واحدة))))
كذلك ايش تقصد بـ(((عندي يضغط مدخل البيانات علي الفور يتفتح الفور )))
بالخدمة يا غالي
بس يا ليت تفهمني القصد و حاضر وبالخدمة
مرحبا بك أخي الكريم ،،، لفتح النموذج على سجل جديد ،،، يكون بالامر التالي ،،،
ويكون في النموذج في حدث ( عند الفتح ) للنموذج :
DoCmd.GoToRecord , , acNewRec
تحياتي : أبو عقيل
المسلم من سلم الناس من لسانه ويده
والله يا اخي muslim انت ممتاز واصبت كبد الحقيقة
الله يعينك ويفقك
مشكوووووووووووو رررررررررررررر
وجزاك الله الخير كله
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…