Results 1 to 3 of 3
  1. #1
    Join Date
    Jan 2002
    Location
    London
    Posts
    73

    Unanswered: Runtime Error 3601 Too few parameters. Expected 1

    Hi,

    I'm using MS Access 2000 and i'm trying to run some code and a i get a runtime "Error 3601 Too few parameters. Expected 1" message box pop up. What does this error message mean? I have submitted my code could you have a look to see where i'm going wrong.

    Thankyou



    Sub JoiningFeePaid()


    Dim db As Database
    Dim rsTable As Recordset
    Dim iMem As Integer
    Dim iName As String
    Dim ivalue As Integer
    Dim iCount As Integer
    Dim sResults As String
    Set db = CurrentDb
    Set rsTable = db.OpenRecordset("tblMember", dbOpenDynaset)

    sResults = "SELECT tblMember.MemberID, tblMember.FirstName, tblMember.Surname, tblMember.JoinFeePaid FROM tblMember WHERE (((tblMember.MemberID)=[Forms]![frmLoanDetails]![cboMem]) AND ((tblMember.JoinFeePaid)=0));"
    Set rsTable = db.OpenRecordset(sResults, dbOpenDynaset) 'Line the error debug message appears'

    iMem = rsTable!MemberID





    If rsTable.RecordCount > 0 Then




    ivalue = MsgBox("Member" & iMem & vbCrLf & "have not paid there joing fee", vbOKOnly)

    End If
    rsTable.Close

    End Sub

  2. #2
    Join Date
    Sep 2004
    Posts
    36
    Try with this....

    sResults = "SELECT tblMember.MemberID, tblMember.FirstName, tblMember.Surname, tblMember.JoinFeePaid FROM tblMember WHERE (((tblMember.MemberID)=" & Form_frmLoanDetails.cboMem & ") AND ((tblMember.JoinFeePaid)=0));"

    Form_frmLoanDetails.cboMem.value or
    Form_frmLoanDetails.cboMem.cloumn(0) might also be used where the 0 is first column...
    Last edited by theJedi; 12-30-04 at 05:52.

  3. #3
    Join Date
    Jan 2002
    Location
    London
    Posts
    73

    Works

    Hi Jedi,

    Thanks for the code it works

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •