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

**عمر ضاحى** · نوفمبر 19, 2023

1 ساعه مضت, safaa salem5 said:

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

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

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

فلتر ايه؟

**safaa salem5** · نوفمبر 19, 2023

1 minute ago, عمر ضاحى said:

فلتر ايه؟

شوف فى المثال كام تحليل انا اختارتهم من النوع

Serum

وشوف الباركود بتاع

Serum

هتلاقى فى تحاليل زياده جايه من زياره تانيه

نزل الملف بتاعى الاخير

**عمر ضاحى** · نوفمبر 20, 2023

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

شوف فى المثال كام تحليل انا اختارتهم من النوع

Serum

وشوف الباركود بتاع

Serum

هتلاقى فى تحاليل زياده جايه من زياره تانيه

نزل الملف بتاعى الاخير

ادخلى على استعلام الالحاق وعدلى الشروط

**safaa salem5** · نوفمبر 20, 2023

3 hours ago, عمر ضاحى said:

ادخلى على استعلام الالحاق وعدلى الشروط

انا اشتغلت بالمثال اللى كنت بعتالك رابط بتاعه

وغيرت بس اسماء الحقول زى اللى عندى ودا الكود الموجود

عايزه أقوله يشتغل على نفس

ID

اللى انا واقفه عنده فى ال فورم

Public Function Concat(F_Name, P_Name)
On Error GoTo err_Concat


    'F_Name = Field Name
    'P_Name = Person Name
    
    Dim rst As DAO.Recordset
    Dim RC As Integer
    Dim i As Integer
    Dim Add_Me As String
    Dim strSQL As String
    

    'do the query SQL for this Field name ONLY
    strSQL = "Select [" & F_Name & "] From [New_Request] Where [PName]= '" & P_Name & "'"
    Set rst = CurrentDb.OpenRecordset(strSQL)           'make the Recordset in memory
    rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount
    
    'loop through the Records
    For i = 1 To RC
    
        'ONLY add this value if we didn't add it before
        If InStr(Add_Me, rst(F_Name)) = 0 Then
            Add_Me = Add_Me & ", " & rst(F_Name)        'Concatenate these values
        End If
        
        rst.MoveNext
    Next i
    
    Concat = Mid(Add_Me, 3) 'remove the initial comma
    
    
Exit_Concat:
    rst.Close: Set rst = Nothing
    
    Exit Function
err_Concat:

    If Err.Number = 3021 Then
        'no data
        Concat = ""
        Resume Exit_Concat
        
    ElseIf Err.Number = 3061 Then
    
            'too few parameters, expected xx
            'this error occurs when trying to run a query which needs its parameters from a Form,
            'the Form should be open with the parameter, then this code take the values properly
            
            Dim qdf As DAO.QueryDef
            Dim prm As Parameter
            
'            For Each qdf In CurrentDb.QueryDefs
'                If qdf.Name = "NewQueryDef" Then
'                    CurrentDb.QueryDefs.Delete "NewQueryDef"
'                    Exit For
'                End If
'            Next
            
            Set qdf = CurrentDb.CreateQueryDef("NewQueryDef", strSQL)
            For Each prm In qdf.Parameters
                prm.Value = Eval(prm.Name)
            Next prm


            Set rst = qdf.OpenRecordset(dbOpenDynaset)
            CurrentDb.QueryDefs.Delete "NewQueryDef"
            
            Resume Next
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

**عمر ضاحى** · نوفمبر 20, 2023

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

انا اشتغلت بالمثال اللى كنت بعتالك رابط بتاعه

وغيرت بس اسماء الحقول زى اللى عندى ودا الكود الموجود

عايزه أقوله يشتغل على نفس

ID

اللى انا واقفه عنده فى ال فورم

Public Function Concat(F_Name, P_Name)
On Error GoTo err_Concat


    'F_Name = Field Name
    'P_Name = Person Name
    
    Dim rst As DAO.Recordset
    Dim RC As Integer
    Dim i As Integer
    Dim Add_Me As String
    Dim strSQL As String
    

    'do the query SQL for this Field name ONLY
    strSQL = "Select [" & F_Name & "] From [New_Request] Where [PName]= '" & P_Name & "'"
    Set rst = CurrentDb.OpenRecordset(strSQL)           'make the Recordset in memory
    rst.MoveLast: rst.MoveFirst: RC = rst.RecordCount
    
    'loop through the Records
    For i = 1 To RC
    
        'ONLY add this value if we didn't add it before
        If InStr(Add_Me, rst(F_Name)) = 0 Then
            Add_Me = Add_Me & ", " & rst(F_Name)        'Concatenate these values
        End If
        
        rst.MoveNext
    Next i
    
    Concat = Mid(Add_Me, 3) 'remove the initial comma
    
    
Exit_Concat:
    rst.Close: Set rst = Nothing
    
    Exit Function
err_Concat:

    If Err.Number = 3021 Then
        'no data
        Concat = ""
        Resume Exit_Concat
        
    ElseIf Err.Number = 3061 Then
    
            'too few parameters, expected xx
            'this error occurs when trying to run a query which needs its parameters from a Form,
            'the Form should be open with the parameter, then this code take the values properly
            
            Dim qdf As DAO.QueryDef
            Dim prm As Parameter
            
'            For Each qdf In CurrentDb.QueryDefs
'                If qdf.Name = "NewQueryDef" Then
'                    CurrentDb.QueryDefs.Delete "NewQueryDef"
'                    Exit For
'                End If
'            Next
            
            Set qdf = CurrentDb.CreateQueryDef("NewQueryDef", strSQL)
            For Each prm In qdf.Parameters
                prm.Value = Eval(prm.Name)
            Next prm


            Set rst = qdf.OpenRecordset(dbOpenDynaset)
            CurrentDb.QueryDefs.Delete "NewQueryDef"
            
            Resume Next
        
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Function

مش فاهم يعنى ايه يشتغل على نفس ال ID ؟
غير كده هل الملف الذى ارسلته لك لم يعمل معكي ؟

**safaa salem5** · نوفمبر 20, 2023

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

افتح كدا اخر ملف انا حملته

**عمر ضاحى** · نوفمبر 20, 2023

استبدلى السطر

هذا

strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "'"

بهذا

strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID]

**عمر ضاحى** · نوفمبر 20, 2023

هل الكود يعمل تمام ؟

**safaa salem5** · نوفمبر 20, 2023

2 hours ago, عمر ضاحى said:

هل الكود يعمل تمام ؟

شغال تمام بس فى حاله لما بيجمع التحاليل اللى ليها نفس ال

tube

زى

Serum

بيجمع كله حتى لو زياره سابقه لنفس المريض

عايزه اخليه يشتغل على نفس الزياره اللى انا فيها بس

لو نزلت الملف اللى انا رفعته هتفهمنى

**عمر ضاحى** · نوفمبر 20, 2023

انا كنت عارف ان هيحصل كده

بس حبيت اسيب ليكي حاجه انتى تعمليها

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

**safaa salem5** · نوفمبر 20, 2023

2 hours ago, عمر ضاحى said:

انا كنت عارف ان هيحصل كده

بس حبيت اسيب ليكي حاجه انتى تعمليها

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

استاذ عمر انا مشتغلتش بطريقتك

انا عملت زى البوست اللى حطتلك اللينك بتاعه

ممكن تراجع معلش

5 hours ago, عمر ضاحى said:

هل الكود يعمل تمام ؟

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

**عمر ضاحى** · نوفمبر 20, 2023

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

استاذ عمر انا مشتغلتش بطريقتك

انا عملت زى البوست اللى حطتلك اللينك بتاعه

ممكن تراجع معلش

انا عارف

وردي هذا حل لمشكلتك

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

هذا

6 ساعات مضت, عمر ضاحى said:

استبدلى السطر

هذا

strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "'"

بهذا

strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID]

**safaa salem5** · نوفمبر 20, 2023

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

انا عارف

وردي هذا حل لمشكلتك

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

هذا

بص بصراحه انا شايفه الدنيا تمام

مش لاقيه المشكله

ماتتعبنيش الله يباركلك😌

**عمر ضاحى** · نوفمبر 20, 2023

1 دقيقه مضت, safaa salem5 said:

بص بصراحه انا شايفه الدنيا تمام

مش لاقيه المشكله

ماتتعبنيش الله يباركلك😌

احببت لكي الخير بان تتعلمي

لكن بما ان الموضوع واخد اتجاه النسخ واللصق

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

لان الاصل ان تعرفي كيف يعمل الكود علشان تقدري تطوريه وتطوعيه للغرض المخصص له

الملاحظه فى التعديل البسيط انه مش هيظهر الحاله الفعليه لعملية الاختيار

بل هيتجاهل اختياراتك فى النموذج ويظهر لكي التحاليل

اتفضلى النتجيه كامله ان شاء الله

strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID] & " And [Code] = " & [Forms]![barcode_frm]![code] & " And [barcode_print] = True"

**safaa salem5** · نوفمبر 20, 2023

1 minute ago, عمر ضاحى said:
احببت لكي الخير بان تتعلمي

لكن بما ان الموضوع واخد اتجاه النسخ واللصق

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

لان الاصل ان تعرفي كيف يعمل الكود علشان تقدري تطوريه وتطوعيه للغرض المخصص له

الملاحظه فى التعديل البسيط انه مش هيظهر الحاله الفعليه لعملية الاختيار

بل هيتجاهل اختياراتك فى النموذج ويظهر لكي التحاليل

اتفضلى النتجيه كامله ان شاء الله
strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID] & " And [Code] = " & [Forms]![barcode_frm]![code] & " And [barcode_print] = True"

[barcode_print] = True" الجزئيه دى موجوده فى الاستعلام الخاص بتقرير الباركود اصلا

**عمر ضاحى** · نوفمبر 20, 2023

1 دقيقه مضت, safaa salem5 said:

[barcode_print] = True" الجزئيه دى موجوده فى الاستعلام الخاص بتقرير الباركود اصلا

جربي وشوفى مثلا الغي احد التحليلين الخاص

بتحليلSerum

وشوفى هل هتعمل جيدا ام لا

**safaa salem5** · نوفمبر 20, 2023

Just now, safaa salem5 said:

[barcode_print] = True" الجزئيه دى موجوده فى الاستعلام الخاص بتقرير الباركود اصلا

[Forms]![barcode_frm]![code]  بالنسبه للنقطه دى حضرتك 
 انا شايفه الاهم الربط يكون ب
id
 هو الاهم لان كود المريض ممكن تكراره
 الزياره مش هيتكرر id

**safaa salem5** · نوفمبر 20, 2023

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

جربي وشوفى مثلا الغي احد التحليلين الخاص

بتحليلSerum

وشوفى هل هتعمل جيدا ام لا

اه فعلا مش بيتحذف

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

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

لكن بما ان الموضوع واخد اتجاه النسخ واللصق

لا والله انا مستمتعه بالمناقشه معاك وبتعلم منكم رغم ان انا واخدها هوايه انا اخصاءية تحاليل اصلا

**عمر ضاحى** · نوفمبر 20, 2023

ايه الخطأ

ارفعي صورة او الملف افضل بعد التعديل

**safaa salem5** · نوفمبر 20, 2023

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

ايه الخطأ

ارفعي صورة او الملف افضل بعد التعديل

**safaa salem5** · نوفمبر 20, 2023

7 minutes ago, safaa salem5 said:

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

**عمر ضاحى** · نوفمبر 20, 2023

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

طباعة باركود-1 (1).rar 190.1 kB · 1 download

اذهبى الى الاستعلام patient_data
وضيفي الحقل barcode_print من جدول test_order_tbl
ثم اذهبي الى الاستعلام NewQueryDef وايضا ضيفى الحقل barcode_print من الاستعلام patient_data

وهتتحل المشكله

ملاحظه جانبيه
فى الحقول المنضمه barcode_print و drawn التى فى النموذج الفرعي داخل النموذج barcode_frm
اعملى حدث بعد التحديث وضيفى السطر التالى

Me.Form.Requery

علشان يحدث البيانات

مرفق ملف

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

**safaa salem5** · نوفمبر 20, 2023

33 minutes ago, عمر ضاحى said:
اذهبى الى الاستعلام patient_data
وضيفي الحقل barcode_print من جدول test_order_tbl
ثم اذهبي الى الاستعلام NewQueryDef وايضا ضيفى الحقل barcode_print من الاستعلام patient_data

وهتتحل المشكله

ملاحظه جانبيه
فى الحقول المنضمه barcode_print و drawn التى فى النموذج الفرعي داخل النموذج barcode_frm
اعملى حدث بعد التحديث وضيفى السطر التالى
Me.Form.Requery
علشان يحدث البيانات

مرفق ملف

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

تمام ياباشمهندس عمر

تسلم كلك زوق

هجرب وارد عليك

36 minutes ago, عمر ضاحى said:
اذهبى الى الاستعلام patient_data
وضيفي الحقل barcode_print من جدول test_order_tbl
ثم اذهبي الى الاستعلام NewQueryDef وايضا ضيفى الحقل barcode_print من الاستعلام patient_data

وهتتحل المشكله

ملاحظه جانبيه
فى الحقول المنضمه barcode_print و drawn التى فى النموذج الفرعي داخل النموذج barcode_frm
اعملى حدث بعد التحديث وضيفى السطر التالى
Me.Form.Requery
علشان يحدث البيانات

مرفق ملف

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

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

**ابوبسمله** · نوفمبر 20, 2023

لا اعلم صراحه لماذا تم اضافه جميع هذه الشروط

1 ساعه مضت, عمر ضاحى said:
اتفضلى النتجيه كامله ان شاء الله
strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID] & " And [Code] = " & [Forms]![barcode_frm]![code] & " And [barcode_print] = True"

لان التعديل التالى كافى فعليا

8 ساعات مضت, عمر ضاحى said:

بهذا

strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID]

وع كل تمنياتى لكم بالتوفيق

**عمر ضاحى** · نوفمبر 20, 2023

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

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

اتفضلى بعد التعديل

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

1 دقيقه مضت, ابوبسمله said:

لا اعلم صراحه لماذا تم اضافه جميع هذه الشروط

لان التعديل التالى كافى فعليا

وع كل تمنياتى لكم بالتوفيق

لان طلبها الاصلى ان تتحكم فى التقارير والعينات ولا تريد طباعة كل العينات للمريض (عافانا الله واياكم) ^_^

تسجيل الدخول

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

الردود الموصى بها

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Popular Posts

عمر ضاحى

عمر ضاحى

safaa salem5

Posted Images

Join the conversation

تصفح هذا الموضوع مؤخراً 0 اعضاء متواجدين الان

Important Information