السلام عليكم
هذا الكود عباره عن وصلة لفتح قاعدة بيانات بواسطة الاكسس تحتوي على ارقام وقد قمت بتغير نمط الارقام الى نص حتى يقبل الصفر وقمت بربط القاعدة مره ثانية واصبح البرنامج يعمل بشكل صحيح ماعده هذه الفورم تعطلت وظهر لي هذا الكود باللون الاصفر فأرجوا من الخبراء تصحيح هذا الكود
Set rs10 = New Recordset
rs10.Open "SELECT MFirstStageMarks.SCPR, SMaster.StudentName, MFirstStageMarks.Mark, MFirstStageMarks.StageID, MFirstStageMarks.ClassID, MFirstStageMarks.SubjectNo FROM SMaster INNER JOIN MFirstStageMarks ON SMaster.SCPR = MFirstStageMarks.SCPR WHERE (((MFirstStageMarks.SCPR)=" & SCPR.Text & ")" & " AND ((MFirstStageMarks.StageID)=" & StageID.Text & ")" & " AND ((MFirstStageMarks.ClassID)=" & txtClassID.Text & ")" & " AND ((MFirstStageMarks.SubjectNo)=" & SubjectNo.Text & "))", con1, adOpenStatic, adLockOptimistic
Set DataGrid2.DataSource = rs10
علما بأني غيرت حقل الارقام (SCPR)
ارجو التوضيح


