كيف اضيف نفس البيانات لجدولين؟؟؟؟؟؟؟؟؟؟

لنفرض انه التكست الذي فيه رقم الموظف هو Text1

ضع في الزر الذي سوف تنتقل عن طريقه للفورم الثاني

هذا الكود ولنفرض ان الزر هذا اسمه Command1

[f=4][f=Green]
Private Sub Command1_Click()
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text2.Text)
Clipboard.Clear
Clipboard.SetText Text1.SelText

End Sub

[/f][/f]

في الفورم الثاني ضع في حدث Load

هذا الكود بحيث نفترض انه في هذا الفورم يخزن رقم الموظف في Text6

[f=4][f=Green]
Private Sub Form_Load()
Text6 = ""
Text6.SetFocus
SendKeys "+{INSERT}"
'هنا ينتقل المشيره الى الحقل الذي يلي رقم الموظف
'ولنفترض انه تكست7
Text7.SetFocus
End Sub

[/f][/f]

طبعا راح عندما تنقر على الزر ينسخ رقم الموظف وعند فتح

الثاني يقوم بالصقه في رقم الموظف فيه ثم ينتقل المشيره للحقل الذي يليه وبعدها اكمل ادخال بياناتك

امال ان يكون هو المطلوب

واخبرني بالنتيجه

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

شكراً لاخي / ابو فيصل

اخي VB2000

اتمنا ان يكون هذا المثل هو المطلوب

http://mypage.ayna.com/mesfer823/LGH.zip

المثال يعمل على الاكسيس 2000

وتقبل تحياتي / مسافر

MESFER2@HOTMAIL.COM

الاخ المسافر

ممكن المثال على اكسس 97 اذا ماعليك كلفه

الاخ VB2000

بالنسبه لمثالي السابق اذا كنت تستخدم فورم

من فجول بيسك لدخال بياناتك

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

اخي ابو فيصل تفضل المثال يعمل على الاكسيس 97

http://mypage.ayna.com/mesfer823/97.zip

وتقبل تحياتي / مسافر

mesfer2@hotmail.com

مكور احي المسافر

يعطيك العافيه

شكرا جزيلا لك يابوفيصل ويالمسافر وجزاكم الله كل خير

لكن عندي سؤال ثاني

اذا غيرت محتويات حقل فكيف اغير نفس المعلومه الموجوده في جدول اخرمرتبط به اتوماتيكيا؟؟؟

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

اخي VB200

الذي فهمة من سؤالك انك اذا غير رقم الموظف في جدول الموظفين فانه تريد تغييره في جدول الاجهزه اذا كان هذا ماتقصده فهذا المثال يعمل على الاكسيس 2000

حيث اذا غير رقم الموظف في جدول الموظفين فانه يتغير الرقم في جدول الاجهزه اتماتيك بشرط ان يكون الموظف له معلومات في جدول الاجهزه وهذا الرقم هو ((( الربط بين جدول الموظفين و جدول الاجهزه ))

اتمنا انوفقة في الاجابه

http://mypage.ayna.com/mesfer823/88888.zip

وتقبل تحياتي / مسافر

mesfer2@hotmail.com

شكرا لك اخي المسافر على تجاوبك معي.........

للاسف لم تعمل قاعده البيانات بالشكل المطلوب!!!!

ارجو منك ان تخبرني كيف اؤدي العمل حتى لا تتعب نفسك بانشاء

قاعده....

ملاحظه: لدي نفس القاعده والعلاقات Relationship محدده لكن التحديث الاوتوماتيكي لم يعمل

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

اخي VB2000

الملف المرفق في الرد السبق يعمل ولا يوجد اي مشكله في ذلك ولكن اذا اردت ان تعرف الطريق انضر الى تصميم الستعلام في نفس الملف (( اذا كان تقصد شي ثاني فرجو التوضيح اكثر ))

وتقبل تحياتي /مسافر

MESFER@HOTMAIL.COM