Re: [MS_AccessPros] Re: Open a recordset question

 

Jim,

Please reply with your code and the line that is causing the issue or we can't help you.

Duane

---

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Jim Wagner luvmymelody@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Tuesday, February 19, 2019 3:04 PM
To: winberry.doyce@con-way.com [MS_Access_Professionals]
Subject: Re: [MS_AccessPros] Re: Open a recordset question

 

I get an compile error sub or function not defined

Jim Wagner

---

On Tuesday, February 19, 2019, 1:10:18 PM MST, winberry.doyce@con-way.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:

 

Jim,

Try putting Debug.print strSQL right under your SQL statement. Then you can see how Access is interpreting your SQL statement. It will show in the immediate window. I suspect you need to change your where statement to something like this depending on what type of data is in your txtPosCd on your form.

WHERE (((AccountCodesForTimesheets.[Position Nbr])= "'" & [Forms]![frmAccountCodesForTimesheetsValidationForm]![txtPosCd] & "'"));"

What type of data is txtPosCD?

Doyce Winberry

---In MS_Access_Professionals@yahoogroups.com, <luvmymelody@...> wrote :

Hello all,

I seemingly need to do something really simple but I have spent 5 hours on this. searching the internet for solutions. But nothing helps me.

I am trying to open a recordset or even just a table with criteria from a form.

But I keep getting errors. currently the error is Too few parameters. Expected 1. runtime error 3061

My code right now after many iterations is below

I must be doing something wrong or there is a bug.

can someone point me in the right direction Please.

Thank you

Jim Wagner

Private Sub Command32_Click()

Dim rs As DAO.Recordset
Dim strSQL As String
Dim db As DAO.Database



Set db = CurrentDb


strSQL = "SELECT AccountCodesForTimesheets.[Position Nbr], * FROM AccountCodesForTimesheets WHERE (((AccountCodesForTimesheets.[Position Nbr])=[Forms]![frmAccountCodesForTimesheetsValidationForm]![txtPosCd]));"
Set rs = CurrentDb.OpenRecordset(strSQL)

DoCmd.OpenQuery strSQL, acViewNormal, acReadOnly



End Sub

__._,_.___

---

Posted by: Duane Hookom <duanehookom@hotmail.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (7)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

SPONSORED LINKS

.

__,_._,___