طلب: تعديل على حقل باركود موجود في الاستعلام

[محمد119900]

السلام عليكم استاذة

أحتاج تعديل بسيط الله يبارك بيكم

1) الباركود موجود في الاستعلام ( كيوري ) كيف ممكن اتعامل معه كيف الصق فيه واضيف عليه ملاحظة النسخ يكون من ملف اكسل

هل ممكن عمل مكان أضع فيه الباركود أسماء الطلاب ورقم القيد والصف والشعبة 

2) بعد اكمال الدرجات هل يمكن الحصول على ملف ممكن انسخ منه 

3) كتابة وترتيب المواد الدراسية 

التربية الإسلامية 

اللغة العربية 

اللغة الانكليزية 

الرياضيات 

العلوم

الاجتماعيات 

التربية الفنية 

التربية الرياضية 

DDMhamed.rar

[ابو جودي]

اخى الكريم من فضلك اختر عنوانا مناسبا دالا على الموضوع
من فضلك لك علينا حقوق ولنا عندك كذلك وحقوقنا هى الالتزام بالقوانين المنظمة للمشاركات داخل المنتدى من اجل المصلحة العامة 

قوانين الموقع: من هنا

واقتبس منها : 
المنتدى مثله مثل أي عمل جماعي
لابد أن تكون هناك أسس واضحة للمشاركة فيه، يقرها ويلتزم بها جميع الأعضاء للحصول على الفائدة العامة

عنوان المشاركة

•     يجب أن يكون عنوان المشاركة يدل على محتواها

[محمد119900]

الان, ابو جودي said:

اخى الكريم من فضلك اختر عنوانا مناسبا دالا على الموضوع
من فضلك لك علينا حقوق ولنا عندك كذلك وحقوقنا هى الالتزام بالقوانين المنظمة للمشاركات داخل المنتدى من اجل المصلحة العامة 

قوانين الموقع: من هنا

واقتبس منها : 
المنتدى مثله مثل أي عمل جماعي
لابد أن تكون هناك أسس واضحة للمشاركة فيه، يقرها ويلتزم بها جميع الأعضاء للحصول على الفائدة العامة

عنوان المشاركة

•     يجب أن يكون عنوان المشاركة يدل على محتواها

اعتذر جدا واسف وحقك عليه

لكن هل ممكن تساعدني في اختيار العنوان

تسلم ايدك استاذي

[ابو جودي]

الان, محمد119900 said:

اعتذر جدا واسف وحقك عليه

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

الان, محمد119900 said:

لكن هل ممكن تساعدني في اختيار العنوان

أخى الحبيب 
بالفعل تم تعديل العنوان

[ابو جودي]

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

ثم بعد ذلك وضح مقصدك من : 

كيف الصق فيه واضيف عليه ملاحظة النسخ يكون من ملف اكسل

هل ممكن عمل مكان أضع فيه الباركود أسماء الطلاب ورقم القيد والصف والشعبة 

ولازمة الباركود ده ايه فى الاخر 
الباركود اللى فى الاستعلام ده  عباره
الحقل التالى 
 

Barcode: IIf([StudyMaterialsEng]="Religion", [St_Code] & "REL", 
             IIf([StudyMaterialsEng]="ARABIC", [St_Code] & "ARA", 
             IIf([StudyMaterialsEng]="MATH", [St_Code] & "MAT", 
             IIf([StudyMaterialsEng]="ENGLISH", [St_Code] & "ENG", 
             IIf([StudyMaterialsEng]="SOCIAL", [St_Code] & "SOC", 
             IIf([StudyMaterialsEng]="SCIENCE", [St_Code] & "SCI", 
             IIf([StudyMaterialsEng]="ART", [St_Code] & "ART", 
             IIf([StudyMaterialsEng]="SPORT", [St_Code] & "SPO")))))))))

تفسير السطر بالتفصيل:

• السطر يقوم بإنشاء قيمة حقل يسمى Barcode بناءً على القيمة في الحقل [StudyMaterialsEng].

• في البداية، يفحص قيمة [StudyMaterialsEng] ثم يضيف اختصارًا معينًا إلى قيمة [St_Code] بناءً على المادة التي يتم تدريسها.

التفصيل :

1. إذا كانت قيمة [StudyMaterialsEng] هي "Religion": يتم إضافة "REL" إلى قيمة [St_Code].

2. إذا كانت قيمة [StudyMaterialsEng] هي "ARABIC": يتم إضافة "ARA" إلى قيمة [St_Code].

3. إذا كانت قيمة [StudyMaterialsEng] هي "MATH": يتم إضافة "MAT" إلى قيمة [St_Code].

4. إذا كانت قيمة [StudyMaterialsEng] هي "ENGLISH": يتم إضافة "ENG" إلى قيمة [St_Code].

5. إذا كانت قيمة [StudyMaterialsEng] هي "SOCIAL": يتم إضافة "SOC" إلى قيمة [St_Code].

6. إذا كانت قيمة [StudyMaterialsEng] هي "SCIENCE": يتم إضافة "SCI" إلى قيمة [St_Code].

7. إذا كانت قيمة [StudyMaterialsEng] هي "ART": يتم إضافة "ART" إلى قيمة [St_Code].

8. إذا كانت قيمة [StudyMaterialsEng] هي "SPORT": يتم إضافة "SPO" إلى قيمة [St_Code].

 

[ابو جودي]

طيب انا مش عارف انت مش بترد ليه

ولو على حسب فهمى الضئيل بعد تحليلى لقاعدة بيانات
انت عندك جدول اسمه : tblStudyMaterials

يحتوى على المواد الدراسية والبيانات الرئيسية لإنشاء البار كود

والكود القادم ده هيريحك من انك تكتب جمل فيها IIf  متعدده لانه كارثه لو فقدت تركيزك معها يا صديقة وبدلا من كثر التكرار 

 

ده الكود داخل وحده نمطية عامة باسم : basGenerateBarcode

'-----------------------------------------------------------------------------------
' الوحدة النمطية: توليد باركود المواد الدراسية بناءً على الكود واختصارات المواد
' تحتوي على:
'   - تحميل بيانات المواد إلى قاموس مرة واحدة
'   - دالة لتوليد الباركود مع ملاحظة اختيارية
'
' أمثلة الاستخدام (داخل الاستعلامات أو الأكواد):
'   - Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code])
'   - Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code], "ملاحظة إضافية")
'
' ملاحظات:
'   - إذا لم يتم العثور على المادة، يتم استخدام St_Code فقط بدون رمز.
'   - في حالة الحاجة لتحديث القاموس أثناء الجلسة، يجب إعادة تحميله يدوياً.
'-----------------------------------------------------------------------------------

' تحميل جدول المواد الدراسية إلى قاموس
Public Function LoadStudyMaterialSymbols() As Object
    Dim dict As Object
    Dim rs As DAO.Recordset
    
    Set dict = CreateObject("Scripting.Dictionary")
    Set rs = CurrentDb.OpenRecordset("SELECT StudyMaterialsEng, Symbol FROM tblStudyMaterials", dbOpenSnapshot)
    
    Do While Not rs.EOF
        If Not dict.Exists(UCase(Nz(rs!StudyMaterialsEng, ""))) Then
            dict.Add UCase(Nz(rs!StudyMaterialsEng, "")), Nz(rs!Symbol, "")
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    
    Set LoadStudyMaterialSymbols = dict
End Function

' توليد باركود بناءً على المادة والكود مع إضافة ملاحظة اختيارية
Public Function GenerateBarcode(ByVal StudyMaterialsEng As String, ByVal St_Code As String, Optional ByVal AdditionalNote As String = "") As String
    Static MaterialSymbols As Object
    Dim Symbol As String
    Dim Barcode As String
    
    If MaterialSymbols Is Nothing Then
        Set MaterialSymbols = LoadStudyMaterialSymbols()
    End If
    
    If MaterialSymbols.Exists(UCase(StudyMaterialsEng)) Then
        Symbol = MaterialSymbols(UCase(StudyMaterialsEng))
        Barcode = St_Code & Symbol
    Else
        Barcode = St_Code
    End If
    
    If Len(AdditionalNote) > 0 Then
        Barcode = Barcode & " " & AdditionalNote
    End If
    
    GenerateBarcode = Barcode
End Function

وعلشان انا فهمى على ادى ومش عارف قصدك من جملة اضافة ملاحظات

انا كتبت لك كود الاستدعاء بالشكل اللى انت استخدمته داخل الاستعلام:
 

Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code])

ولو أردت اضافة أى ملاحظات يكون الاستدعاء بالكشل التالى :
 

Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code], "ملاحظة إضافية")

طبعا مع كتابة ملاحظاتك حسب الحاجة باستبدال: ملاحظة إضافية

وأخيرا

 

 كود توليد الباركود الذكي!

هذا الكود يقوم بإنشاء باركود مميز وسريع للمواد الدراسية بناء على الكود واختصارات المواد

•  مميزات الكود :

تحميل ذكي للمواد إلى قاموس منظم ومرن

توليد باركود فوري مع امكانية إضافة ملاحظات اختيارية

التعامل مع البيانات بشكل سلس ومنظم

تحسين مستوى الدقة في إدارة المواد 

•  كيف يعمل الكود ببساطة :

يتم قراءة البيانات من قاعدة البيانات

يتم تخزين اختصار كل مادة في قاموس للوصول السريع

يقوم بإنشاء كود منفرد متكون من كود المادة + رمز المادة + ملاحظة اختيارية

 

📢 للاستفسارات والتطوير : 

يسعدني دعمكم بكل ما يخص تطوير وتحسين هذا الكود 

شعارنا : نحو تكويد و إدارة أكواد أذكى وأكثر فاعلية ومرونة 

 

• فى الاستعلام الاول قمت بإضافة الحقل : NewBarcode  والذى يعتمد على الأكواد 

DDMhamed(2).accdb

[محمد119900]

11 ساعات مضت, ابو جودي said:

طيب انا مش عارف انت مش بترد ليه

ولو على حسب فهمى الضئيل بعد تحليلى لقاعدة بيانات
انت عندك جدول اسمه : tblStudyMaterials

يحتوى على المواد الدراسية والبيانات الرئيسية لإنشاء البار كود

والكود القادم ده هيريحك من انك تكتب جمل فيها IIf  متعدده لانه كارثه لو فقدت تركيزك معها يا صديقة وبدلا من كثر التكرار 

 

ده الكود داخل وحده نمطية عامة باسم : basGenerateBarcode

'-----------------------------------------------------------------------------------
' الوحدة النمطية: توليد باركود المواد الدراسية بناءً على الكود واختصارات المواد
' تحتوي على:
'   - تحميل بيانات المواد إلى قاموس مرة واحدة
'   - دالة لتوليد الباركود مع ملاحظة اختيارية
'
' أمثلة الاستخدام (داخل الاستعلامات أو الأكواد):
'   - Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code])
'   - Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code], "ملاحظة إضافية")
'
' ملاحظات:
'   - إذا لم يتم العثور على المادة، يتم استخدام St_Code فقط بدون رمز.
'   - في حالة الحاجة لتحديث القاموس أثناء الجلسة، يجب إعادة تحميله يدوياً.
'-----------------------------------------------------------------------------------

' تحميل جدول المواد الدراسية إلى قاموس
Public Function LoadStudyMaterialSymbols() As Object
    Dim dict As Object
    Dim rs As DAO.Recordset
    
    Set dict = CreateObject("Scripting.Dictionary")
    Set rs = CurrentDb.OpenRecordset("SELECT StudyMaterialsEng, Symbol FROM tblStudyMaterials", dbOpenSnapshot)
    
    Do While Not rs.EOF
        If Not dict.Exists(UCase(Nz(rs!StudyMaterialsEng, ""))) Then
            dict.Add UCase(Nz(rs!StudyMaterialsEng, "")), Nz(rs!Symbol, "")
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    
    Set LoadStudyMaterialSymbols = dict
End Function

' توليد باركود بناءً على المادة والكود مع إضافة ملاحظة اختيارية
Public Function GenerateBarcode(ByVal StudyMaterialsEng As String, ByVal St_Code As String, Optional ByVal AdditionalNote As String = "") As String
    Static MaterialSymbols As Object
    Dim Symbol As String
    Dim Barcode As String
    
    If MaterialSymbols Is Nothing Then
        Set MaterialSymbols = LoadStudyMaterialSymbols()
    End If
    
    If MaterialSymbols.Exists(UCase(StudyMaterialsEng)) Then
        Symbol = MaterialSymbols(UCase(StudyMaterialsEng))
        Barcode = St_Code & Symbol
    Else
        Barcode = St_Code
    End If
    
    If Len(AdditionalNote) > 0 Then
        Barcode = Barcode & " " & AdditionalNote
    End If
    
    GenerateBarcode = Barcode
End Function

وعلشان انا فهمى على ادى ومش عارف قصدك من جملة اضافة ملاحظات

انا كتبت لك كود الاستدعاء بالشكل اللى انت استخدمته داخل الاستعلام:
 

Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code])

ولو أردت اضافة أى ملاحظات يكون الاستدعاء بالكشل التالى :
 

Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code], "ملاحظة إضافية")

طبعا مع كتابة ملاحظاتك حسب الحاجة باستبدال: ملاحظة إضافية

وأخيرا

 

 كود توليد الباركود الذكي!

هذا الكود يقوم بإنشاء باركود مميز وسريع للمواد الدراسية بناء على الكود واختصارات المواد

•  مميزات الكود :

تحميل ذكي للمواد إلى قاموس منظم ومرن

توليد باركود فوري مع امكانية إضافة ملاحظات اختيارية

التعامل مع البيانات بشكل سلس ومنظم

تحسين مستوى الدقة في إدارة المواد 

•  كيف يعمل الكود ببساطة :

يتم قراءة البيانات من قاعدة البيانات

يتم تخزين اختصار كل مادة في قاموس للوصول السريع

يقوم بإنشاء كود منفرد متكون من كود المادة + رمز المادة + ملاحظة اختيارية

 

📢 للاستفسارات والتطوير : 

يسعدني دعمكم بكل ما يخص تطوير وتحسين هذا الكود 

شعارنا : نحو تكويد و إدارة أكواد أذكى وأكثر فاعلية ومرونة 

 

• فى الاستعلام الاول قمت بإضافة الحقل : NewBarcode  والذى يعتمد على الأكواد 

DDMhamed(2).accdb 620 kB · 4 downloads

الله يبارك بيك استاذي كيف ممكن اشغل الوحدات النمطية basGenerateBarcode

1) هل ممكن في نموذج frmMain ونموذج subMain تحويل 

St_code إلى رقم الطالب 

St_Name إلى اسم الطالب

St_Group إلى الصف والشعبة 

وكتابة بالعربي مثلا ( بدل 6C يصبح ٦ ج وهكذا )

Religion إلى التربية الإسلامية 

Arabic إلى اللغة العربية 

Math إلى اللغة الانكليزية 

English إلى الرياضيات

Social إلى العلوم

Science إلى الاجتماعيات

Art إلى التربية الفنية 

Sport إلى التربية الرياضية 

ملاحظة هذا التغيير يكون ايضا في

TblMain

TblStudent

TblSudyMaterials

2) أحتاج في نموذج subMain زر خروج وزر بحث بالاسم او رقم الطالب وأيضا يحول هذا النموذج إلى ملف أستطيع النسخ منه

[محمد119900]

في 18‏/4‏/2025 at 23:12, ابو جودي said:

طيب انا مش عارف انت مش بترد ليه

ولو على حسب فهمى الضئيل بعد تحليلى لقاعدة بيانات
انت عندك جدول اسمه : tblStudyMaterials

يحتوى على المواد الدراسية والبيانات الرئيسية لإنشاء البار كود

والكود القادم ده هيريحك من انك تكتب جمل فيها IIf  متعدده لانه كارثه لو فقدت تركيزك معها يا صديقة وبدلا من كثر التكرار 

 

ده الكود داخل وحده نمطية عامة باسم : basGenerateBarcode

'-----------------------------------------------------------------------------------
' الوحدة النمطية: توليد باركود المواد الدراسية بناءً على الكود واختصارات المواد
' تحتوي على:
'   - تحميل بيانات المواد إلى قاموس مرة واحدة
'   - دالة لتوليد الباركود مع ملاحظة اختيارية
'
' أمثلة الاستخدام (داخل الاستعلامات أو الأكواد):
'   - Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code])
'   - Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code], "ملاحظة إضافية")
'
' ملاحظات:
'   - إذا لم يتم العثور على المادة، يتم استخدام St_Code فقط بدون رمز.
'   - في حالة الحاجة لتحديث القاموس أثناء الجلسة، يجب إعادة تحميله يدوياً.
'-----------------------------------------------------------------------------------

' تحميل جدول المواد الدراسية إلى قاموس
Public Function LoadStudyMaterialSymbols() As Object
    Dim dict As Object
    Dim rs As DAO.Recordset
    
    Set dict = CreateObject("Scripting.Dictionary")
    Set rs = CurrentDb.OpenRecordset("SELECT StudyMaterialsEng, Symbol FROM tblStudyMaterials", dbOpenSnapshot)
    
    Do While Not rs.EOF
        If Not dict.Exists(UCase(Nz(rs!StudyMaterialsEng, ""))) Then
            dict.Add UCase(Nz(rs!StudyMaterialsEng, "")), Nz(rs!Symbol, "")
        End If
        rs.MoveNext
    Loop
    
    rs.Close
    Set rs = Nothing
    
    Set LoadStudyMaterialSymbols = dict
End Function

' توليد باركود بناءً على المادة والكود مع إضافة ملاحظة اختيارية
Public Function GenerateBarcode(ByVal StudyMaterialsEng As String, ByVal St_Code As String, Optional ByVal AdditionalNote As String = "") As String
    Static MaterialSymbols As Object
    Dim Symbol As String
    Dim Barcode As String
    
    If MaterialSymbols Is Nothing Then
        Set MaterialSymbols = LoadStudyMaterialSymbols()
    End If
    
    If MaterialSymbols.Exists(UCase(StudyMaterialsEng)) Then
        Symbol = MaterialSymbols(UCase(StudyMaterialsEng))
        Barcode = St_Code & Symbol
    Else
        Barcode = St_Code
    End If
    
    If Len(AdditionalNote) > 0 Then
        Barcode = Barcode & " " & AdditionalNote
    End If
    
    GenerateBarcode = Barcode
End Function

وعلشان انا فهمى على ادى ومش عارف قصدك من جملة اضافة ملاحظات

انا كتبت لك كود الاستدعاء بالشكل اللى انت استخدمته داخل الاستعلام:
 

Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code])

ولو أردت اضافة أى ملاحظات يكون الاستدعاء بالكشل التالى :
 

Barcode: GenerateBarcode([StudyMaterialsEng], [St_Code], "ملاحظة إضافية")

طبعا مع كتابة ملاحظاتك حسب الحاجة باستبدال: ملاحظة إضافية

وأخيرا

 

 كود توليد الباركود الذكي!

هذا الكود يقوم بإنشاء باركود مميز وسريع للمواد الدراسية بناء على الكود واختصارات المواد

•  مميزات الكود :

تحميل ذكي للمواد إلى قاموس منظم ومرن

توليد باركود فوري مع امكانية إضافة ملاحظات اختيارية

التعامل مع البيانات بشكل سلس ومنظم

تحسين مستوى الدقة في إدارة المواد 

•  كيف يعمل الكود ببساطة :

يتم قراءة البيانات من قاعدة البيانات

يتم تخزين اختصار كل مادة في قاموس للوصول السريع

يقوم بإنشاء كود منفرد متكون من كود المادة + رمز المادة + ملاحظة اختيارية

 

📢 للاستفسارات والتطوير : 

يسعدني دعمكم بكل ما يخص تطوير وتحسين هذا الكود 

شعارنا : نحو تكويد و إدارة أكواد أذكى وأكثر فاعلية ومرونة 

 

• فى الاستعلام الاول قمت بإضافة الحقل : NewBarcode  والذى يعتمد على الأكواد 

DDMhamed(2).accdb 620 kB · 7 downloads

استاذي ساعدني فقط الذي تقدر عليه ليش شرط كل الملاحظات