jo_2010 قام بنشر April 25 مشاركة قام بنشر April 25 الخبراء الافاضل ارجو التعديل على الكود DoCmd.OpenForm "newPara", , , "[Pcode]=" & Me.PCode If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus لحد هنا شغال تمام اريد بعد فتح تبويب urine يقف المؤشر على حقل creat يعطى علامة صفراء Forms![newpara]!creat.SetFocus 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 25 مشاركة قام بنشر April 25 منذ ساعه, jo_2010 said: يعطى علامة صفراء Forms![newpara]!creat.SetFocus جرب هذا التصحيح أخي @jo_2010 :- If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus Forms![newpara].Urine![creat].SetFocus End If رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر April 25 الكاتب مشاركة قام بنشر April 25 3 دقائق مضت, Foksh said: Forms![newpara].Urine![creat].SetFocus End If 7 دقائق مضت, Foksh said: جرب هذا التصحيح أخي @jo_2010 :- If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus Forms![newpara].Urine![creat].SetFocus End If اعطانى هذا الخطاء معلمى الفاضلFoksh رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 25 مشاركة قام بنشر April 25 أخي @jo_2010 ارسل مرفق لتطبيق رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر April 25 الكاتب مشاركة قام بنشر April 25 19 دقائق مضت, Foksh said: أخي @jo_2010 ارسل مرفق لتطبيق مرفق مع صورة توضيحية LAB_2024.rar رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 25 مشاركة قام بنشر April 25 أخي @jo_2010 بعد الضغط على زر Creat ، سنختار اسم من النموذج الفرعي اللي على اليمين !! صح ؟ دلوقتي انتي عايز تفتح تبويب urine ولا Chemistry !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! وفي التبويب Urine ليس هناك حقل Creat رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر April 25 الكاتب مشاركة قام بنشر April 25 (معدل) منذ ساعه, Foksh said: أخي @jo_2010 بعد الضغط على زر Creat ، سنختار اسم من النموذج الفرعي اللي على اليمين !! صح ؟ دلوقتي انتي عايز تفتح تبويب urine ولا Chemistry !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! وفي التبويب Urine ليس هناك حقل Creat chemistry تم تعديل April 25 بواسطه jo_2010 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر April 25 أفضل إجابة مشاركة قام بنشر April 25 لحد ما فهمت الدنيا عاملة ازاي في الملف قدرت اوصل للمطلوب 😅 في النموذج NewPU > في الزرار U حط الكود ده Private Sub U_Click() DoCmd.OpenForm "newPara", , , "[Pcode]=" & Me.PCode If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus Forms![newpara]!Normal.SetFocus ElseIf Me.TN.Caption = "Creat" Then Forms![newpara].Chemistry.SetFocus DoCmd.GoToControl "Creat_Print" ElseIf Me.TN.Caption = "Lipids" Then Forms![newpara]!Cholesterol.SetFocus ElseIf Me.TN.Caption = "Liver" Then Forms![newpara]!ALT(SGPT).SetFocus End If End Sub رابط هذا التعليق شارك More sharing options...
jo_2010 قام بنشر April 25 الكاتب مشاركة قام بنشر April 25 (معدل) 1 ساعه مضت, Foksh said: لحد ما فهمت الدنيا عاملة ازاي في الملف قدرت اوصل للمطلوب 😅 في النموذج NewPU > في الزرار U حط الكود ده Private Sub U_Click() DoCmd.OpenForm "newPara", , , "[Pcode]=" & Me.PCode If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus Forms![newpara]!Normal.SetFocus ElseIf Me.TN.Caption = "Creat" Then Forms![newpara].Chemistry.SetFocus DoCmd.GoToControl "Creat_Print" ElseIf Me.TN.Caption = "Lipids" Then Forms![newpara]!Cholesterol.SetFocus ElseIf Me.TN.Caption = "Liver" Then Forms![newpara]!ALT(SGPT).SetFocus End If End Sub شكرا لحضرتك تم تعديل April 25 بواسطه jo_2010 1 رابط هذا التعليق شارك More sharing options...
عبد اللطيف سلوم قام بنشر April 25 مشاركة قام بنشر April 25 6 ساعات مضت, jo_2010 said: الخبراء الافاضل ارجو التعديل على الكود DoCmd.OpenForm "newPara", , , "[Pcode]=" & Me.PCode If Me.TN.Caption = "Urine" Then Forms![newpara].Urine.SetFocus لحد هنا شغال تمام اريد بعد فتح تبويب urine يقف المؤشر على حقل creat يعطى علامة صفراء Forms![newpara]!creat.SetFocus جرب ضع me.creat.setfoucus بدل اخر سطر رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان