VBA code

[Kundan]

The Following is giving too few arguments error:
Dim dbs As DAO.Database
Dim rst As DAO.Recordset2


'Get the database, recordset, and attachment field
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT EMAIL, NM FROM [Tbl_Personal] WHERE [NM]= BE")
strPassword = rst("EMAIL")
17 rst.Close
18 CurrentDb.Close


The table Tbl_Personal has 2 fields NM & EMAIL. BE is a string stored in NM.

[OBP]

Well I prefer to use a string variable to hold the SQL for the recordset.
ie

Dim rs As Object

Dim SQL As String



SQL = "SELECT Que_CallNumber.* " & _

"FROM Que_CallNumber " & _

"WHERE DealerCode = " & Me.Dealercode

Set rs = CurrentDb.OpenRecordset(SQL)



The other problem could be that it is not treating BE as a string and you may have to change it in to one using code like.
"WHERE DealerCode = '" & Me.Dealercode & "'"

[Kundan]

Well I prefer to use a string variable to hold the SQL for the recordset.
ie

Dim rs As Object

Dim SQL As String



SQL = "SELECT Que_CallNumber.* " & _

"FROM Que_CallNumber " & _

"WHERE DealerCode = " & Me.Dealercode

Set rs = CurrentDb.OpenRecordset(SQL)



The other problem could be that it is not treating BE as a string and you may have to change it in to one using code like.
"WHERE DealerCode = '" & Me.Dealercode & "'"


Thanks a Lot!!! GOD BLESS YOU!!!