Error 3061 has occurred at run time. Few parameters. Expected 1

[EddyBohorquez]

Good morning I'm calling again about a problem with SELECT, please.

Set rs1 = DB.OpenRecordset("Select   [RADICADO], " _
                  & "[Cedula Cliente] FROM BaseDatosMatriz " _
                  & "where [CEDULA CLIENTE] = [Form]![CEDULA]")

HAVE LOOKED FOR IT AND ALL THE FIELDS ARE WELL SITUATED
BUT I DON'T KNOW. PLEASE IF YOU GIVE ME A HELP. THANK YOU
VERY MUCH.

  [RADICADO]           SHORT TEXT   FIELD SIZE  23
  [CEDULA CLIENTE ]    SHORT TEXT   FIELD SIZE  12
  CEDULA               SHORT TEXT   FIELD SIZE  12

Dim DB As Database
Dim rs As Recordset
Dim rs1 As Recordset
Set DB = CurrentDb
Set rs = DB.OpenRecordset("BaseDatosMatriz")
 
Set rs1 = DB.OpenRecordset("Select * ,[RADICADO], " _
& "[Cedula Cliente] FROM BaseDatosMatriz " _
& "where [CEDULA CLIENTE] = CEDULA")

[isladogs]

... "where [CEDULA CLIENTE] = '" & CEDULA & "'")

[twinnyfo]

Eddy,

A good practice to get into is to always declare a string variable for your SQL statement. This 1) allows you to evaluate the string for errors and 2) sometimes access doesn't like to include static/form references when you try to set a recordset that way. I would recommend something like this (including IslaDogs' correction):

Dim DB As Database
Dim rs As Recordset
Dim rs1 As Recordset
dim strSQL As String
 
strSQL = _
    "SELECT " & _
        "[RADICADO], " & _
        "[Cedula Cliente] " & _
    "FROM " & _
        "BaseDatosMatriz " & _
    "WHERE " & _
        "[CEDULA CLIENTE] = '" & [Form]![CEDULA] & ";"
 
Set DB = CurrentDb
Set rs = DB.OpenRecordset("BaseDatosMatriz")
Set rs1 = DB.OpenRecordset(strSQL)

Thus, at any point in your code, you could insert: Debug.Print strSQL and that value will be sent to your immediate window. You can then evaluate or copy and paste into your query editor to see how it works.

Hope that hepps!

[EddyBohorquez]

sla thank you very much, for that help, God bless you.
Also to Twinnyfo for advice on structuring the codes in an easy way to get the bugs.

thank you very much.
Eddy

[isladogs]

On behalf of us both, you're welcome