تقسيم الكود على سطرين

conn.Execute "INSERT INTO UserData(UserID,UserName,UserPassWord,Out,Receved,Follow,Messg,Letter,Letter1,Gen,Sec,MOptions,MReports,MInbox,MSearchMessg,MBaseInfo,MEmployee,MUnit,MSubUnit,MSmallUnit,MUserGroup,MDegree,MRank,MOutUnit,MCities,MNational,Myears,MOutMessg,MInMessg,MDirMessg,MFollowMessg,MBackup,MDelData,MWatch,MSendMessg,MUserOnline) VALUES (" & Val(dataEmpNo.BoundText) & ",'" & txtName.Text & "', '" & txtUserPass.Text & "'," & chkOutV & "," & chkRecevedV & "," & chkFollowV & "," & chkMessgV & "," & chkLetterV & "," & chkLetter1V & "," & chkGenV & "," & chkSecV & "," & chkMOptionsV & "," & chkMReportsV & "," & chkMInboxV & "," & chkMSearchMessgV & "," & chkMBaseInfoV & "," & chkMEmployeeV & "," & chkMunitv & "," & chkMSubUnitV & "," & chkMSmallUnitV & "," & chkMUserGroupV & "," & chkMDegreeV & "," & chkMRankV & "," & chkMOutUnitV & "," & chkMCitiesV & "," & chkMNationalV & "," & chkMyearsV & "," & chkMOutMessgV & "," & chkMInMessgV & "," & chkMDirMessgV & "," & chkMFollowMessgV & "," & chkMSubUnitV &"," & chkMUserOnline & ")"

النرجسي كتب:

السلام عليكم ورحمة الله وبركاته

تحية طيبة وبعد

اخواني

لدي كود طويل ولايمكن كتابته على سطر واحد كيف يمكن تقسيمة على سطرين ؟؟ استخدمت ( _ ) ولكن لم تفدني حيث ظهر لدي خطأ وأظنني قد أخطأت في إدراجها بالشك

الكود

ل الصحيح

conn.Execute "INSERT INTO UserData(UserID,UserName,UserPassWord,Out,Receved,Follow,Messg,Letter,Letter1,Gen,Sec,MOptions,MReports,MInbox,MSearchMessg,MBaseInfo,MEmployee,MUnit,MSubUnit,MSmallUnit,MUserGroup,MDegree,MRank,MOutUnit,MCities,MNational,Myears,MOutMessg,MInMessg,MDirMessg,MFollowMessg,MBackup,MDelData,MWatch,MSendMessg,MUserOnline) VALUES (" & Val(dataEmpNo.BoundText) & ",'" & txtName.Text & "', '" & txtUserPass.Text & "'," & chkOutV & "," & chkRecevedV & "," & chkFollowV & "," & chkMessgV & "," & chkLetterV & "," & chkLetter1V & "," & chkGenV & "," & chkSecV & "," & chkMOptionsV & "," & chkMReportsV & "," & chkMInboxV & "," & chkMSearchMessgV & "," & chkMBaseInfoV & "," & chkMEmployeeV & "," & chkMunitv & "," & chkMSubUnitV & "," & chkMSmallUnitV & "," & chkMUserGroupV & "," & chkMDegreeV & "," & chkMRankV & "," & chkMOutUnitV & "," & chkMCitiesV & "," & chkMNationalV & "," & chkMyearsV & "," & chkMOutMessgV & "," & chkMInMessgV & "," & chkMDirMessgV & "," & chkMFollowMessgV & "," & chkMSubUnitV &"," & chkMUserOnline & ")"

أخي لتقسيم السطر الطويل إلى اكثر من سطر نستخدم فيه ( _ ) الشرطة السفلية Under Score

أنظر هذا

 Dim SQL As String


SQL = "INSERT INTO UserData(UserID,UserName,UserPassWord,Out,Receved,Follow, Messg,Letter,Letter1,"
SQL = SQL & " Gen,Sec,MOptions,MReports,MInbox,MSearchMessg,MBaseInfo,MEmployee, MUnit,MSubUnit,MSmallUnit,MUserGroup,MDegree,MRank,MOutUnit,MCities,MNational,Myears,MOutMessg, MInMessg,MDirMessg,MFollowMessg,MBackup,MDelData,MWatch,MSendMessg,MUserOnline)"
SQL = SQL & " VALUES (" & Val(dataEmpNo.BoundText) & ",'" & txtName.Text & "', '" & txtUserPass.Text & "'," & chkOutV _
& "," & chkRecevedV & "," & chkFollowV & "," & chkMessgV & "," & chkLetterV & "," & chkLetter1V & _
"," & chkGenV & "," & chkSecV & "," & chkMOptionsV & "," & chkMReportsV & "," & chkMInboxV & "," _
& chkMSearchMessgV & "," & chkMBaseInfoV & "," & chkMEmployeeV & "," & chkMunitv & "," _
& chkMSubUnitV & "," & chkMSmallUnitV & "," & chkMUserGroupV & "," & chkMDegreeV & "," & chkMRankV _
& "," & chkMOutUnitV & "," & chkMCitiesV & "," & chkMNationalV & "," & chkMyearsV & "," & chkMOutMessgV _
& "," & chkMInMessgV & "," & chkMDirMessgV & "," & chkMFollowMessgV & "," & chkMSubUnitV & "," & chkMUserOnline & ")"

conn.Execute SQL

تحياتي

تقسيم الكود على سطرين

مواضيع مشابهة