السلام عليكم ورحمة الله وبركاته
اخواني ... اقوم بعمل قاعدة بيانات بسيطة للمدرسة ...وعملت 4 جداول وهي تعمل بشكل صحيح عند الضغط على كلمة اضافة ...ما عدا احد الجداول فعندما اضغط على اضافة يظهر هذه الخطاء
run-timerror'3134':
خطاء في بناء الجملة insert into
وعندما اضغط على debug يظهر هذا السطر باللون الاصفر
DoCmd.RunSQL ("Insert Into schoolinfo (school , stage , tele , buliding , headmaster , address , site , email , classes , studno , date ) Values ( schooll , stagee , telee , bulidingg , headmasterr , addresss , sitee , emaill , classess , studnoo , datee ) ;")
فأين الخطاء لو سمحتوا..وهذا هو الكودر البرمجي كامل لامر add او اضافة
Private Sub add_Click()
If DLookup("school", "schoolinfo", "school='" & schooll & "'") = schooll Then
DoCmd.RunSQL ("Update schoolinfo Set school = schooll , stage = stagee , tele = telee , buliding = bulidingg , headmaster = headmasterr , address = addresss , site = sitee , email = emaill , classes = classess , studno = studnoo , date = datee " _
& " Where school ='" & schooll & "'")
Else
DoCmd.SetWarnings (False)
DoCmd.RunSQL ("Insert Into schoolinfo (school , stage , tele , buliding , headmaster , address , site , email , classes , studno , date ) Values ( schooll , stagee , telee , bulidingg , headmasterr , addresss , sitee , emaill , classess , studnoo , datee ) ;")
End If
Call cls_Click
End Sub
ارجو المساعدة ودمتم ملحوظة .. استخدم accessxp