safaa salem5

بشرط ان التقرير يتم تصديره الى مسار البرنامج الحالى حتى مع تغيير المستخدمين لمكان احتفاظهم بالبرنامج عايزه نتيجة كل مريض تتخزن فى فولدر بكود المريض ID داخل فولدر اسمه results هيكون موجود داخل ملفات البرنامج وعايزه اسم التقرير يحتوى على اسم المريض PNAME مع كود المريض ID مع اسم مجموعة التحاليل SUB

ليه اكتر من يوم متغيب عن المنتدى ودا مش من عادته أن شاء الله خير

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

يمكنك استخدام الحقل المشترك بين جدول الموظفين وجدول الحوافز لاستدعاء قيم الحوافز والمكافآت عند اختيار وظيفة محددة. يمكنك استخدام حدث "بعد تحديد" لعنصر التحكم المرتبط بحقل الوظيفة في النموذج أو الاستعلام لتنفيذ الكود اللازم. فيما يلي مثال لكود VBA يستدعي قيم الحوافز والمكافآت المتعلقة بالوظيفة المحددة: ```vba Private Sub JobComboBox_AfterUpdate() Dim job As String Dim bonus As Double Dim reward As Double job = Me.JobComboBox.Value ' تعيين اسم الجدول وحقل الحافز وحقل المكافأة حسب اسم الجدول الخاص بك Dim tableName As String Dim bonusField As String Dim rewardField As String tableName = "اسم_الجدول" bonusField = "حقل_الحوافز" rewardField = "حقل_المكافأة" ' استعلام لاسترداد قيم الحافز والمكافأة المتعلقة بالوظيفة المحددة Dim strSQL As String strSQL = "SELECT " & bonusField & ", " & rewardField & " FROM " & tableName & " WHERE وظيفة = '" & job & "'" ' تنفيذ الاستعلام واسترداد القيم Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(strSQL) If Not rs.EOF Then bonus = rs.Fields(bonusField).Value reward = rs.Fields(rewardField).Value Else bonus = 0 reward = 0 End If rs.Close Set rs = Nothing ' تعيين قيم الحافز والمكافأة لحقول المستند Me.BonusTextBox.Value = bonus Me.RewardTextBox.Value = reward End Sub ``` يرجى استبدال "اسم_الجدول" بالاسم الصحيح لجدول الحوافز واستبدال "حقل_الحوافز" و "حقل_المكافأة" بأسماء الحقول الصحيحة في جدول الحوافز

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim s1 As String Dim imagePath As String s1 = Str(Me![رقم الجلوس]) s1 = Right(s1, Len(s1) - 1) imagePath = "D:\صور\" + s1 + ".jpg" If Dir(imagePath) <> "" Then Me![Image_Std].Picture = imagePath Else Me![Image_Std].Picture = "" Me![Image_Std].Caption = "لا توجد صورة مطابقة لرقم الجلوس" End If End Sub ```

@Ahmosممكن تطبق على الملف لو سمحت حضرتك

كدا حضرتك بردو هيكون فى اختيارين لو [completed] = -1 او [completed] = 0 مش هيكون فى اختيار تالت

جربت كل الحلول للاسف محدش قادر يوصل للى انا محتاجاه الحلول كلها مبنيه ان جميع حقول result لو فاضىه مفيهاش قيمه (is null) او كلها مش فاضيه (isnot null) ---------------------------------------------------------------- فى مرحله وسط اللى هى بعض الحقول فيها قيمها وبعضها لا ----------------------------------------------- وللاسف محدش اخد باله من النقطه دى---------------------------------------------------------

محتاجه اجابه ضرورى لأن الحلول اللى طرحت بعيد عن المطلوب

فى حد عنده طريقه اسهل

شكرا باشمهندسه حنان هو فعلا فى ربط بين الفورم الرئيسى والصب فورم ب id بس شيلته عشان هضطر اضيف جداول وفورم تانيه عشان يشتغل وهو هنا مش محل السؤال بصى بصراحه تسلم ايدك بس انا مش عايزه كل التغييرات اللى حصلت فى الفورم وكمان الاستعلامات كتير ياريت لو بالاكواد يكون افضل على فكره انا موضحه طلبى من الاول بالتفصيل بس ممكن حضرتك لم تنتبه الى كل مفرداته

حضرتك مشكور جدا قربت كتير للمطلوب بس جرب حضرتك تفضى كل حقول ال result بيدينى نتائج غير مكتمله لا انا عايزه فى حاله لو كل حقول result فاضيه يدينى رسالة (لايمكن الطباعه حيث لاتوجد نتائج مسجله ويرفض عملية الطباعه لان فى الحاله دى هيكون فى اهدار للورق ------------------------------------------------------------------------- يعنى انا قدام 3 حالات الاولى لو حقل result فاضى مع كل التحاليل تخرج رساله (لايمكن الطباعه حيث لاتوجد نتائج مسجله) ------------------------------------------------------------------------------ الحاله التانيه لو حقل result لتحليل واحد او اكتر مكتوب فيه قيمه ولكن باقى التحاليل لم تسجل قيمتها بعد (هنا تظهر رساله ( نتائج غير مكتمله هل تريد الطباعه نعم يطبع لا يكنسل ------------------------------------------------------------------------------------------------- الحاله التالته لو كل القيم مكتوبه يطبع بدون رساله ولكن فى حال تكرار الطباعه تظهر رساله تقول تمت الطباعه سابقا عدد كذا مره هل تريد الاستمرار نعم يطبع لا يكنسل

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

؟؟

عايزه عند الضغط على زرار طباعه لو حقل result (فاضى مع كل التحاليل تخرج رساله (لايمكن الطباعه حيث لاتوجد نتائج مسجله وعند وجود حقل او اكثر من result (به قيمه تخرج رساله( نتائج غير مكتمله هل تريد الطباعه نعم يطبع لا يكنسل وعند تكرار الطباعه تخرج رساله تمت الطباعه سابقا عدد كذا مره هل تريد الاستمرار نعم يطبع لا يكنسل New Microsoft Access Database.accdb

اعملى بقه افضل اجابه 😍

mm.mdb

If IsNull(Me.اسم الحقل) Then MsgBox "يجب كتابة الاسم" Cancel = True End If

طيب ممكن لينك الموضوع لو سمحت

ممكن تطبيق الكود دا على الملف On Error Resume Next Dim LogUser As New CUser If trycount > 3 Then MsgBox " من حُسن إسلام المرء تركه ما لا يعنيه", vbOKOnly + vbMsgBoxRight + vbInformation, "ÊÍÐíÑ !" MsgBox " سيتم إغلاق البرنامج الآن ،،، يرجى مراجعة المبرمج ", vbOKOnly + vbMsgBoxRight + vbInformation, "ÊÍÐíÑ !" DoCmd.Quit ElseIf IsNull(Me.user) Then MsgBox (" فضلاً يجب أن تقوم بإدخال اسم المستخدم ") Me.user.SetFocus ElseIf IsNull(Me.pass) Then MsgBox (" فضلاً يجب أن تقوم بإدخال كلمة السر ") Me.pass.SetFocus ElseIf Len(Trim(Me.pass)) > 20 Then MsgBox (" يجب ألا تتجاوز كلمة السر عشرين حرف أو رقم") Me.pass.SetFocus '------- للدخول لنموذج تفعيل والغاء الشيفت واخفاء واظهار الجداول --------- ElseIf [user] = "admin" And [pass] = "2015" Then DoCmd.Close DoCmd.OpenForm "MSysEdit" ElseIf [user] = "superadmin" And [pass] = "2015" Then DoCmd.Close DoCmd.OpenForm "Users Ability", acNormal '------- ------------- ------ ---------------------------------------------------- --------- Else LogUser.UserName = Me.user LogUser.pass = Me.pass If LogUser.Valid Then Set MyUser = LogUser DoCmd.Close DoCmd.OpenForm "F الرئيسى" Else MsgBox " اسم المستخدم أو كلمة السر غير صحيحة ،،، يرجى إعادة المحاولة ", vbOKOnly + vbMsgBoxRight + vbInformation, "تحذير !" trycount = trycount + 1 End If End If End Sub

طيب هل فى طريقه افضل لسد الثغرات @شايب

بحيث يتضمن الشروط الاتيه فى حاله تكرار ادخال الاسم او الباسورد اكتر من 6 مرات خطأ تخرج رساله انتهت فرصتك للدخول فى حاله كتابه الاسم والباسورد بطريقه صحيحه تظهر صوره قفل مفتوح بدلا من المغلق LOG IN.accdb

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

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

لما بفتح التقرير مباشرة بيفتح عادى لكن لما بفتحه بزرار معاينه بيدينى لون اصفر عالجزأ دا من الكود Me.A.Report.Visible = True