jjafferr

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

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

وعليكم السلام حياك الله جعفر

آسف ، ما كان واضح طريقة حذفك للسجل فيصبح كودك كالتالي: Private Sub Command12_Click() On Error GoTo Err_Command12_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Me.ImageFrame.Visible = false Me.ImageFrame.Picture = "" Exit_Command12_Click: Exit Sub Err_Command12_Click: MsgBox Err.Description Resume Exit_Command12_Click End Sub جعفر

حقل الرقم = يقبل ارقام فقط ، حقل النص = يقبل ارقام ، ونص ، وتاريخ ، ورموز ، وعادة ننادي الوحدة النمطية هكذا : . واما اذا كنت تريد النتيجة في الحقل مباشرة ، فضع هذا على مصدر بيانات الحقل: مناداة الوحدة النمطية بدون ارسال اي متغير = Module_Name() ارسال متغير رقم ثابت = Module_Name(1234) ارسال متغير قيمة ثابته = Module_Name('jj') ارسال متغير بإسم الحقل = Module_Name([اسم الحقل الذي تريد ترسل قيمته]) . جعفر

1. اعمل قاعدة بيانات جديدة وقم باستيراد جميع الكائنات من القاعدة القديمة ، 2. اذا كانت عندك صور في البرنامج ، فإجعلها مربوطة ولا تجعلها مضمنه ، 2. اعمل هذه الخطوات: . جعفر

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

الله يطول عمرك ، ما قلت لك هذه الطريقة !! انت بهذه الطريقة عملت حدث خاص للذي انا اخبرتك ، بينما انا اخبرتك ان تضع الكود في نهاية كود الحذف (واللي ما اشوفه هنا) . جعفر

وعليكم السلام اخي واهلا وسهلا بك في المنتدى اذا كنت تستعمل الاكسس 2007 فما فوق ، فتستطيع ان تجرب: اعمل الحقل في الجدول بنوع مذكرة ، وفي اعدادات الحقل ، اختر تنسيق : Rich Text ، واعمل نفس الشيء في الحقل في التقرير ، ثم جرب ما قمت به. جعفر

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

وعليكم السلام 1. اعمل القطعة السوداء ، واجعل الدائرة فيها شفافه (يمكن تستفيد من شرحي في كيفية عمل الصور شفافة في الاكسس) . 2. خلي صورة الموظف بالطريقة العادية ، وخلي صورة القطعة السوداء عليها ، بحيث صورة الموظف تظهر فقط من الدائرة الشفافة. جعفر

كما انه لا يوجد لديك كود لإصطياد الخطأ ، فكودك مفروض يكون شيء من هذا القبيل: Private Sub Form_Current() On Error GoTo err_Form_Current dim lntWhereAmI as integer lntWhereAmI=1 Me![ImageFrame1].Picture = Me![ImagePath1] lntWhereAmI=2 Me![ImageFrame2].Picture = Me![ImagePath2] Exit Sub err_Form_Current: If Err.Number = 2220 Or Err.Number = 13 Then if lntWhereAmI=1 then Me.ImageFrame1.Picture = "" elseif lntWhereAmI=2 then Me.ImageFrame2.Picture = "" end if Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر

تستطيع ان تضع هذ الاسطر في نهاية كود حدث "الحذف" Me.ImageFrame.Visible = False Me.ImageFrame.Picture = "" جعفر

اخي محمد لم تخبرنا برقم الخطأ !! على العموم جرب هذا التغيير ، وما قدرت اكتب اسم الحقل بالعربي ، لأنه قلب السطر والكود اصبح ما ينقرأ !! aaa= عنوان الصورة بدل if isnull(me.[aaa]) then جرب if len(me.[aaa] & "")=0 then جعفر

انا اعطيتك الجواب لما كتبت لك المشكلة:

هذا لا علاقه له بسرعة فتح النموذج. تعديل: نعم هذا ليس له علاقة بسرعة فتح النموذج ، ولكني لما عملت تغيير الجدولة ، رأيت ان اول حقل يحصل على التركيز هو الحقل Li ، واذا لاحظت ان الاعدادات فيه تختلف عن بقية الحقول التي في النموذج.

الاكسس عندي بالانجليزي ، فما اعرف جميع المصطلحات العربية هذا لا علاقه له بسرعة فتح النموذج. قم بتغيير جميع الاعدادات في المربع الاحمر الى System للحقل nname و الحقل idd ، فبعض الكمبيوترات التي الاكسس غير مُحدّث تواجه بطئ شديد في التنقل بين الحقول اذا كانت الاعدادات كما هي في برنامجك . جعفر

شو قصدك بهذه العبارة؟

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

اضف السطر باللون الاحمر لإظهاره Private Sub Form_Current() On Error GoTo err_Form_Current 'On Error Resume Next Me![ImageFrame].Picture = Me![ImagePath] Me.ImagePath.Visible = true Exit Sub err_Form_Current:  If Err.Number = 2220 Or Err.Number = 13 Then Me.ImagePath.Visible = False Me.ImageFrame.Visible = False Me.ImageFrame.Picture = "" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub اما اذا لم تريد اظهاره ابدا ، فقم بحذف جميع الاسطر التي بها هكذا كود: Me.ImagePath.Visible جعفر

السلام عليكم وهذه طريقة اخرى جعفر

وانا كذلك اتفق مع اخي الاستاذ شفان اذا كان كُلٌ ولابد ، اعمل قاعدة بيانات جديدة ، استورد اليها كائنات البرنامج القديم ، ثم اعمل جعفر

هذا صحيح ، وبدقة اكثر ، اعدادات Unicode ، وهذا السبب وهذه طريقة الحل جعفر

السلام عليكم الظاهر من الصورة ان الكائن اللي تظهر فيه صفحة الانترنت يستخدم عنصر nitro ، والذي يجب تنصيبه على كل كمبيوتر تريد استعمال النموذج فيه ، انظر في المثال المرفق ، فهنا تستطيع التصفح بعنصر IE الموجود اصلا في كل كمبيوتر . وهذا مثال اشمل جعفر

السلام عليكم اجريت بعض التعديلات على الكود ، فرجاء حذف الكود القديم واستعمال هذا الكود Private Sub cmdAdd_Click() Dim strFilter As String Dim lngflags As Long Dim varFileName As Variant ' strFilter = "All Files (*.*)" & vbNullChar & "*.*" _ ' & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*" strFilter = "jpg" & vbNullChar & "*.jpg" _ & vbNullChar & "All Files (*.*)" & vbNullChar & "*.*" lngflags = tscFNPathMustExist Or tscFNFileMustExist _ Or tscFNHideReadOnly varFileName = tsGetFileFromUser( _ fOpenFile:=True, _ strFilter:=strFilter, _ rlngflags:=lngflags, _ strDialogTitle:=" الرجاء اختيار ملف ") If IsNull(varFileName) Then Me.ImagePath.Visible = False Me.ImageFrame.Visible = False Me.ImageFrame.Picture = "" Else Me![ImagePath] = varFileName Me.ImagePath.Visible = True Me.ImageFrame.Visible = True Me.ImageFrame.Picture = Me.ImagePath End If cmdAdd_End: On Error GoTo 0 Exit Sub cmdAdd_Err: Beep MsgBox Err.Description, , "Error: " & Err.Number _ & " in file" Resume cmdAdd_End DoCmd.Requery End Sub Private Sub Form_AfterUpdate() On Error Resume Next Me![ImageFrame].Picture = Me![ImagePath] End Sub Private Sub Form_Current() On Error GoTo err_Form_Current 'On Error Resume Next Me![ImageFrame].Picture = Me![ImagePath] Exit Sub err_Form_Current: If Err.Number = 2220 Or Err.Number = 13 Then Me.ImagePath.Visible = False Me.ImageFrame.Visible = False Me.ImageFrame.Picture = "" Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 968.AddPhoto.mdb.zip