|
يوجد عندى حقول أخرى اريد اضافتها وعند استكمال الكود يعطى (error ) Private Sub عرض_AfterUpdate() |
| Select Case عرض |
| Case 1 |
| Me.RecordSource = "SELECT[Tbl_Employees].[No_System],[Tbl_Employees].[No_General],[Tbl_Employees].[Employee_Name],[Tbl_Employees].[CardNo],[Tbl_Employees].[VersionPlace],[Tbl_Employees].[CveDate], [Tbl_Employees].[DateNativity],[Tbl_Employees].[No_Nationality],[Tbl_Employees].[Emp_Sex], [Tbl_Employees].[mobile], [Tbl_Employees].[ConnHome],[Tbl_Employees].[gov],[Tbl_Employees].[city],[Tbl_Employees].[AddrsSub],[Tbl_Employees].[No_Qualification],[Tbl_Employees].[Date_Qualification], [Tbl_Employees].[No_Jobstatus], [Tbl_Employees].[Job_dt_end],[Tbl_Employees].[DateInstating],[Tbl_Employees].[unmarriedMarr],[Tbl_Employees].[No_Function],[Tbl_Employees].[WorkDo],[Tbl_Employees].[No_Funcc],[Tbl_Employees].[Degree],[Tbl_Employees].[Contract_Type],[Tbl_Employees].[Kind_activity],[Tbl_Employees].[Activity],[Tbl_Employees].[No_Branch],[Tbl_Employees].[No_Project],[Tbl_Employees].[No_Department],[Tbl_Employees].[Image_employee]FROM Tbl_Employees WHERE ((([Tbl_Employees].[Job_dt_end]) Is Null)); " |
| End Select |
| End Sub |
اريد استكمال هذا الكود فى محرر فيجوال بيسك
السلام علكيم و رحمة الله و بركاته
ارفق الملف أو مثال عنه
و بالتوفيق
السلام عليكم ورحمة الله وبركاته
ضع جملة SQL في استعلام وسيظهر لك مكان الخطأ ، لأنه احتمال أن يكون اسم احد الحقول خاطيء.
عدل هذا Case Is = 1
Case Is = 2
مثالك بدون جدول أو بيانات للتجربة 
الملف المرفق لا يحتوى على شئ مفيد يمكن أن يساعد فى الحل
كما قال الأخ superhot3000
جرب عبارة SQL فى استعلام وتأكد أنه يعمل ويمكن ادخال بيانات عليه
تأكد من النموذج الذى تعمل عليه تأكد من الخصائص Lock و Allow Additions و Allow Edits