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

[jo_2010]

الخبراء الافاضل

ارجو التعديل على الكود

DoCmd.OpenForm "newPara", , , "[Pcode]=" & Me.PCode

If Me.TN.Caption = "Urine" Then
Forms![newpara].Urine.SetFocus

لحد هنا شغال تمام 

اريد بعد فتح تبويب urine

يقف المؤشر على حقل creat

   يعطى علامة صفراء         Forms![newpara]!creat.SetFocus  

 

[Foksh]

منذ ساعه, 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

 

[jo_2010]

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

[Foksh]

أخي @jo_2010 ارسل مرفق لتطبيق 
 

 

[jo_2010]

19 دقائق مضت, Foksh said:

أخي @jo_2010 ارسل مرفق لتطبيق 
 

 

مرفق مع صورة توضيحية

LAB_2024.rar

[Foksh]

أخي @jo_2010 

بعد الضغط على زر Creat ، سنختار اسم من النموذج الفرعي اللي على اليمين !! صح ؟

دلوقتي انتي عايز تفتح تبويب urine ولا Chemistry !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

وفي التبويب Urine ليس هناك حقل Creat 

 

[jo_2010]

منذ ساعه, Foksh said:

أخي @jo_2010 

بعد الضغط على زر Creat ، سنختار اسم من النموذج الفرعي اللي على اليمين !! صح ؟

دلوقتي انتي عايز تفتح تبويب urine ولا Chemistry !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

وفي التبويب Urine ليس هناك حقل Creat 

 

chemistry

تم تعديل April 25 بواسطه jo_2010

[Foksh]

لحد ما فهمت الدنيا عاملة ازاي في الملف قدرت اوصل للمطلوب 😅

في النموذج 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

 

[jo_2010]

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

[عبد اللطيف سلوم]

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

بدل اخر سطر