اذهب الي المحتوي
أوفيسنا

Foksh

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    2,916

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    115

Foksh last won the day on مارس 16

Foksh had the most liked content!

السمعه بالموقع

1,606 Excellent

Community Answers

305

See answers

33 متابعين

اعرض كل المتابعين

عن العضو Foksh

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    فني صيانة موبايل وكمبيوتر
  • البلد
    الأردن ♥
  • الإهتمامات
    برمجة وصيانة الموبايل والكمبيوتر

اخر الزوار

5,406 زياره للملف الشخصي
  1. Foksh
    الحمد لله 😇 هل اكتشفت اين كان الخلل 😁😉 ؟؟؟
  2. Foksh
    لا تشغل بالك يا صديقي ، جل من لا يسهو .. تفضل بعد التعديل على الاستعلامات ، تم تحقيق المطلوب في الملف المرفق ، jo2025.accdb
  3. Foksh
    هل تمت التجربة بأكثر من احتمال !!!!!!!!!
  4. Foksh
    أخي العزير @jo_2010 ، المرفق الذي ارفقته لا يطابق الصورة في ردك الأخير !!!!!!!!!!!!!!! فكيف برأيك سأعرف ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ في ملفك المرفق وتعديلي عليه وبعد تجربته يعمل بدون أي مشاكل . أما في ملفك الغير موجود بين الأيدي فلا أعلم المشكلة التي تواجهها ..
  5. Foksh
    اين النموذج قوائم الذي به مربع التحرير والسرد 😥 ؟ جرب المرفق التالي :- Database.accdb
  6. Foksh
    حسناً ، جرب هذا التعديل البسيط ,, Private Sub Comannd187_Click() Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Dim fso As Object Dim fldrname, fldrpath, FoldrPath As String FoldrPath = "Pictures" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & FoldrPath If Not fso.FolderExists(fldrpath) Then fso.createfolder (fldrpath) End If '================================== Set fdialog = Application.FileDialog(msoFileDialogSaveAs) filepath = CurrentProject.Path & "\" & FoldrPath & "\" & Me.Key & ".jpg" Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath Me.PicPath2 = filepath Image.Requery errorhandleexit: Exit Sub errorhandle: If Err.Number = "-2147024816" Then If MsgBox("توجد صورة تحمل نفس الرقم" & vbNewLine & "هل تريد حذف الصورة القديمة" & vbNewLine & "في حال الرفض سيتم اضافة رقم عشوائي الى اسم الصورة لتمييزها", vbCritical + vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then Kill filepath 'Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath Me.PicPath2 = filepath Image.Requery Else Dim g As String g = CurrentProject.Path & "\" & FoldrPath & "\" & Me.Key & "-" & Format(Now, "hhnnss") & ".jpg" imagefile.SaveFile g Me.PicPath2 = g Me.Image1.Picture = Me.Pic1 End If ElseIf Err.Number = "-2145320939" Then MsgBox "الاسكانر غير متصل", vbCritical + vbMsgBoxRight, "تنبيه" Else Me.PicPath2 = Err.Number MsgBox Err.Description End If Resume errorhandleexit End Sub
  7. Foksh
    وعليكم السلام ورحمة الله وبركاته .. حالياً لعدم توافر ماسح ضوئي حالياً لدي ، سؤالي هو ، هل يتم فعلاً سحب الصورة من خلال السكانر ( الماسح الضوئي ) ولكن لا يتم عرضها في مربع الصورة ؟؟؟؟
  8. Foksh
    التزاماً بسياسة وقوانين المنتدى ، ارجو منك فتح الموضوع كموضوع جديد ، وسيتم ان شاء الله متابعته يا صديقي ،
  9. Foksh
    المطلوب غير مفهوم و واضح ، ولا وجود لمربع السرد والتحرير الذي ذكرته ؛ والفضول دفعني لسؤال وهو ما الفكرة من مربع السرد والتحرير في التقرير ؟؟؟؟ كما تعلم أن التقرير لعرض بيانات محددة تأتيك من استعلام مبني على شروط - أو بدون - حسب حاجتك أو من الجداول ، ولا اعتقد انك من خلال التقرير ستقوم باختيار القسم الذي تريده . على العموم قمت بفتح التقرير ولم يظهر لي أي خطأ وهذا ما جعلني أقوم بالتعليق
  10. Foksh
    وعليكم السلام ورحمة الله تعالى وبركاته ، هي فعلاً مشكلة كبيرة تواجه الكثيرين أخي @jo_2010 ، ولكن بالحيلة قد تحصل على مطلبك بكل بساطة ، 1. الفكرة هي أننا في مصدر سجلات النموذج الفرعي ، سنقوم بإضافة حقل جديد على سبيل المثال لنحصل على نوع المختبر ( إن صح التعبير ) :- External_Lab_Name: DLookUp("[External_lab]","Tbl_Lab_All","pcode=[PCode]") 💥 الهدف أن اكسيس سيعتبر أن مربع النص "مرتبطاً" بالسجل الحالي ( لكل سجل ) ، وبالتالي ستعمل التنسيقات الشرطية بشكل طبيعي . 2. في النموذج الفرعي ، قم باختيار مربع النص MB وحدد له مصدر بيانات = الحقل الذي تم انشاءه سابقاً . طبعاً المرفق لم يتم تعديله كما شرحت أعلاه ، ولكن الفكرة هي ذاتها ، وقد تم تعديل المشاركة دون تعديل المرفق. jo2025.accdb
  11. Foksh
    وعليكم السلام ورحمة الله وبركاته .. أخي الكريم في الطريق الذي تسير به ستواجه الكثير من الصعوبات والمطبات في كتابة الأكواد والإستعلامات ، وخصوصاً أن جزء كبير من المسميات لديك للعناصر والحقول والجداول باللغة العربية ، ويعز علي يضيع تعبك بعد فترة وتلاقي عندك مشاكل كثيرة عند الضغط على المشروع والعمل عليه ..
  12. Foksh
    انا كنت منتظر ردك هذا بعد سؤالك .. بارك الله فيك ، ومتابعة بعد الافطار للتجربة
  13. Foksh
    لي النصيب الكبير أن تكون أفكاركم معلمنا القدير محل تفكيري وخاطري .. هههههههه خفت انت ، ما تخافش انا قبل المغرب حالياً هادي ، وبعد المغرب بكون برضو هادي هههههههههه يا مزوء انت ياللي بتعرف ترتب الكلام وتظبطه على التمام 💖
  14. Foksh
    وانا كمان زيك منتظر التحديث ههههههههه ، لكن والله انشغالات بمشاريع متفرقة هي اللي أخرتني
  15. Foksh
    ايه يا عم ، هو الواحد ما يعرفش ينام ساعتين هنا بهدوووء 😂 .. رووء كدة وخلينا نركز شوية في الشغل الجامد ده ، وبصراحة الواحد محتاج يركز شوية وهو بكامل قواه البدنية ( أصل لما بكون صايم بكون تفكيري محدود شوية لحد ما نصلي التراويح ) ، هي دي كل الحكاية لا أكثر ولا أقل 😁 . ومن ناحية تانية انت رميت الكود وقلت حاولوا افهموا الفكرة وما تركتش حتى ملف يسهل على البعض التجربة بطريقته مش بطريقتك ...
×
×
  • اضف...

Important Information

  I accept