سؤل يا شباب في الإجرائات والدوال

أرجو الرد يا شباب

يا ريت لو توضح المطلوب اكثر من ذلك مع مثال لو امكن

السلام عليكم

اخي الكريم هل هذا ما تريد ?

  Private Sub Command1_Click()
	MsgBox AddNumbers(3, 2, 4, 1)
	sql = SQLUpDateTable("tablename", ToArray("id", "name", "age"), ToArray(1, "'Mo7eb Alrasool'", 26))
	MsgBox sql
End Sub


Function AddNumbers(ByVal nNumber As Double, ParamArray Numbers()) As Double
	Dim retValue As Double
	retValue = nNumber
	'اذا كان -1 يعني لم يمرر اي قيم
	'If UBound(Numbers) = -1 Then
	Dim Num
	'تستطيع ان تستخدم العناصر بهذه الطريقة
	For Each Num In Numbers
	   retValue = retValue + Val(Num)
	Next
	'او بهذه الطريقة
	For i = 0 To UBound(Numbers)
		retValue = retValue + Numbers(i)
	Next
	AddNumbers = retValue
End Function

Function SQLUpDateTable(ByVal lpTableName As String, FieldsNames(), FieldsValues()) As String
	Dim strSQL As String
	strSQL = "UpDate " + lpTableName + " Set "
	Dim ValuesLen, lpValue
	ValuesLen = IIf(IsArray(FieldsValues), UBound(FieldsValues), -1)
	For i = 0 To UBound(FieldsNames)
		If i > ValuesLen Then
		   lpValue = "NULL"
		Else
		   lpValue = FieldsValues(i)
		End If
		strSQL = strSQL + FieldsNames(i) & "=" & lpValue & IIf(i = UBound(FieldsNames), "", " , ")
	Next
	SQLUpDateTable = strSQL
End Function

Function ToArray(ParamArray Values()) As Variant()
	Dim retArray() As Variant
	ValuesLen = UBound(Values)
	If ValuesLen = -1 Then
	   ReDim retArray(0)
	Else
	   ReDim retArray(ValuesLen)
	   For i = 0 To ValuesLen
		   retArray(i) = Values(i)
	   Next
	End If
   ToArray = retArray
End Function

أيوه أخوي مشكور والله ...