osn قام بنشر يونيو 11 قام بنشر يونيو 11 عندى جدول للموظفين وجدول للحوافز وهناك حقل مشترك فى الجدولين اللى هو حقل الوظيفة عملت استعلام واضفت فيه كل الحقول محتاج لما اختار الوظيفة يستدعى قيم الحوافز والمكافأت من جدول الحوافز برنامج الحد الادنى.rar
safaa salem5 قام بنشر يونيو 11 قام بنشر يونيو 11 1 hour ago, osn said: عندى جدول للموظفين وجدول للحوافز وهناك حقل مشترك فى الجدولين اللى هو حقل الوظيفة عملت استعلام واضفت فيه كل الحقول محتاج لما اختار الوظيفة يستدعى قيم الحوافز والمكافأت من جدول الحوافز برنامج الحد الادنى.rar 41.19 kB · 3 downloads يمكنك استخدام الحقل المشترك بين جدول الموظفين وجدول الحوافز لاستدعاء قيم الحوافز والمكافآت عند اختيار وظيفة محددة. يمكنك استخدام حدث "بعد تحديد" لعنصر التحكم المرتبط بحقل الوظيفة في النموذج أو الاستعلام لتنفيذ الكود اللازم. فيما يلي مثال لكود VBA يستدعي قيم الحوافز والمكافآت المتعلقة بالوظيفة المحددة: ```vba Private Sub JobComboBox_AfterUpdate() Dim job As String Dim bonus As Double Dim reward As Double job = Me.JobComboBox.Value ' تعيين اسم الجدول وحقل الحافز وحقل المكافأة حسب اسم الجدول الخاص بك Dim tableName As String Dim bonusField As String Dim rewardField As String tableName = "اسم_الجدول" bonusField = "حقل_الحوافز" rewardField = "حقل_المكافأة" ' استعلام لاسترداد قيم الحافز والمكافأة المتعلقة بالوظيفة المحددة Dim strSQL As String strSQL = "SELECT " & bonusField & ", " & rewardField & " FROM " & tableName & " WHERE وظيفة = '" & job & "'" ' تنفيذ الاستعلام واسترداد القيم Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(strSQL) If Not rs.EOF Then bonus = rs.Fields(bonusField).Value reward = rs.Fields(rewardField).Value Else bonus = 0 reward = 0 End If rs.Close Set rs = Nothing ' تعيين قيم الحافز والمكافأة لحقول المستند Me.BonusTextBox.Value = bonus Me.RewardTextBox.Value = reward End Sub ``` يرجى استبدال "اسم_الجدول" بالاسم الصحيح لجدول الحوافز واستبدال "حقل_الحوافز" و "حقل_المكافأة" بأسماء الحقول الصحيحة في جدول الحوافز
osn قام بنشر يونيو 11 الكاتب قام بنشر يونيو 11 منذ ساعه, safaa salem5 said: يمكنك استخدام الحقل المشترك بين جدول الموظفين وجدول الحوافز لاستدعاء قيم الحوافز والمكافآت عند اختيار وظيفة محددة. يمكنك استخدام حدث "بعد تحديد" لعنصر التحكم المرتبط بحقل الوظيفة في النموذج أو الاستعلام لتنفيذ الكود اللازم. فيما يلي مثال لكود VBA يستدعي قيم الحوافز والمكافآت المتعلقة بالوظيفة المحددة: ```vba Private Sub JobComboBox_AfterUpdate() Dim job As String Dim bonus As Double Dim reward As Double job = Me.JobComboBox.Value ' تعيين اسم الجدول وحقل الحافز وحقل المكافأة حسب اسم الجدول الخاص بك Dim tableName As String Dim bonusField As String Dim rewardField As String tableName = "اسم_الجدول" bonusField = "حقل_الحوافز" rewardField = "حقل_المكافأة" ' استعلام لاسترداد قيم الحافز والمكافأة المتعلقة بالوظيفة المحددة Dim strSQL As String strSQL = "SELECT " & bonusField & ", " & rewardField & " FROM " & tableName & " WHERE وظيفة = '" & job & "'" ' تنفيذ الاستعلام واسترداد القيم Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset(strSQL) If Not rs.EOF Then bonus = rs.Fields(bonusField).Value reward = rs.Fields(rewardField).Value Else bonus = 0 reward = 0 End If rs.Close Set rs = Nothing ' تعيين قيم الحافز والمكافأة لحقول المستند Me.BonusTextBox.Value = bonus Me.RewardTextBox.Value = reward End Sub ``` يرجى استبدال "اسم_الجدول" بالاسم الصحيح لجدول الحوافز واستبدال "حقل_الحوافز" و "حقل_المكافأة" بأسماء الحقول الصحيحة في جدول الحوافز أستأذن حضرتك تنفذ الكود فى البرنامج المرفق
ابو جودي قام بنشر يونيو 11 قام بنشر يونيو 11 5 ساعات مضت, osn said: عندى جدول للموظفين وجدول للحوافز وهناك حقل مشترك فى الجدولين اللى هو حقل الوظيفة عملت استعلام واضفت فيه كل الحقول محتاج لما اختار الوظيفة يستدعى قيم الحوافز والمكافأت من جدول الحوافز هل تريد مجرد الاجابة للوضع الحالى لقاعدتك ام تريد النصيحة لعمل ذلك بالشكل الصحيح و الاحترافى كما ينبغى ان يكون لاضفاء المرونة والاحترافية فى التعامل ومعالجة البيانات ؟! لن اضع الاجابة قبل ردكم
osn قام بنشر يونيو 11 الكاتب قام بنشر يونيو 11 48 دقائق مضت, ابو جودي said: هل تريد مجرد الاجابة للوضع الحالى لقاعدتك ام تريد النصيحة لعمل ذلك بالشكل الصحيح و الاحترافى كما ينبغى ان يكون لاضفاء المرونة والاحترافية فى التعامل ومعالجة البيانات ؟! لن اضع الاجابة قبل ردكم اللى شايفه حضرتك صح .. لانه لسة انا فى بداية انشاء البرنامج 1
ابو جودي قام بنشر يونيو 11 قام بنشر يونيو 11 اليك النصائح الاتية وهى مهمه طالما انت فى البدايات 1- اختر للجداول دائما وباقى العناصر والكائنات اسماء مختصرة تدل على وظيفتها 2-استعمل اختصارات البادئات المتعارف عليها قدر الامكان مثل Table=tbl Form=frm Query=qry Module=bas وسوف ارفق لك ملف كنت حاولت جاهدا تجميعه قبل فترة هذه الاختصارات اثناء التعامل مع الاكواد تجعلك على دراية بما تتعامل معه بسهولة وتجعل اى مطور نظم ان كنتم تعملون فى مجموعة عمل سهولة فهم الية الاكواد وتتبع المشروع ومعك انت شخصيا انت الان وقت التصميم تكون على دراية بكل صغيرة وكبيرة ولكن بعد فترة سوف تنسى كل شئ هذه البادئات تجعلك دائما على دراية مع ماذا تتعامل من العناصر والكائنات المختلفة فتسهل عليك مراجعة وتتبع وتذكر الاكواد والية العمل 3- دائما لا تبخل على نفسك فى استخدام الجداول المساعدة التى تغنيك عن فتح التصميم مستقبلا لاضافة شئ او حذف وتعديل شئ على سبيل المثال وليس الحصر الاولى بك فى قاعدتك الحالية عمل جدول للوظائف بدلا من كتابة الوظائف فى حقل واحد بهذه الطريقة اقتباس "معلم مساعد";"معلم";"معلم أول";"معلم أول أ";"معلم خبير";"معلم كبير" مستقبلا لو اردت تغير اسم وظيفه او اضافتها لابد لك من الدخول الى التصميم وناهيك عن المشاكل التى لا حصر لها لو اردت تغير مسمى مثلا وانت تعتمد فى الاكواد على هذا المسمى دعنى اعيد بناء قاعدتك بالشكل الامثل من وجهة نظرى المتواضعة وانت اكمل باقى خطاك فى هذا الدرب بناء على ما اقدمه اليكم اولا اليك الاختصارات المتعارف عليها بين مطورى النظم والمبرمجين فى ملف نصى prefix.zip
osn قام بنشر يونيو 11 الكاتب قام بنشر يونيو 11 2 ساعات مضت, ابو جودي said: اليك النصائح الاتية وهى مهمه طالما انت فى البدايات 1- اختر للجداول دائما وباقى العناصر والكائنات اسماء مختصرة تدل على وظيفتها 2-استعمل اختصارات البادئات المتعارف عليها قدر الامكان مثل Table=tbl Form=frm Query=qry Module=bas وسوف ارفق لك ملف كنت حاولت جاهدا تجميعه قبل فترة هذه الاختصارات اثناء التعامل مع الاكواد تجعلك على دراية بما تتعامل معه بسهولة وتجهل اى مطور نظم ان كنتم تعملون فى مجموعة عمل سهولة فهم الية الاكواد وتتبع المشروع ومعك انت شخصيا انت الان وقت التصميم تكون على دراية بكل صغيرة وكبيرة ولكن بعد فترة سوف تنسى كل شئ هذه البادئات تجعلك دائما على دراية مع ماذا تتعامل من العناصر والكائنات المختلفة 3- دائما لا تبخل على نفسك فى استخدام الجداول المساعدة التى تغنيك عن فتح التصميم مستقبلا لاضافة شئ او حذف وتعديل شئ على سبيل المثال وليس الحصر الاولى بك فى قاعدتك الحالية عمل جدول للوظائف بدلا من طتباة الوظائف فى حقل واحد بهذه الطريقة مستقبلا لو اردت تغير اسم وظيفه او اضافتها لابد لك من الدخول الى التصميم وناهيك عن المشاكل التى لا حصر لها لو اردت تغير مسمى مثلا وانت تعتمد فى الاكواد على هذا المسمى دعنى اعيد بناء قاعدتك بالشكل الامثل من وجهة نظرى المتواضعة وانت اكمل باقى خطاك فى هذا الدرب بناء على ما اقده اليكم اولا اليك الاختصارات المتعارف عليها بين مطورى النظم والمبرمجين فى ملف نصى prefix.zip 1.83 kB · 4 downloads يعنى حضرتك هتعملى المطلوب دلوقتى ولا ايه 2
ابو جودي قام بنشر يونيو 11 قام بنشر يونيو 11 انظر الى القاعدة الان هذا البناء الافضل اكمل باقى الجداول على هذا المنوال ومن ثم نكمل المراد خطوة بعد خطوة برنامج الحد الادنى (V. 2) .accdb
ابو جودي قام بنشر يونيو 11 قام بنشر يونيو 11 41 دقائق مضت, osn said: يعنى حضرتك هتعملى المطلوب دلوقتى ولا ايه نصيحتى اليك لا تسعى ان يقدم احد اليكم الحل ولكن اسعى جااهدا لتعلم كيف يتم الحل لا تطلب سمكة بل اطلب ان تتعلم كيف تصطادها بنفسك 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.