Run-time error '3061' to few parameters. expected 1

[fritz.panganiban]

Hi guys

Please help me figure out what's causing the error (Run-time error '3061' to few parameters. expected 1) on below code

Note that frmEditHere is a subform

Dim strSQL As String

strSQL = "UPDATE tblDatasheet " & _
    " SET DateLabel=" & IIf(Trim([frmEditHere]![txtDateLabel] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtDateLabel] & Chr(34)) & _
    ", MonthLabel=" & IIf(Trim([frmEditHere]![txtMonthLabel] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtMonthLabel] & Chr(34)) & _
    ", DayLable=" & IIf(Trim([frmEditHere]![txtDayLabel] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtDayLabel] & Chr(34)) & _
    ", YearLabel=" & IIf(Trim([frmEditHere]![txtYearLabel] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtYearLabel] & Chr(34)) & _
    ", TimeSpent=" & IIf(Trim([frmEditHere]![txtTimeSpent] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtTimeSpent] & Chr(34)) & _
    ", Analyst=" & IIf(Trim([frmEditHere]![txtAnalyst] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtAnalyst] & Chr(34)) & _
    ", StartTime=" & IIf(Trim([frmEditHere]![txtStartTime] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtStartTime] & Chr(34)) & _
    ", EndTime=" & IIf(Trim([frmEditHere]![txtEndTime] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtEndTime] & Chr(34)) & _
    ", Activity=" & IIf(Trim([frmEditHere]![txtActivity] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtActivity] & Chr(34)) & _
    ", IndustryCategory=" & IIf(Trim([frmEditHere]![txtIndustryCategory] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtIndustryCategory] & Chr(34)) & _
    ", IndustryType=" & IIf(Trim([frmEditHere]![txtIndustryType] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtIndustryType] & Chr(34)) & _
    ", WorkupType=" & IIf(Trim([frmEditHere]![txtWorkupType] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtWorkupType] & Chr(34)) & _
    ", SubActivity=" & IIf(Trim([frmEditHere]![txtSubActivity] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtSubActivity] & Chr(34)) & _
    ", AccountType=" & IIf(Trim([frmEditHere]![txtAccountType] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtAccountType] & Chr(34)) & _
    ", Region=" & IIf(Trim([frmEditHere]![txtRegion] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtRegion] & Chr(34)) & _
    ", CountryOfPolicy=" & IIf(Trim([frmEditHere]![txtCountryOfPolicy] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtCountryOfPolicy] & Chr(34)) & _
    ", DivisionNumber=" & IIf(Trim([frmEditHere]![txtDivisionNumber] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtDivisionNumber] & Chr(34)) & _
    ", InsuredName=" & IIf(Trim([frmEditHere]![txtInsuredName] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtInsuredName] & Chr(34)) & _
    ", Status=" & IIf(Trim([frmEditHere]![txtStatus] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtStatus] & Chr(34)) & _
    ", Count=" & IIf(Trim([frmEditHere]![txtCount] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtCount] & Chr(34)) & _
    ", Remarks=" & IIf(Trim([frmEditHere]![txtremarks] & "") = "", "NULL", Chr(34) & [frmEditHere]![txtremarks] & Chr(34)) & _
    " WHERE ID=" & frmEditHere!txtID
    
    CurrentDb.Execute strSQL, dbFailOnError

 

[plog]

Divide and conquer.

Comment out 1/2 that code and rerun--if it works the issue is in the commented out section, if not, its in the uncommented section. Keep commenting in half until you find the offender.

 

[Minty]

If frmEditHere is a subform I don't think you are referencing the form correctly - have a look here http://access.mvps.org/access/forms/frm0031.htm for the correct syntax depending on whee you are running it from.

 

[fritz.panganiban]

Divide and conquer.

Comment out 1/2 that code and rerun--if it works the issue is in the commented out section, if not, its in the uncommented section. Keep commenting in half until you find the offender.

I got it, error occurs under DayLabel since i have misspelled it.