16-02-20, 12:59 AM
السلام عليكم
لدى مشكلة وأرجو منكم التكرم بالمساعدة فى حلها
لدى كود لإنشاء حقول جديدة فى جدول بناء على حقول يتم إضافتها من المستخدم فى جدول أخر والكود مكتوب بلغة VBA ويعمل بصورة ممتازة وهو كالتالى
حيث حقل field_row ليست بوكس يتضمن كافة المدخلات من المستخدم ويتم تحويلها إضافتها كأعمدة جديدة فى جدول موجود بقاعدة البيانات
ولكن أريد التحويل الى فيجوال بيسك 2012 حيث أننى فى بداية تعلمى لهذه اللغة الجميلة
لدى مشكلة وأرجو منكم التكرم بالمساعدة فى حلها
لدى كود لإنشاء حقول جديدة فى جدول بناء على حقول يتم إضافتها من المستخدم فى جدول أخر والكود مكتوب بلغة VBA ويعمل بصورة ممتازة وهو كالتالى
كود :
Sub AlterTableX1()
Dim intLoop As Integer
Dim strSQL As String
Dim strSQL1 As String
For intLoop = 0 To Me.field_row.ListCount - 1
strSQL = "ALTER TABLE Emp_Sal ADD " & _
Me.field_row.Column(0, [intLoop]) & " LONG INTEGER"
CurrentProject.Connection.Execute strSQL
strSQL1 = "ALTER TABLE tbl_General ADD " & _
Me.field_row.Column(0, [intLoop]) & " LONG INTEGER"
CurrentProject.Connection.Execute strSQL1
Next intLoop
' MsgBox "تمت الإضافة بنجاح", vbOKOnly, "البرنامج "
End Sub
ولكن أريد التحويل الى فيجوال بيسك 2012 حيث أننى فى بداية تعلمى لهذه اللغة الجميلة