-
Posts
1,069 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه عفرنس
-
-
-
شكر الله لك أخي الفاضل ..
-
السلام عليكم
هل من الممكن تصدير النموذج إلى صيغة PDF ؟؟
وإذا كان ممكنا ، فما هو الكود ؟
جزاكم الله خيرا
-
جزاك الله خير .. عندي بعض الاستفسارات ..
** أين يتم وضع هذا الكود
Badge_Output = Application.CurrentProject.Path & "\Badges.xps" DoCmd.OutputTo acOutputReport, "rpt_Badges", acFormatXPS, Badge_Output, True, , , acExportQualityPrint
ياليت لو وضحت لي هذه أكثر ..
اقتباس- وبعد البحث اخبرني احد اصحابي "شكرا اخي محمد نادر" والذي كان قد قام بطباعة الهويات قبلي بعدة اشهر ، ان افضل طريقة للطباعة على هذه الطابعة هي ان تطبع التقرير بصيغة xps ، ثم تفتح الصورة بواسطة xps viewer ، وتطبع الهوية من هناك ، وموقع مايكروسوف يُؤكد تفوق نوعية صور xps هذا https://msdn.microsoft.com/en-us/library/windows/hardware/dn641615(v=vs.85).aspx ، وتصبح الصورة هكذا
ك
-
السلام عليكم
لدي هذا البرنامج عندما يتم اضافة الصورة في النموذج تظهر بشكل ممتاز .
لكن عندما تكون في التقرير لا تظهر بشكل جيد . أحيانا تكون معتمة أو غير صافية كما في النموذج ..
لا أدري ما الخلل ؟ وأين يكون .. لعلكم تسعفونا ..
شاكر لكم
-
2 ساعات مضت, ناقل said:
جزاك الله خيرا .. هذا المطلوب
-
5 ساعات مضت, ناقل said:
ممكن مثال مصغر للعمل عليه
تفضل
النموذج باسم Table1
الجداول Hall1 - Hall - Exam_Hall
-
4 ساعات مضت, ناقل said:
اذن منع التكرار أن تكون اللجنة والقاعة وليس التكرار في اللجنة فقط .... بمعنى :
ان اللجنة 1 ..... القاعة1 ... لا يتكرران
هذا صحيح .. منع تكرار اللجنة 1 .... القاعة 1
وهكذا بقية اللجان والقاعات
-
- 1
-
السلام عليكم
أريد كود منع تكرار البيانات المدخلة في الجدول من خلال النموذج بحيث يعطيني رسالة ( البيانات مدخلة من قبل ) .
بحثت لكني لم أصل إلى النتيجة ..
-
-
13 ساعات مضت, kha9009lid said:
ليسا استاذين استاذين مثنى
لو تأملت الكلمة لوجدت أني ضميت الألف وكسرت الذال فأصبحت جمعا لا مثنى .. وهو نص عبارة الإمام مسلم لشيخه البخاري رحمهما الله كما ذكرتُ في التعليق ..
دمت سالما .. @kha9009lid ..
- 1
-
31 دقائق مضت, أبو عبدالله الحلوانى said:
يا أبا عبدالرحمن ليسا أستاذين فقط بل أساتيذ كثر
في ٢٦/١/٢٠٢١ at 21:00, أبو عبدالله الحلوانى said:ههههههه الجمع ( أُستاذِين )
وهذه الكلمة مقتبسة من جملة قالها الإمام مسلم رحمه الله لشيخه الإمام البخاري رحمه الله حينما سأله عن إسناد حديث كفارة المجلس . فأجابه رحمه الله فقال له الإمام مسلم : «دَعْنِي حَتَّى أُقَبِّلَ رِجْلَيْكَ يَا أُسْتَاذَ الْأُسْتَاذِينَ، وَسَيِّدَ الْمُحَدِّثِينَ، وَطَبِيبَ الْحَدِيثِ فِي عِلَلِهِ» .
دمت بود @أبو عبدالله الحلوانى
- 1
-
جزاك الله خيرا @jjafferr يا أستاذ الأستاذين ..
ستتم التجربة ان شاء الله وأوافيكم النتائج .. 🌹🌹
-
في ٢٥/١٢/٢٠٢٠ at 11:47, jjafferr said:
استاذ فايز ، اذا تذكر الاكواد الطويلة اللي كتبتها لك عند استيراد اكثر من صفحة من ملفات الاكسس ، او اكثر من ملف اكسس ،
هذه الاكواد كانت لتنظيف البيانات من السجلات الفارغة (مثل السجل الاول الذي به الاسم ، ثم اخذ الاسم وبقية البيانات من السجل الاول واتسجيله لبقية السجلات التابعة للطالب 🙂
هل تقصد هذا الكود ؟؟
Private Sub cmd_Selected_File_Click() ' import the Excel sheet '1 'Empty the temporary Table tabl1 CurrentDb.Execute ("Delete * From tabl1") '2 'import Sheets to table tabl1, one at a time Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String Dim strPassword As String ' Establish an EXCEL application object On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Change this next line to True if the first row in EXCEL worksheet ' has field names blnHasFieldNames = False strPathFile = Me.txtPath ' "C:\Filename.xls" ' Replace tablename with the real name of the table into which ' the data are to be imported strTable = "tabl1" '"tablename" ' Replace passwordtext with the real password; ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) strPassword = vbNullString '"passwordtext" blnReadOnly = True ' open EXCEL file in read-only mode ' Open the EXCEL file and read the worksheet names into a collection Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount ' Close the EXCEL file without saving the file, and clean up the EXCEL objects objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing '3 ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" '4 'append the data using the proper query DoCmd.SetWarnings False DoCmd.RunSQL "Delete * From Sheet" & lngCount DoCmd.OpenQuery "qry_" & lngCount DoCmd.SetWarnings True '5 'empty tbl_Sheets CurrentDb.Execute ("Delete * From tabl1") Next_lngCount: Next lngCount ' Delete the collection Set colWorksheets = Nothing ' Uncomment out the next code step if you want to delete the ' EXCEL file after it's been imported ' Kill strPathFile MsgBox "Êã ÇÓÊíÑÇÏ ÇáÈíÇäÇÊ ÈäÌÇÍ" End Sub
-
أخي @jjafferr
في ٢٣/١٢/٢٠٢٠ at 20:49, عفرنس said:فضل أخي @jjafferr
أرفقت مثال ثلاثة طلاب .. وإلا الملف يحوي 49190 صف
لو أردت استيراد بيانات ملف اكسل السابق كما هو . من غير ما أحذف الأعمدة المدمجة ولا الترويسة مع مل الصفوف الفارغة لكل طالب .
ما الذي يجب أن يتغير في الكود والأكسس ؟؟
** هذا الملف مرفق
-
منذ ساعه, jjafferr said:
الحقول لم تكن Null وانما كانت فارغة !!
استعمل هذا الاستعلام :
.
UPDATE Tabl_1 SET Tabl_1.A1 = f_A1(IIf(Len([A1] & "")=0,"|",[A1])), Tabl_1.A2 = f_A2(IIf(Len([A2] & "")=0,"|",[A2])), Tabl_1.A3 = f_A3(IIf(Len([A3] & "")=0,"|",[A3])), Tabl_1.A4 = f_A4(IIf(Len([A4] & "")=0,"|",[A4])), Tabl_1.A5 = f_A5(IIf(Len([A5] & "")=0,"|",[A5]));
.
جعفر
شكرالله لك أستاذنا الغالي @jjafferr >> هذا هو المطلوب بعينه ..
-
7 دقائق مضت, jjafferr said:
اعطنا الملف وخلينا نشوف !!
المفروض يشتغل على طول 🙂
جعفر
تفضل أخي @jjafferr
أرفقت مثال ثلاثة طلاب .. وإلا الملف يحوي 49190 صف
-
الان, احمد الفلاحجي said:
واياكم ابا جودى
لا البخور مش مغشوش بس هما مشغولين الحين مع صاحبهم الاساسى 😀
نسال الله ان يعلمنا ما ينفعنا وينفعنا بما علمنا انه هو العليم الحكيم وان ننفع به اخواننا فالله
بارك الله فيكم اخوانى واساتذتى
حمدا لله على السلامة .. من طول الغيبات جاء بالغنايم
- 1
-
56 دقائق مضت, jjafferr said:
لذا عملت استعلام تحديث ، ليقوم بتعبئة هذه البيانات ، بعد استيرادها مباشرة من ملف الاكسل ، هكذا :
Private Sub command1_Click() Dim ImportFileName As String ImportFileName = CurrentProject.Path & "\CS_FinalMarksReport" & ".xlsx" CurrentDb.Execute ("Delete * From Tabl_1") If MsgBox("هل تريد استيراد البيانات من جديد ؟", vbYesNo + vbMsgBoxRight, "تنبيه") = vbYes Then DoCmd.TransferSpreadsheet acImport, 8, "Tabl_1", ImportFileName, True DoCmd.SetWarnings False '| DoCmd.OpenQuery "qry_Filled" '| <------- DoCmd.SetWarnings True '| MsgBox "تم استيراد البيانات بنجاح" Else MsgBox "تم إلغاء عملية الاستيراد " End If End Sub
.
أهلا بك أخي @jjafferr
تم استيراد البيانات من ملف اكسل الذي يحوي جميع بيانات الطلاب من خلال القاعدة التي أرفقته أنت .. لكن لم يتم ملء الفراغات التي تخص كل طالب ..
هل بمجرد استيراد البيانات يتم ملء الفراغات مباشرة ؟؟
-
14 دقائق مضت, ابا جودى said:
شكرا لك على مرورك أخي @ابا جودى
البيانات مستوردة من ملف اكسل وهي موجودة بهذا الشكل ..
الان, عفرنس said:اذاً . نحتاج تكرار اسم الطالب أمام كل مادة .. لكن كيف السبيل إلى ذلك ؟؟ 🤔🤔
-
السلام عليكم ..
في المرفق أريد من الاستعلام أن يظهر لي اسم الطالب والمادة التي درجته فيها أقل من 50 غير مجتاز(راسب) ..
وللتوضيح أكثر .. عندما أضع جملة "*غير مجتاز*" Like يظهرلي الطلاب الذين حصلوا على أقل من 50 درجة لكن لا يظهر أسماءهم لأن الطالب لديه أكثر من مادة كما ترون بالصورة المرفقة .
شاكر لكم ومقدر
-
8 ساعات مضت, أبو إبراهيم الغامدي said:
أهلا بكم..
هذه المشاركة مفتوحة لمن يريد المساهمة في ابتكار وسائل لمعالجة البيانات المستوردة من نظام نور التعليمي وطرق عرضها في قواعد بيانات أكسس..
أرجو من الذين لهم علاقة بنظام نور وضع أمثلة للبيانات للمساعدة في تحقيق هذا الهدف الذي يخدمهم بالدرجة الأولى..
مثال لجدول الحصص.xlsx 96.9 kB · 2 downloads
ما الطريقة التي استخدمتها لحذف الأعمدة المدمجة أو ( الزائدة ) ؟؟
-
40 دقائق مضت, Barna said:
@Barna الملف يعمل .. وهو محمل من نظام نور كما هو .
عندما تضغط دبل كللك على الملف سيأتيك رسالة اختر نعم
فصل البيانات في الحقل
في قسم الأكسيس Access
قام بنشر
السلام عليكم
أرغب فصل البيانات في الحقل بحيث يكون كل اسم في عمود مستقل
هل هذا ممكن ؟؟
هذا مثال :
AHMED SALAH F ALFADHIKH
يكون كل اسم في عمود مستقل