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

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

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

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

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

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

Expand

فلتر ايه؟

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

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

فلتر ايه؟

Expand

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

Serum

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

Serum

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

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

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

في 19‏/11‏/2023 at 23:47, safaa salem5 said:

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

Serum

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

Serum

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

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

Expand

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

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

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

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

Expand

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

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

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

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

في 20‏/11‏/2023 at 06:33, 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

Expand

مش فاهم يعنى ايه يشتغل على نفس ال 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

في 20‏/11‏/2023 at 11:23, عمر ضاحى said:

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

Expand

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

tube

زى

Serum

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

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

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

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

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

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

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

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

في 20‏/11‏/2023 at 14:09, عمر ضاحى said:

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

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

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

Expand

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

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

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

في 20‏/11‏/2023 at 11:23, عمر ضاحى said:

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

Expand

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

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

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

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

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

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

Expand

انا عارف

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

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

هذا

في 20‏/11‏/2023 at 11:03, عمر ضاحى 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]
Expand

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

في 20‏/11‏/2023 at 17:09, عمر ضاحى said:

انا عارف

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

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

هذا

Expand

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

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

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

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

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

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

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

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

Expand

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

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

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

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

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

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

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

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

في 20‏/11‏/2023 at 17:27, عمر ضاحى 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"
Expand

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

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

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

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

Expand

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

بتحليلSerum

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

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

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

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

Expand

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

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

في 20‏/11‏/2023 at 17:32, عمر ضاحى said:

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

بتحليلSerum

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

Expand

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

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

في 20‏/11‏/2023 at 17:27, عمر ضاحى said:

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

Expand

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

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

ايه الخطأ

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

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

في 20‏/11‏/2023 at 18:01, عمر ضاحى said:

ايه الخطأ

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

Expand

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

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

Expand

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

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

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

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

Expand

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

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

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

Me.Form.Requery

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

مرفق ملف

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

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

في 20‏/11‏/2023 at 18:44, عمر ضاحى 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
Expand

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

تسلم كلك زوق

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

في 20‏/11‏/2023 at 18:44, عمر ضاحى 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
Expand

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

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

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

في 20‏/11‏/2023 at 17:27, عمر ضاحى 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"
Expand

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

في 20‏/11‏/2023 at 11:03, عمر ضاحى said:
بهذا
strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID]
Expand

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

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

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

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

Expand

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

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

في 20‏/11‏/2023 at 19:27, ابوبسمله said:

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

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

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

Expand

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

تسجيل الدخول

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

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

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