-
Posts
2,361 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
85
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Foksh
-
في مشاركتي ، ستجد ان الزر مسح يعمل بالوظيفتين الأول اذا كان JPG في الجملة الشرطية ، والثاني بعد Elsr لسحب سكانر PDF 😊 وغداً إن شاء الله سأرفق لك الجزء المتعلق بالصور فقط.
-
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
Foksh replied to sief122's topic in قسم الأكسيس Access
لأ يا صديقي ، من قائمة File ثم Save As واختر التنسيق 2003 مثلا أو 2007 ان كان موجوداً الحمد لله رب العالمين 🤗 -
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
Foksh replied to sief122's topic in قسم الأكسيس Access
اخي سيف احفظ الملف بنسخة 2007 لانها لا تعمل على 2010 عندي. -
جربت تعمل استيراد لمكونات النسخة 2007 الى ملف اكسيس جديد ؟ 🤔 مع الإنتباه للمكتبات!!
-
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
Foksh replied to sief122's topic in قسم الأكسيس Access
عندك أكتر من حل :- الأول انك تعمل طباعة وتحدد من خصائص الطابعة الورقة بالعرض. وطبعاً ده بسبب انه حجم النموذج أكبر من ورقة A4. التاني انك تعمل تقرير وتضبط مكوناته وتنسقه وتعمل ربط للحقول اللي في التقرير كل حقل بمساره في النموذج وبعدين تطبعه. التالت تعمل تقريرك برضه وتجعل مصدر سجلاته نفس مصدر سجلات النموذج ولكن تحدد له شرط مثلاً ID اللي في النموذج ( المفتاح الاساسي ). الرابع تعمل جدول مؤقت بعد ما تحفظ بيانات النموذج فيه باستعلام إضافة وبرضو تعمل تقرير مصدره الجدول المؤقت ده وتطبعه ، ولما تغلق التقرير تعمل استعلام حذف علشان يحذف السجل اللي في الجدول المؤقت ده..... الطرق كتيرة وانت اختار اللي يريحك 🤗 -
بدايةً سحب الصورة لا يحتاج للبرنامج المساعد . ولكن اذا رغبت بسحب سكانر PDF فقد تحتاجه . وهناك طريقة قد تعجبك ، تقوم بمسح الصورة وإدراجها في تقرير ثم تصدير التقرير بصيغة PDF 😊
-
ارفق ملفك أخي الكريم .
-
ومشاركة مع أساتذتي ، لتقريب الأرقام لأقرب عدد صحيح إذا كان الجزء الكسري = أو أكبر أو أصغر من 0.5 Function RoundFoksh(Number As Double) As Integer If Number - Int(Number) >= 0.5 Then RoundFoksh = Int(Number) + 1 Else RoundFoksh = Int(Number) End If End Function ولاستدعاء الدالة كالآتي :- RoundFoksh(5.4) ' ستكون القيمة 5 RoundFoksh(5.5) ' ستكون القيمة 6 RoundFoksh(9.44) ' ستكون القيمة 9 RoundFoksh(9.55) ' ستكون القيمة 10
-
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
Foksh replied to sief122's topic in قسم الأكسيس Access
هذا الكود يقوم بطباعة صفحة النموذج كما هي . أما موضوع الظبط فـ دي حاجة تانية حسب خصائص الطابعة .... الخ . -
قمت مؤخراً بتعديل هذا الملف ، لعله يفيدك من هنا خطوات الحصول على النتيجة الصحيحة :- قم بتثبيت البرنامج الأول ( 1st Setup ) ، ثم قم بتثبيت البرنامج الثاني ( 2nd Setup ) . الآن قم بفتح برنامج الآكسيس ( Scanner ) ، وجرب النتيجة وأخبرني بها
-
باعتقادي لتحقيق حلمك ، ستحتاج شريط الأدوات المخصص (Custom Ribbon) ولكن يمكن تحقيق ذلك بطريقة أخرى بسيطة ، مشاركةً مع ما تقدم به الأستاذ @kkhalifa1960 JO_Par.accdb
-
كود زر اخفاء الجداول و اظهارها على زر اظهار و اخفاء بكل بساطة
Foksh replied to باحطاب's topic in قسم الأكسيس Access
مشكور اخونا الغالي باحطاب على هذه الهدية الجميلة وأهلا بمشاركتك الأولى وتمنيت انك ارفقت ملف داعم لفكرتك -
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
Foksh replied to sief122's topic in قسم الأكسيس Access
ضع هذا الكود في حدث عند النقر لأي زر داخل النموذج emp . DoCmd.PrintOut acPrintAll -
أبدعت معلمنا الفاضل @ابوخليل 🤝 جميل جداً الكود ، صريح جداً ويفي بالغرض 🥰
-
حيلة جميلة ، أبدعت مهندسنا موسى عمل جميل أستاذ خليفة ، فكرة جميلة لا أريد إحباط المعنويات ، على العكس فالأفكار جميلة وقد جربت فكرة الأستاذ موسى سابقاً ، ولكن في مشروعي الجديد هناك العديد من صيغ الوقت في مكونات النموذج والـ VBA .
-
السلام عليكم أعضاء وأساتذة ومعلمي منتدانا الرائع حاولت كثيراً وبحثت كثيراً ( ويبدو أنني كنت أبحث على سطح كوكب زحل ) عن إجابة لسؤالي . على سبيل المثال لعرض الوقت في مربع نص ( بعد تحديد قيمة TimerInterval طبعاً ) ، أعتقد أن هناك 3 أشكال لتنسيق الوقت كما يلي :- Txt_Time = Format(Now(), "hh:mm:ss Am/Pm") لعرض الوقت بالتنسيق التالي 07:07:07 Pm = مساءً 07:07:07 Am = صباحاً Txt_Time = Format(Now(), "hh:mm Am/Pm") لعرض الوقت بالتنسيق التالي 07:07 Pm = مساءً 07:07 Am = صباحاً Txt_Time = Format(Now(), "hh:mm:ss") لعرض الوقت بالتنسيق التالي 19:07:07 = مساءً 07:07:07 = صباحاً المطلوب عرض الوقت بتنسيق 12 ساعة دون ظهور AM/PM . يعني بهذا التنسيق :- 07:07:07 = مساءً 07:07:07 = صباحاً فهل يمكن تحقيق ذلك ؟
-
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
Foksh replied to sief122's topic in قسم الأكسيس Access
هو ليس فعلاً السبب ، ولكن قمت باستخدام Maximize عند فتح التقرير ، جرب الدخول باليوزر وأخبرني الجمعية التعاونية.zip -
لا تغيير على إجابتي كما في جروب الواتس أب للمنتدى. انشئ استعلام مبني على الاستعلام الموجود للبحث واجعله مصدر للتقرير. فقط و هناك آراء مختلفة عن طريقتي سيجود بها اساتذتنا 🤗
-
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
Foksh replied to sief122's topic in قسم الأكسيس Access
امممم ، وضحت الفكرة الآن. أعتقد انه عندك النموذج الرئيسي يفتح بوضعية Maximize !! وهذا هو السبب يا صديقي 🤔 على العموم سأحاول فتح الملف على أوفيس 2010 . وإن استطعت ان ترفق لي الملف بتنسيق اوفيس 2003 . -
مساعدة وتعديل على برنامج Export_to_Excel تصدير البيانات الى اكسيل
Foksh replied to ahmed draz's topic in قسم الأكسيس Access
جرب وأخبرني Private Sub BtnImpotData_Click() If IsNull(listBoxWorksheets) Then MsgBox "لم تقم باختيار ورقة العمل من ملف الاكسل", vbCritical, "" Exit Sub Else Call GetWaiting("انتظر لحظة من فضلك .... يتم معالجة البيانات") Dim sheetRange As String Dim strTable As String Dim strPath As String Dim Check30 As Integer strTable = Me.cmb_TQ_Name.Value strPath = Me.txtPath sheetRange = listBoxWorksheets If Check30 = 1 Then DeleteTableSafe strTable Else DoEvents Dim objExc As Object ' late Dim objWbk As Object ' late Dim objWsh As Object ' late 'Set objExc = New Excel.Application ' early Set objExc = CreateObject("Excel.Application") ' late Set objWbk = objExc.workbooks.Open(Me.txtPath) For Each objWsh In objWbk.Worksheets 'Debug.Print objWsh.Name Next DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, strTable, strPath, True, sheetRange & "$" DoCmd.Close acForm, "frmWaiting" Set objWsh = Nothing objWbk.Close Set objWbk = Nothing objExc.Quit Set objExc = Nothing subFormData.SourceObject = "Table.elemnts 1" subFormData.Visible = True End If End If End Sub -
اريد عمل تقرير طباعه للشخص اللى اريد البحث عنه فقط
Foksh replied to sief122's topic in قسم الأكسيس Access
أخي @sief122 لا أعلم ما هي المشكلة عندك ، ولكن شاهد هذا الفيديو 20240416_190811.zip