اريد اذا ادخلت اسم الموظف تتعباء الحقول الاخرى ببقية بياناته

اخي / at_aziz

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

يوجد لديك تكرار في بعض الحقول بالجدولين لا اعتقد بانك بحاجة اليها قمت بحذفها ( بعد اذنك )

تم تعيين حقل الرقم كمفتاح اساسي لان رقم الموظف لا يمكن ان يتكرر وستتم العملية باختيار الرقم ومن ثم تعبأ البيانات باستخدام الاكمال التلقائي

تفضل المرفق

وبالتوفيق

az.rar

بارك الله فيك اخي يوسف على هذه الطريقة

ايضا هناك طريقة ثانية بدون تغيير اي شيء فقط من خلال اختيار الإسم من مربع التحرير والسرد وسيتم تعبئة البيانات مباشرة

za_az_up.rar

الاخ الفاضل/يوسف احمد

الاخت الفاضلة /زهره

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

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

هذا هو المطلوب بارك الله فيكم

لكن اختي زهر ه كيف اللغي رسالة الالحاق التي تظهر لي بحيث اني من اختار الاسم تتعباء البيانات على طول بدون ظهور رسالة طلبب الالحاق

ارجو الافاده

شكرا شكرا شكرا لكم جميعا

تحياتي واحترامي

اخي الفاضل

افتح النموذج FSHH في وضع التصميم

اضغط على المفتاحين ALT + F11 وستجد نفسك في محرر الفيجول بيسك

استبدل الكود الموجود لديك بهذا الكود الجديد

Private Sub Cboname_AfterUpdate()
DoCmd.SetWarnings False
Dim strSQL As String
strSQL = "INSERT INTO TSHH ( name, naber, retbah, wehdah )SELECT TSH.name, TSH.naber, TSH.retbah, TSH.wehdah FROM TSH WHERE (((TSH.name)=[forms]![FSHH]![CboName]));"
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
Me.Requery
End Sub

الشيء الذي تغير في الكود الجديد هو اننا اضفنا هذه العباره في بداية الكود لإيقاف تحذيرات الإستعلامات

DoCmd.SetWarnings False

واضفنا هذه العبارة في نهاية الكود لتفعيل تحذيرات الإستعلامات

DoCmd.SetWarnings True

اذا رغبت في اضافة هذه العبارتين فقط لدينا كما في الكود الجديد فلا يوجد مشكله

السلام عليكم

الاخ الكريم

طبعا حلول ولا أجمل من كده

الاخت المبدعة زهرة والاخ المبدع يوسف قدموا حلول رائعة جدا جدا جدا

وده حل بسيط يعتمد علي فكرة الاعمدة Coulmn بمربع السرد ( Combo box ) حيث تم اضافة حقول الي مصدر بيانات المربع وتم زيادة Coulmn Count الي 4 واعادة تنسيق عرض العمود Coulmn Widths كذلك تم تغيير اسم مربع النص Name الي NameX وذلك لان الاسم الاول مستخدم من قبل الفيجوال ويعتبر محجوز فلا ينصح باستخدام الثوابت كأسماء للحقول مثل Name ,Date ,In,Avarage,Sin,Cos,ABS,INT

اخوك فى الله

azBB.rar

بارك الله فيك وجزاك الله خير اختي الكريمه زهره

لقد انحلت المشكله الله يبيض وجهك

الاخ الفاضلahamied

بارك الله فيك وجزاك الله خير

مداخلتك اكثر من رائعه

لقد ابدعتوا في حلولكم الله يجزاكم خير

شكرا شكرا شكرا لكم جميعا

تحياتي واحترامي