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

[Foksh]

  في 18‏/11‏/2023 at 17:20, safaa salem5 said:

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

Expand  

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

[safaa salem5]

  في 18‏/11‏/2023 at 17:26, Foksh said:

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

Expand  

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

[safaa salem5]

  في 18‏/11‏/2023 at 17:27, safaa salem5 said:

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

Expand  

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

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

 

[safaa salem5]

  في 18‏/11‏/2023 at 18:14, safaa salem5 said:

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

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

 

Expand  

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

  في 18‏/11‏/2023 at 18:21, safaa salem5 said:

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

Expand  

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

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

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

FBS

2hr.pp

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

Serum

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

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

FBS,2hr.pp

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

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

[safaa salem5]

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

  في 18‏/11‏/2023 at 18:21, safaa salem5 said:

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

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

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

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

FBS

2hr.pp

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

Serum

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

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

FBS,2hr.pp

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

Expand  

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

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

[kkhalifa1960]

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

[Foksh]

  في 18‏/11‏/2023 at 19:56, kkhalifa1960 said:

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

Expand  

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

[safaa salem5]

  في 18‏/11‏/2023 at 19:58, Foksh said:

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

Expand  

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

[safaa salem5]

  في 18‏/11‏/2023 at 19:56, kkhalifa1960 said:

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

Expand  

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

  في 18‏/11‏/2023 at 12:45, safaa salem5 said:

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

serum

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

x

Expand  

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

[safaa salem5]

  في 18‏/11‏/2023 at 20:08, safaa salem5 said:

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

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

Expand  

؟؟

[safaa salem5]

  في 18‏/11‏/2023 at 23:22, safaa salem5 said:

؟؟

Expand  

؟؟

[safaa salem5]

؟؟

[safaa salem5]

  في 19‏/11‏/2023 at 10:49, safaa salem5 said:

؟؟

Expand  

??

[عمر ضاحى]

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

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

[safaa salem5]

  في 19‏/11‏/2023 at 13:04, عمر ضاحى said:

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

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

Expand  

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

[عمر ضاحى]

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

 

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

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

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.rarFetching info...

[safaa salem5]

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

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

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

[عمر ضاحى]

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

DoCmd.OpenReport "Barcode", acViewReport

فى زر الطباعة
 

DoCmd.OpenReport "Barcode", acViewPreview

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

[عمر ضاحى]

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

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

[safaa salem5]

  في 19‏/11‏/2023 at 15:43, عمر ضاحى said:

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

Expand  

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

[أبوبسمله]

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

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

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

بالتوفيق

[عمر ضاحى]

  في 19‏/11‏/2023 at 16:32, safaa salem5 said:

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

Expand  

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

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

[safaa salem5]

  في 19‏/11‏/2023 at 16:42, عمر ضاحى said:

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

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

Expand  

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

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

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

[ابوخليل]

  في 19‏/11‏/2023 at 17:08, safaa salem5 said:

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

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

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

Expand  

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

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

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

 

 

[safaa salem5]

  في 19‏/11‏/2023 at 17:08, safaa salem5 said:

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

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

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

Expand  

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

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

  في 19‏/11‏/2023 at 21:55, safaa salem5 said:

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

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

Expand  

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