Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
syntax error 1
- Thread starter CHTHOMAS
- Start date
- Thread starter
- #3
- Thread starter
- #4
Sorry to trouble you again. Now Am getting the following error
Run time error 3061: too few parameters expected2.
Here is a sample of the code. I don't understand why the values are not getting passed into the function.
Public Sub Input_mas_tag(tmas_tag As String, tmas_tag1 As String)
Dim acad_txt_ent As Object
Dim rec As Recordset
Dim st As String
Dim col As Integer, row As Integer, count As Integer
Dim main_values As Variant
UserForm1.Hide
st = "select * from TAG_MASTER where ITAG = tmas_tag And STG1 = tmas_tag1"
' st = "select * from TAG_MASTER where ITAG = " + Chr(34) + tmas_tag + Chr(34) And STG1 = " + Chr(34) + tmas_tag1 + Chr(34)"
' st = "select * from TAG_MASTER where ITAG = " + Chr(34) + tmas_tag + Chr(34) + ";"
Set rec = db.OpenRecordset(st)
If rec.BOF = False Then
main_values = rec.GetRows(rec.RecordCount)
For Each acad_txt_ent In ThisDrawing.ModelSpace
If acad_txt_ent.EntityName = "AcDbText" Then
For count = 0 To UBound(main_values, 1) Step 1
If acad_txt_ent.TextString = rec.Fields(count).SourceField Then
If IsNull(main_values(count, 0)) = False Then
acad_txt_ent.TextString = main_values(count, 0)
Else
acad_txt_ent.TextString = "-"
End If
acad_txt_ent.Update
Exit For
End If
Next count
End If
Next
Else
MsgBox "no record found", vbOKOnly
End If
End Sub
Run time error 3061: too few parameters expected2.
Here is a sample of the code. I don't understand why the values are not getting passed into the function.
Public Sub Input_mas_tag(tmas_tag As String, tmas_tag1 As String)
Dim acad_txt_ent As Object
Dim rec As Recordset
Dim st As String
Dim col As Integer, row As Integer, count As Integer
Dim main_values As Variant
UserForm1.Hide
st = "select * from TAG_MASTER where ITAG = tmas_tag And STG1 = tmas_tag1"
' st = "select * from TAG_MASTER where ITAG = " + Chr(34) + tmas_tag + Chr(34) And STG1 = " + Chr(34) + tmas_tag1 + Chr(34)"
' st = "select * from TAG_MASTER where ITAG = " + Chr(34) + tmas_tag + Chr(34) + ";"
Set rec = db.OpenRecordset(st)
If rec.BOF = False Then
main_values = rec.GetRows(rec.RecordCount)
For Each acad_txt_ent In ThisDrawing.ModelSpace
If acad_txt_ent.EntityName = "AcDbText" Then
For count = 0 To UBound(main_values, 1) Step 1
If acad_txt_ent.TextString = rec.Fields(count).SourceField Then
If IsNull(main_values(count, 0)) = False Then
acad_txt_ent.TextString = main_values(count, 0)
Else
acad_txt_ent.TextString = "-"
End If
acad_txt_ent.Update
Exit For
End If
Next count
End If
Next
Else
MsgBox "no record found", vbOKOnly
End If
End Sub
- Thread starter
- #7
- Thread starter
- #8
And it's saying you have too few parameters??
Strange ...
Have you tried creating two variables and using those instead?
Dim strMas_tag as string
Dim strMas_tab1 as string
strMas_tag = txtMas_tag.text
strMas_tag1 = txtMas_tag1.text
ThisDrawing.Input_mas_tag strMas_tag, strMas_tag1
Although I can't see why it wouldn't be working
Transcend
![[gorgeous]](/data/assets/smilies/gorgeous.gif "[gorgeous] [gorgeous]")
Strange ...
Have you tried creating two variables and using those instead?
Dim strMas_tag as string
Dim strMas_tab1 as string
strMas_tag = txtMas_tag.text
strMas_tag1 = txtMas_tag1.text
ThisDrawing.Input_mas_tag strMas_tag, strMas_tag1
Although I can't see why it wouldn't be working
Transcend
- Thread starter
- #10
Blankblank
Programmer
if you are calling a function and sending parameters, there are 2 ways.
1. if function has only 1 parameter, use this
functionname parameter name
in this case,
ThisDrawing.Input_mas_tag txtMas_tag.Value
if ypu have multiple parameters, use "call" before the function name and enclose the parameters in ()
try it
1. if function has only 1 parameter, use this
functionname parameter name
in this case,
ThisDrawing.Input_mas_tag txtMas_tag.Value
if ypu have multiple parameters, use "call" before the function name and enclose the parameters in ()
try it
- Thread starter
- #13
Sorry. Still without a solution and getting the same error message too few parameters expected2 even after trying CALL before the function name and enclosing the parameters within (). I tried
call ThisDrawing.Input_mas_tag (strMas_tag, strMas_tag1)
call ThisDrawing.Input_mas_tag (strMas_tag, strMas_tag1)
-
1
- #14
Your parameters missing look like these:
st = "select * from TAG_MASTER where ITAG = tmas_tag And STG1 = tmas_tag1"
So:
st = "select * from TAG_MASTER where ITAG = '" & tmas_tag & "' And STG1 = '" & tmas_tag1 & "'"
Remove the single quotes if the fields are not text fields, but number fields instead
To catch an error like this it helps to put an error handler right inside the proceedure. Then you will see where the error is actually occuring - I suspect on the line:
Set rec = db.OpenRecordset(st)
st = "select * from TAG_MASTER where ITAG = tmas_tag And STG1 = tmas_tag1"
So:
st = "select * from TAG_MASTER where ITAG = '" & tmas_tag & "' And STG1 = '" & tmas_tag1 & "'"
Remove the single quotes if the fields are not text fields, but number fields instead
To catch an error like this it helps to put an error handler right inside the proceedure. Then you will see where the error is actually occuring - I suspect on the line:
Set rec = db.OpenRecordset(st)
molyprogrammer
Programmer
ok try this please
Private Sub cmdExit_Click()
call ThisDrawing.Input_mas_tag(txtMas_tag,txtMas_tag1)
End Sub
and please be sure of ur finction name
Private Sub cmdExit_Click()
call ThisDrawing.Input_mas_tag(txtMas_tag,txtMas_tag1)
End Sub
and please be sure of ur finction name
- Thread starter
- #17
- Status
Similar threads
- Locked
- Question
- Locked
- Question