طريقة اظهار شفرة الباركود

[Foksh]

4 دقائق مضت, safaa salem5 said:

بصراحه انا مضايقه جدا ان محدش فاهمنى

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

[safaa salem5]

Just now, Foksh said:

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

تمام خليك معايا وانا هشرح من جديد لحضرتك

[safaa salem5]

46 minutes ago, safaa salem5 said:

تمام خليك معايا وانا هشرح من جديد لحضرتك

الحاله الاولى  لو مافيش تحت كلمه باركود حاجه متعلم عليها 

تطلع رساله برجاء اختيار التحاليل اولا

 

[safaa salem5]

11 minutes ago, safaa salem5 said:

الحاله الاولى  لو مافيش تحت كلمه باركود حاجه متعلم عليها 

تطلع رساله برجاء اختيار التحاليل اولا

 

الحاله التانيه لو متعلم على باركود يطبع باركود مثل الصوره

5 minutes ago, safaa salem5 said:

الحاله التانيه لو متعلم على باركود يطبع باركود مثل الصوره

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

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

لاحظ فى الصوره  تحليل 

FBS

2hr.pp

لهم نفس نوع العينه وهى 

Serum

يتم طباعتهم فى باركود واحد

على أن تظهر اسمائهم مجمعه فى الباركود كالتالى

FBS,2hr.pp

لاحظ الصوره التاليه

تم تعديل نوفمبر 18, 2023 بواسطه safaa salem5

[safaa salem5]

حضرتك كدا قدرت تفهمنى ولا لا

1 hour ago, safaa salem5 said:

الحاله التانيه لو متعلم على باركود يطبع باركود مثل الصوره

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

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

لاحظ فى الصوره  تحليل 

FBS

2hr.pp

لهم نفس نوع العينه وهى 

Serum

يتم طباعتهم فى باركود واحد

على أن تظهر اسمائهم مجمعه فى الباركود كالتالى

FBS,2hr.pp

لاحظ الصوره التاليه

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

يتم طباعة واحد فقط يحتوى على جميع اسماء التحاليل المتشابهه فى نوع العينه

[kkhalifa1960]

لازم ترسلي الموديول (Concatenate_barcode_items) مع مرفقك لأن طلبك في تكوينه  .

[Foksh]

1 دقيقه مضت, kkhalifa1960 said:

لازم ترسلي الموديول (Concatenate_barcode_items) مع مرفقك لأن طلبك في تكوينه  .

بالضبط ، وهنا كانت مشاركتي في ظهور المشكلة في المرفق اللي الأخت أرفقته.

[safaa salem5]

4 minutes ago, Foksh said:

بالضبط ، وهنا كانت مشاركتي في ظهور المشكلة في المرفق اللي الأخت أرفقته.

مفيش موديول ماهو دا اللى انا عايزه اعمله

[safaa salem5]

12 minutes ago, kkhalifa1960 said:

لازم ترسلي الموديول (Concatenate_barcode_items) مع مرفقك لأن طلبك في تكوينه  .

حضرتك شيلها من الاستعلام وحلها بطريقتك

7 hours ago, safaa salem5 said:

لاحظ الصوره اثناء  نوع العينه 

serum

جميع التحاليل تحت نفس نوع العينه تظهر  مجمعه فى مربع النص

x

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

[safaa salem5]

3 hours ago, safaa salem5 said:

حضرتك شيلها من الاستعلام وحلها بطريقتك

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

؟؟

[safaa salem5]

9 hours ago, safaa salem5 said:

؟؟

؟؟

[safaa salem5]

؟؟

[safaa salem5]

1 hour ago, safaa salem5 said:

؟؟

??

[عمر ضاحى]

فى تجربه انا اقوم بها لكن محتاجه وقت

هخلصها وارجع ليكي لكن الموضوع محتاج بحث شويه معايا

[safaa salem5]

48 minutes ago, عمر ضاحى said:

فى تجربه انا اقوم بها لكن محتاجه وقت

هخلصها وارجع ليكي لكن الموضوع محتاج بحث شويه معايا

تمام يا استاذ عمر فى انتظار حضرتك

[عمر ضاحى]

هل هذا ما تريدين  ؟

 

طبعا التعديلات كثيره

اولا هذا الصب ما يقوم بالعمليات المهمه

Sub SendDataTests()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim tubeDict As Object
    Dim tubeValue As Variant
    Dim testValue As String
    Dim idValue As Long
    Dim barcodePrintValue As Boolean
    Dim sendValue As Boolean
    
    
    Set db = CurrentDb
    Set tubeDict = CreateObject("Scripting.Dictionary")
    strSQL = "SELECT tube, test, ID, barcode_print, send FROM TEMPTEST;"

    Set rs = db.OpenRecordset(strSQL)

    Do While Not rs.EOF
        tubeValue = rs!tube
        testValue = rs!test
        idValue = rs!ID
        barcodePrintValue = rs!barcode_print
        sendValue = rs!send

        If Not tubeDict.Exists(tubeValue) Then
            tubeDict(tubeValue) = testValue
        Else
            tubeDict(tubeValue) = tubeDict(tubeValue) & ", " & testValue
        End If

        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    db.Close
    
'---------------------------------------------------------------------------------------------
    
    Set db = Nothing
    Set db = CurrentDb
    For Each tubeValue In tubeDict.Keys
        strSQL = "INSERT INTO TEMPTEST2 (tube, [test], ID, barcode_print, send) " & _
                 "VALUES ('" & tubeValue & "', '" & tubeDict(tubeValue) & "', " & idValue & ", " & barcodePrintValue & ", " & sendValue & ");"
        db.Execute strSQL
    Next tubeValue
    db.Close
    Set db = Nothing
End Sub

 

,طبعا تم عمل جدولين لحفظ البيانات مؤقتا وهم جدول TEMPTEST  وجدول TEMPTEST2

وتم عمل 3 استعلامات ( اثنين لتفريغ البيانات من الجدولين المؤقت والثالث لنقل البيانات التى سيتم معالجتها الى الجدول الاول

 

والملف الذى فيه كل ما تم هنا

طباعة باركود-1.rar

[safaa salem5]

الله يحفظك ويبارك فيك ويصونك ويبعد  عنك السوء 

لو امكن بس كل باركود لوحده مش فى تقرير واحد

تم تعديل نوفمبر 19, 2023 بواسطه safaa salem5

[عمر ضاحى]

بسيطه
جربي غيري السطر هذا
 

DoCmd.OpenReport "Barcode", acViewReport

فى زر الطباعة
 

DoCmd.OpenReport "Barcode", acViewPreview

او باى طريقه انتى حابها  ^_^

[عمر ضاحى]

اذا تم حل المشكلة اختاري افضل اجابه لغلق الموضوع

تم تعديل نوفمبر 19, 2023 بواسطه عمر ضاحى

[safaa salem5]

48 minutes ago, عمر ضاحى said:

اذا تم حل المشكلة اختاري افضل اجابه لغلق الموضوع

نقلت كل حاجه عندى بس بيدينى ايرور

[ابوبسمله]

السلام عليكم ورحمه الله وبركاته

مشاركه مع اخوانى

برجاء الاطلاع على المشاركات التاليه ففيها الحل ان شاء الله

بالتوفيق

[عمر ضاحى]

9 دقائق مضت, safaa salem5 said:

نقلت كل حاجه عندى بس بيدينى ايرور

ده معناه انك لم تغلقي الصب  زي مثلا end sub

وممكن يكون معناه اظ فى اكثر من صب داخل بعض

[safaa salem5]

23 minutes ago, عمر ضاحى said:

ده معناه انك لم تغلقي الصب  زي مثلا end sub

وممكن يكون معناه اظ فى اكثر من صب داخل بعض

https://www.officena.net/ib/topic/89395-استعلام-بشكل-مختلف/?do=findComment&comment=562689

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

لو امكن التعديل بدون استخدام جداول جديده اكون شاكره جدا

[ابوخليل]

3 ساعات مضت, safaa salem5 said:

https://www.officena.net/ib/topic/89395-استعلام-بشكل-مختلف/?do=findComment&comment=562689

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

لو امكن التعديل بدون استخدام جداول جديده اكون شاكره جدا

اعداد وتصميم قاعدة البيانات ( الجداول ) بطريقة علمية صحيحة .. تمكن من التطوير المستقبلي بكل يسر ، وتجنبك نهايات الطريق المسدود

سبق وان اشرت الى هذا في مشاركتي هذه وما بعدها في موضوعك ذاك .. وتم التوجيه هناك

الحلول البرمجية السريعة  .. هي حلول مؤقتة عند الازمات فقط

 

 

[safaa salem5]

4 hours ago, safaa salem5 said:

https://www.officena.net/ib/topic/89395-استعلام-بشكل-مختلف/?do=findComment&comment=562689

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

لو امكن التعديل بدون استخدام جداول جديده اكون شاكره جدا

عملتها بالطريقه دى بس بصراحه بشكرك جدا يا استاذ عمر لمجهودك 

طباعة باركود-1 (1).rar

Just now, safaa salem5 said:

عملتها بالطريقه دى بس بصراحه بشكرك جدا يا استاذ عمر لمجهودك 

طباعة باركود-1 (1).rar 183.95 kB · 0 downloads

فاضل بس الفلتر