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

[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]

  في 25‏/4‏/2024 at 09:15, jo_2010 said:

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

 

Expand  

جرب هذا التصحيح أخي @jo_2010 :-
 

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

 

[jo_2010]

  في 25‏/4‏/2024 at 10:26, Foksh said:

Forms![newpara].Urine![creat].SetFocus
End If

Expand  

  في 25‏/4‏/2024 at 10:26, Foksh said:

جرب هذا التصحيح أخي @jo_2010 :-
 

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

 

Expand  

اعطانى هذا الخطاء معلمى الفاضلFoksh

[Foksh]

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

 

[jo_2010]

  في 25‏/4‏/2024 at 10:35, Foksh said:

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

 

Expand  

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

LAB_2024.rarFetching info...

[Foksh]

أخي @jo_2010 

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

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

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

 

[jo_2010]

  في 25‏/4‏/2024 at 11:24, Foksh said:

أخي @jo_2010 

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

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

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

 

Expand  

chemistry

تم تعديل أبريل 25, 2024 بواسطه 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]

  في 25‏/4‏/2024 at 14:05, 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

 

Expand  

 

 

 

شكرا لحضرتك

تم تعديل أبريل 25, 2024 بواسطه jo_2010

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

  في 25‏/4‏/2024 at 09:15, 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  

 

Expand  

جرب ضع 

me.creat.setfoucus

بدل اخر سطر