طلب كود استدعاء حقل من جدول الرواتب

[عمر ضاحى]

السلام عليكم 

كنت محتاج كود لنموذج غير منضم 

الكود يستدعيلى قيمة الراتب من جدول الرواتب 

اسم الجدول     tblSalary

اسم الحقل ال فيها القيمه BasicSalary

المرجع هو رقم الموظف وده بختاره من قائمة فى النموذج هذه القائمه اسمها CbEmpNo

 

جربت هذا 

 

Dim str2 As String
str2 = "Select * from tblSalary "
Me.RecordSource = str2
str2 = "Select * from tblSalary where [IDSalary]=" & Me.CbEmpNo.Column(0)
Me.txtbascSalary = Me.CbEmpNo.Column(1)

 

 

لكن هذا لا يعمل معى لا ادري ليه

تم تعديل يوليو 18, 2021 بواسطه عمر ضاحى

[Eng.Qassim]

شوف المثال .. استخدمت Dlookup

salary.accdb

[عمر ضاحى]

51 دقائق مضت, Eng.Qassim said:

شوف المثال .. استخدمت Dlookup

 

salary.accdb 848 kB · 0 downloads

والله لا اعرف كيف ان اعطيك حقك ومعروفك معى ومع غيري

الف الف شكر وجعلك الله من المغفور لهم فى هذه الايام المباركه 

 

 

 

[Eng.Qassim]

10 minutes ago, عمر ضاحى said:

والله لا اعرف كيف ان اعطيك حقك ومعروفك معى ومع غيري

الف الف شكر وجعلك الله من المغفور لهم فى هذه الايام المباركه 

 

 

 

لا معروف ولا اي شي .. الشكر لله اولا ولهذا المنتدى ثانيا