عفرنس

أسعدك الله .. هذا هو المطلوب أسعدك الله .. قام الأخ @ابا جودى بالمطلوب .. وفقكما الله

جزاكم الله خيرا .. @ابا جودى لكني أريد التقسيم في الاستعلام وليس النموذج .

السلام عليكم كيف نستطيع جعل اسم العائلة في حقل واحد دون تجزئته . مثال : ABDULLAH SALEM M AL QAHTANI أريد الإسم الأخير " اسم العائلة " " AL QAHTANI " في حقل واحد وليس في حقلين ** طبعا استخدمة هذه الدالة في الاستعلام ( name5: qsplit([13];4) )

استخدمت هذه الدالة في تقسيم أو فصل الاسم في الحقل ( name1: qsplit([13];0) ) لكن اسم العائلة لما يكون هناك مسافة بهذا الشكل ( AL SHEHRI ) يعتبر (AL) اسم لوحده و ( SHEHRI ) اسم مستقل . طلبي : أريد أن يكون اسم العائلة غير منفصل (AL SHEHRI )

شكر الله لكما يا هاموري المنتدى @ابوخليل @jjafferr

السلام عليكم أرغب فصل البيانات في الحقل بحيث يكون كل اسم في عمود مستقل هل هذا ممكن ؟؟ هذا مثال : AHMED SALAH F ALFADHIKH يكون كل اسم في عمود مستقل

لدي نموذج مصدره استعلام وفيه تقديرات الطلاب ( ممتاز - جيدجدا - جيد - مقبول - ضعيف ) أريد عند اختيار أي تقدير في النموذج يعطيني مجموع الطلاب الذين حصلوا على هذا التقدير . شاكر لكم ..

شكر الله لك أخي الفاضل ..

السلام عليكم هل من الممكن تصدير النموذج إلى صيغة PDF ؟؟ وإذا كان ممكنا ، فما هو الكود ؟ جزاكم الله خيرا

@jjafferr جزاك الله خير .. عندي بعض الاستفسارات .. ** أين يتم وضع هذا الكود Badge_Output = Application.CurrentProject.Path & "\Badges.xps" DoCmd.OutputTo acOutputReport, "rpt_Badges", acFormatXPS, Badge_Output, True, , , acExportQualityPrint ياليت لو وضحت لي هذه أكثر .. ك

السلام عليكم لدي هذا البرنامج عندما يتم اضافة الصورة في النموذج تظهر بشكل ممتاز . لكن عندما تكون في التقرير لا تظهر بشكل جيد . أحيانا تكون معتمة أو غير صافية كما في النموذج .. لا أدري ما الخلل ؟ وأين يكون .. لعلكم تسعفونا .. شاكر لكم ‏‏‏‏‏‏StuData1 - نسخة.rar

جزاك الله خيرا .. هذا المطلوب

تفضل النموذج باسم Table1 الجداول Hall1 - Hall - Exam_Hall تجربة.rar

هذا صحيح .. منع تكرار اللجنة 1 .... القاعة 1 وهكذا بقية اللجان والقاعات

@ناقل جزاك الله خير المعطيات عندي بهذا الشكل

السلام عليكم أريد كود منع تكرار البيانات المدخلة في الجدول من خلال النموذج بحيث يعطيني رسالة ( البيانات مدخلة من قبل ) . بحثت لكني لم أصل إلى النتيجة ..

تمت التجربة على أحد البرامج فظهرت هذه الملحوظة . فماذا تعني ؟؟ @jjafferr

لو تأملت الكلمة لوجدت أني ضميت الألف وكسرت الذال فأصبحت جمعا لا مثنى .. وهو نص عبارة الإمام مسلم لشيخه البخاري رحمهما الله كما ذكرتُ في التعليق .. دمت سالما .. @kha9009lid ..

ههههههه الجمع ( أُستاذِين ) وهذه الكلمة مقتبسة من جملة قالها الإمام مسلم رحمه الله لشيخه الإمام البخاري رحمه الله حينما سأله عن إسناد حديث كفارة المجلس . فأجابه رحمه الله فقال له الإمام مسلم : «دَعْنِي حَتَّى أُقَبِّلَ رِجْلَيْكَ يَا أُسْتَاذَ الْأُسْتَاذِينَ، وَسَيِّدَ الْمُحَدِّثِينَ، وَطَبِيبَ الْحَدِيثِ فِي عِلَلِهِ» . دمت بود @أبو عبدالله الحلوانى

جزاك الله خيرا @jjafferr يا أستاذ الأستاذين .. ستتم التجربة ان شاء الله وأوافيكم النتائج .. 🌹🌹

هل تقصد هذا الكود ؟؟ 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 لو أردت استيراد بيانات ملف اكسل السابق كما هو . من غير ما أحذف الأعمدة المدمجة ولا الترويسة مع مل الصفوف الفارغة لكل طالب . ما الذي يجب أن يتغير في الكود والأكسس ؟؟ ** هذا الملف مرفق CS_FinalMarksReport.xlsx

شكرالله لك أستاذنا الغالي @jjafferr >> هذا هو المطلوب بعينه ..

تفضل أخي @jjafferr أرفقت مثال ثلاثة طلاب .. وإلا الملف يحوي 49190 صف CS_FinalMarksReport.xlsx

حمدا لله على السلامة .. من طول الغيبات جاء بالغنايم