عفرنس

11 دقائق مضت, ابا جودى said:

طيب وانت زعلان ليه كده 

اتفضل يا سيدى فى استعلام اهون 

 

Split Full Name (2).mdb 324 kB · 1 download

أسعدك الله .. هذا هو المطلوب

منذ ساعه, ابوخليل said:

الطرق للحل متعددة  منها دمج الحقلين داخل الاستعلام

لو ارفقت مثالا بسيطا يتم التطبيق عليه .. اتوقع ستحصل على اكثر من طريقة للحل

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

41 دقائق مضت, ابا جودى said:

اتفضل يا سيدى

 

Split Full Name.mdb 316 kB · 2 downloads

جزاكم الله خيرا .. @ابا جودى

لكني أريد التقسيم في الاستعلام وليس النموذج . 

السلام عليكم 

كيف نستطيع جعل اسم العائلة في حقل واحد دون تجزئته . مثال : 

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

ياليت لو وضحت لي هذه أكثر .. 

اقتباس

 

1. وبعد البحث اخبرني احد اصحابي "شكرا اخي محمد نادر" والذي كان قد قام بطباعة الهويات قبلي بعدة اشهر ، ان افضل طريقة للطباعة على هذه الطابعة هي ان تطبع التقرير بصيغة xps ، ثم تفتح الصورة بواسطة xps viewer ، وتطبع الهوية من هناك ، وموقع مايكروسوف يُؤكد تفوق نوعية صور xps هذا https://msdn.microsoft.com/en-us/library/windows/hardware/dn641615(v=vs.85).aspx  ، وتصبح الصورة هكذا  

ك

السلام عليكم 

لدي هذا البرنامج عندما يتم اضافة الصورة في النموذج تظهر بشكل ممتاز . 

لكن عندما تكون في التقرير لا تظهر بشكل جيد . أحيانا تكون معتمة أو غير صافية كما في النموذج .. 

لا أدري ما الخلل ؟ وأين يكون .. لعلكم تسعفونا .. 

شاكر لكم  

‏‏‏‏‏‏StuData1 - نسخة.rar

2 ساعات مضت, ناقل said:

تفضل ربما هذا هو طلبك ....

 

تجربة.rar 314.52 kB · 0 downloads

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

5 ساعات مضت, ناقل said:

ممكن مثال مصغر للعمل عليه

تفضل 

النموذج باسم Table1 

الجداول Hall1 - Hall - Exam_Hall

تجربة.rar

4 ساعات مضت, ناقل said:

اذن منع التكرار أن تكون اللجنة والقاعة وليس التكرار في اللجنة فقط .... بمعنى :

ان اللجنة 1 ..... القاعة1 ... لا يتكرران

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

وهكذا بقية اللجان والقاعات 

 @ناقل جزاك الله خير 

المعطيات عندي بهذا الشكل 

السلام عليكم 

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

بحثت لكني لم أصل إلى النتيجة .. 

تمت التجربة على أحد البرامج فظهرت هذه الملحوظة . 

فماذا تعني ؟؟ @jjafferr 

13 ساعات مضت, kha9009lid said:

ليسا استاذين استاذين مثنى

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

دمت سالما .. @kha9009lid .. 

31 دقائق مضت, أبو عبدالله الحلوانى said:

يا أبا عبدالرحمن ليسا أستاذين فقط بل أساتيذ كثر 

في ٢٦‏/١‏/٢٠٢١ at 21:00, أبو عبدالله الحلوانى said:

ههههههه الجمع  ( أُستاذِين )

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

دمت بود @أبو عبدالله الحلوانى
 

جزاك الله خيرا @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 صف 

CS_FinalMarksReport.xlsx 11.04 kB · 5 downloads

لو أردت استيراد بيانات ملف اكسل السابق كما هو . من غير ما أحذف الأعمدة المدمجة ولا الترويسة مع مل الصفوف الفارغة لكل طالب . 

ما الذي يجب أن يتغير في الكود والأكسس ؟؟ 

** هذا الملف مرفق 

CS_FinalMarksReport.xlsx

منذ ساعه, 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]));

.

جعفر

1312.Database2.accdb.zip 51.61 kB · 1 download

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

7 دقائق مضت, jjafferr said:

اعطنا الملف وخلينا نشوف !!

 

المفروض يشتغل على طول 🙂

 

جعفر

تفضل أخي @jjafferr 

أرفقت مثال ثلاثة طلاب .. وإلا الملف يحوي 49190 صف 

CS_FinalMarksReport.xlsx

الان, احمد الفلاحجي said:

واياكم ابا جودى

لا البخور مش مغشوش بس هما مشغولين الحين مع صاحبهم الاساسى 😀

نسال الله ان يعلمنا ما ينفعنا وينفعنا بما علمنا انه هو العليم الحكيم وان ننفع به اخواننا فالله

بارك الله فيكم اخوانى واساتذتى

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