safaa salem5

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

استاذ محمد انا عايزاه قبل ماينفذ القيد دايروح يشوف القيمه اللى فى جدول الاعدادات لو بتساوى -1 يعمل الكلام دا والا فلا بالداله dulookup

عندى فورم للاعدادات اسمه settings_general_frm عايزه لو المستخدم علم امام اسم المريض ثلاثي لو الاسم اتكتب اقل من 3 مقاطع تخرج رساله برجاء كتابة الاسم كاملا نفس الكلام بالنسبه تأكيد رقم الموبايلlab2.accdb lab2.accdb

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

ايوه تمام حضرتك بشمهندس عمر تكرم مشكورا باضافة كود الزياره داخل الاستعلام فاصبح كالتالى strSQL = "Select [" & F_Name & "] From [patient_data] Where [tube]= '" & P_Name & "' And [ID] = " & [Forms]![barcode_frm]![ID] ومتشكره جدا لحضرتك ولو فى اى كومنت انا يشرفنى اتعلم من حضرتك

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

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

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

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

بص بصراحه انا شايفه الدنيا تمام مش لاقيه المشكله ماتتعبنيش الله يباركلك😌

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

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

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

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

انا اشتغلت بالمثال اللى كنت بعتالك رابط بتاعه وغيرت بس اسماء الحقول زى اللى عندى ودا الكود الموجود عايزه أقوله يشتغل على نفس 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

شوف فى المثال كام تحليل انا اختارتهم من النوع Serum وشوف الباركود بتاع Serum هتلاقى فى تحاليل زياده جايه من زياره تانيه نزل الملف بتاعى الاخير

عملتها بالطريقه دى بس بصراحه بشكرك جدا يا استاذ عمر لمجهودك طباعة باركود-1 (1).rar فاضل بس الفلتر

https://www.officena.net/ib/topic/89395-استعلام-بشكل-مختلف/?do=findComment&comment=562689 استاذ عمر ممكن لو تشوف الموضوع دا فيه نفس الطلب الخاص بى بدون عمل جداول كتير وحده نمطيه واحده لو امكن التعديل بدون استخدام جداول جديده اكون شاكره جدا

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

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

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

??

؟؟

؟؟