اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

السلام عليكم ورحمة الله تعالى وبركاته
هذا جزء من برنامج قمت بتصميمه للعمل ولكن ينقصنى نقل التركيز بحثت فى المنتدى ووجدت كود ولكن لا يعمل عندى لا اعلم السبب 
ما اريده الاتى 
- نقل التركيز من أحد مربعى التحرير والسرد "  comp_cn  ,  comp_sn "  الموجودين بالنموذج  "server_data"
وذلك بعد اختيار القيم المناسبة من احدهم ثم الضغط على المفتاح Enter من لوحة المفاتيح وذلك الى الحقل "In_shop_Date" فى النموذج  "frm_ndt_Main_Work"
واريد بعد إكمال البيانات فى النموذج الفرعى "  frm_sub_ndt_shop "
وبعد الضغط على الزر cmd_save ينتقل التركيز مرة اخرى الى  الحقل " comp_cn "  فى النموذج  "server_data" 

وتلك الصورة توضح الية العمل بناء على الشرح المسبق
test.gif.4e6600e2351d2f7ebafe2938106ef11
جزاكم الله خيرا :fff: واعتذر للاطالة والإثقال عليكم

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

production control system software(test).rar

قام بنشر

وعليكم السلام :rol:

 

لما تكون في نموذج/نموذج فرعي ، وتريد تنقل التركيز على حقل في نموذج/نموذج فرعي آخر ،

فيجب اولا ان تنقل التركيز على النموذج الرئيسي ، ثم التركيز على النموذج الفرعي ، ثم التركيز على الحقل المطلوب :rol:

 

لاحظ في هذا البرنامج:

كيف عملت الكود:

Forms!frm_Patient_Drugs.SetFocus
Forms!frm_Patient_Drugs!cmb_Patient_Name.SetFocus
    

.

ونفس الشئ اذا اردت ان تذهب الى سجل آخر/جديد :

'set the Focus on the Main Form, then the subform, then add a new Record, then transfer the DoseID
Forms!frm_Patient_Drugs.SetFocus
Forms!frm_Patient_Drugs!sfrm_Patient_Drugs.SetFocus
DoCmd.GoToRecord , , acNewRec
    

 

 

جعفر

  • Like 1
قام بنشر

وعليكم السلام ورحمة الله وبركاته

حاولت أنزل مرفق حضرتك لكن تصادفنى مشكلة فى التحميل ولا أدرى ما السبب 

ولكن عموما لنقل التركيز من فورم فرعى الى رئيسى أو العكس بيتم استخدام الوسيطة .Form  قبل اسم عنصر التحكم كأننا نتعامل مع نماذج منفصلة تماما , مثال :  A  فورم رئيسى  B  فورم فرعى A1  زر أمر على الفورم الرئيسى B1  زر أمر على الفورم الفرعى حتى نقوم بنقل التركيز الى B1  عند الضغط على زر A1  سنستخدم هذا الكود

Private Sub A1_Click()
Forms!A!B.Form.B1.SetFocus
End Sub

جربه لعله يجدى نفعا :biggrin:

  • Like 1
قام بنشر

آسف لم ألاحظ اجابة أستاذنا الغالى جعفر فكنت مشغول بكتابة الرد ........... 

وان علمت بها مسبقا لانسحبت وكفى الله المؤمنين شر القتال 

  • Like 1
قام بنشر

السلام عليكم ورحمة الله تعالى  وبركاته استاذ أبو عبدالله الحلوانى
لكل كل الشكر والتقدير 
:fff: ولكن لم تنفع تلك الطريقه يمكن لانى استخدم اصدار 2010 وكذلك format 2007-2010
 

قام بنشر (معدل)
6 ساعات مضت, jjafferr said:

وعليكم السلام :rol:

 

لما تكون في نموذج/نموذج فرعي ، وتريد تنقل التركيز على حقل في نموذج/نموذج فرعي آخر ،

فيجب اولا ان تنقل التركيز على النموذج الرئيسي ، ثم التركيز على النموذج الفرعي ، ثم التركيز على الحقل المطلوب :rol:

 

لاحظ في هذا البرنامج:

كيف عملت الكود:


Forms!frm_Patient_Drugs.SetFocus
Forms!frm_Patient_Drugs!cmb_Patient_Name.SetFocus
    

.

ونفس الشئ اذا اردت ان تذهب الى سجل آخر/جديد :


'set the Focus on the Main Form, then the subform, then add a new Record, then transfer the DoseID
Forms!frm_Patient_Drugs.SetFocus
Forms!frm_Patient_Drugs!sfrm_Patient_Drugs.SetFocus
DoCmd.GoToRecord , , acNewRec
    

جعفر

السلام عليكم ورحمة الله تعالى وبركاته
استاذى الحبيب  jjafferr :wub::clapping::clapping::clapping::wink2:
:fff:


ماذا اقول لك صرت لا اعرف ماذا اقول واصبح قلمى حائر بين السطور 
دائماً هي سطور الشكر والثناء تكون في غاية الصعوبة عند الصياغة
ربما لأنها تشعرنا دوماً ، بقصورها وعدم إيفائها حق من نهديه هذه الأسطر ..
واليوم تقف أمامي الصعوبة ذاتها
وانا أحاول صياغة كلمات شكر وتقدير للأستاذ الفاضل استاذى الحبيب  jjafferr 
تحية إجلال و احترام لمن علمنا كيف نغمس القلم في الحبر، لنرسم به السبيل في دجى الحياة  
علمنا كيف نفك طلاسيم الاكسس، و غرس في نفوسنا روح الحماس و التعاون و الإخلاص و كل القيم النبيلة
تحمل حماقاتنا و طيشنا الطفو لي ، و رحب بحماس الشباب فينا، فقابلنا بعطف الأب وحب الأخ و حلم المعلم 
فكان نعم السراج و القدوة والأذن الصاغية لأسئلتنا رغم سذاجة بعضها و تفاهتها
علمنا أولى الخطوات في درب المعرفة و العلم، نعم لن أوفيك حقك أيها الرجل العظيم ،
كلما تذكرتك أحسست بعجزي و عدم قدرتي على رد الجميل ،ولكنى أقف إجلالا و احتراما لك و تقديرا لمجهوداتك ،
بدوري أقف و انحني أمامك تعبيرا على سموك و عظمتك ، فأنت الساحر الذي حول عجزي إلى قدرة و ضعفي إلى قوة ، 

ظننت فى أحد الأيام أني لن أتعلم و كنت انت متيقنا أني سأنجح ، كم صححت أخطائي و أرشدتني ووجهتني نحو الطريق الصحيح ، اعترف لك أنك كنت بارعا و صبورا فماذا عساني أقول و الكلمات لا تكفي للجزاء ، سلمت يداك و جزاك الله كل الخير
تحية لكل من امتهن مهنة الصبر بامتياز.
تحية تقدير وإجلال 

 
تم تعديل بواسطه ابا جودى
  • Like 1
قام بنشر
4 ساعات مضت, ابا جودى said:

السلام عليكم ورحمة الله تعالى وبركاته
استاذى الحبيب  jjafferr :wub::clapping::clapping::clapping::wink2:
:fff:


ماذا اقول لك صرت لا اعرف ماذا اقول واصبح قلمى حائر بين السطور 
دائماً هي سطور الشكر والثناء تكون في غاية الصعوبة عند الصياغة
ربما لأنها تشعرنا دوماً ، بقصورها وعدم إيفائها حق من نهديه هذه الأسطر ..
واليوم تقف أمامي الصعوبة ذاتها
وانا أحاول صياغة كلمات شكر وتقدير للأستاذ الفاضل استاذى الحبيب  jjafferr 
تحية إجلال و احترام لمن علمنا كيف نغمس القلم في الحبر، لنرسم به السبيل في دجى الحياة  
علمنا كيف نفك طلاسيم الاكسس، و غرس في نفوسنا روح الحماس و التعاون و الإخلاص و كل القيم النبيلة
تحمل حماقاتنا و طيشنا الطفو لي ، و رحب بحماس الشباب فينا، فقابلنا بعطف الأب وحب الأخ و حلم المعلم 
فكان نعم السراج و القدوة والأذن الصاغية لأسئلتنا رغم سذاجة بعضها و تفاهتها
علمنا أولى الخطوات في درب المعرفة و العلم، نعم لن أوفيك حقك أيها الرجل العظيم ،
كلما تذكرتك أحسست بعجزي و عدم قدرتي على رد الجميل ،ولكنى أقف إجلالا و احتراما لك و تقديرا لمجهوداتك ،
بدوري أقف و انحني أمامك تعبيرا على سموك و عظمتك ، فأنت الساحر الذي حول عجزي إلى قدرة و ضعفي إلى قوة ، 

ظننت فى أحد الأيام أني لن أتعلم و كنت انت متيقنا أني سأنجح ، كم صححت أخطائي و أرشدتني ووجهتني نحو الطريق الصحيح ، اعترف لك أنك كنت بارعا و صبورا فماذا عساني أقول و الكلمات لا تكفي للجزاء ، سلمت يداك و جزاك الله كل الخير
تحية لكل من امتهن مهنة الصبر بامتياز.
تحية تقدير وإجلال 

 

 

شكرا جزيلا على هذا الإطراء :rol:

 

ماشاء الله عليك نفخت ونفخت فيني ، والآن اصبحت زي البالونه :rol:

 

المهم ، هل عملت معاك الطريقة؟

 

جعفر

  • Like 3
قام بنشر
3 ساعات مضت, jjafferr said:

 

شكرا جزيلا على هذا الإطراء :rol:

 

ماشاء الله عليك نفخت ونفخت فيني ، والآن اصبحت زي البالونه :rol:

 

المهم ، هل عملت معاك الطريقة؟

 

جعفر

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

قام بنشر
19 ساعات مضت, jjafferr said:

الحمدلله :rol:

 

في ١٣‏/٣‏/٢٠١٦ at 07:16, ابا جودى said:

السلام عليكم ورحمة الله تعالى وبركاته

 

في ١٢‏/٣‏/٢٠١٦ at 00:36, أبو عبدالله الحلوانى said:

جربه لعله يجدى نفعا :biggrin:

السلام عليكم و رحمة الله و بركاته ...

في الحقيقة لم يعمل اي من الاكواد السابقة ... :blink:

فقط هذا الكود ... 

Forms!a!b.SetFocus
Forms!a!b.Form.Controls!a1.SetFocus

 

قام بنشر
11 ساعات مضت, karrar sabry said:

 

 

السلام عليكم و رحمة الله و بركاته ...

في الحقيقة لم يعمل اي من الاكواد السابقة ... :blink:

فقط هذا الكود ... 


Forms!a!b.SetFocus
Forms!a!b.Form.Controls!a1.SetFocus

 

اتفضل هذا تطبيقى على نقل التركيز
ويتم نقل التركيز من نموذج فرعى الى نموذج رئيسى ثم الى نموذج فرعى ثانى ثم الى النموذج الفرعى الاول

نقل التركيز.rar

  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information