RunTime Error 3070

  • Thread starter Thread starter KSmith
  • Start date Start date
K

KSmith

Thanks in advance
I'm an old dBase Command Line Programmer and Access 2007 is kinda of
confusing at times.

I'm writing an Access 2007 Inventory Control Program.
Made one form to subtract inventory from one table and add inventory to
another table. This works find. Copied the form, got the tables ready and
when I run the following code (that works in the 1st form) I get a RunTime
Error 3070.

Private Sub cboMaterialLookUp_AfterUpdate()
' This section finds the record number in tblRouterArea that matches
the record Number of the
' selection in the combo box
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[RouterID_tblRouterArea] = " &
Str(Nz(Me![cboMaterialLookUp], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Thanks
 
Thanks for the reply. I copied your code to mine and ran it, with almost the
same results. I got Error 3345 this time.

Thanks for the help.
--
KSmith


mie via AccessMonster.com said:
Str(Nz(Me![cboMaterialLookUp], 0))
Click to expand...
--Do you need to use 'Str' Function? What data type your Combo Box return? (i
guess it Combo Box judging from the name)
Thanks in advance
I'm an old dBase Command Line Programmer and Access 2007 is kinda of
confusing at times.

I'm writing an Access 2007 Inventory Control Program.
Made one form to subtract inventory from one table and add inventory to
another table. This works find. Copied the form, got the tables ready and
when I run the following code (that works in the 1st form) I get a RunTime
Error 3070.

Private Sub cboMaterialLookUp_AfterUpdate()
' This section finds the record number in tblRouterArea that matches
the record Number of the
' selection in the combo box
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[RouterID_tblRouterArea] = " &
Str(Nz(Me![cboMaterialLookUp], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Thanks
Click to expand...

--
Message posted via AccessMonster.com


.
Click to expand...
 
Ok, I will try that.

And again, many thanks!
--
KSmith


mie via AccessMonster.com said:
i play around with the code, but never get Error 3345. May be it related to
something else.Try removes all control source, record source, row source and
resetting again.
Thanks for the reply. I copied your code to mine and ran it, with almost the
same results. I got Error 3345 this time.

Thanks for the help.
Str(Nz(Me![cboMaterialLookUp], 0))
--Do you need to use 'Str' Function? What data type your Combo Box return? (i
Click to expand...
[quoted text clipped - 24 lines]
Thanks
Click to expand...
Click to expand...

--
Message posted via AccessMonster.com


.
Click to expand...
 
KSmith said:
Thanks in advance
I'm an old dBase Command Line Programmer and Access 2007 is kinda of
confusing at times.

I'm writing an Access 2007 Inventory Control Program.
Made one form to subtract inventory from one table and add inventory to
another table. This works find. Copied the form, got the tables ready
and
when I run the following code (that works in the 1st form) I get a RunTime
Error 3070.

Private Sub cboMaterialLookUp_AfterUpdate()
' This section finds the record number in tblRouterArea that
matches
the record Number of the
' selection in the combo box
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[RouterID_tblRouterArea] = " &
Str(Nz(Me![cboMaterialLookUp], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub
Click to expand...


In addition to the code changes suggested by mie, verify that the form's
recordsource actually contains a field named "RouterID_tblRouterArea". I'm
guessing that it doesn't.
 
RouterID is the first field in tblRouterArea TABLE
RouterID is the first field in the Forms Record Source: Select Statement
RouterID is the first field in the ComboBox Row Source: Select Statement
Bound Column is set to 1

--
KSmith


Dirk Goldgar said:
KSmith said:
Thanks in advance
I'm an old dBase Command Line Programmer and Access 2007 is kinda of
confusing at times.

I'm writing an Access 2007 Inventory Control Program.
Made one form to subtract inventory from one table and add inventory to
another table. This works find. Copied the form, got the tables ready
and
when I run the following code (that works in the 1st form) I get a RunTime
Error 3070.

Private Sub cboMaterialLookUp_AfterUpdate()
' This section finds the record number in tblRouterArea that
matches
the record Number of the
' selection in the combo box
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[RouterID_tblRouterArea] = " &
Str(Nz(Me![cboMaterialLookUp], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub
Click to expand...


In addition to the code changes suggested by mie, verify that the form's
recordsource actually contains a field named "RouterID_tblRouterArea". I'm
guessing that it doesn't.

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)
Click to expand...
 
I solved the problem, kinda. I removed some of the spaces that were in the
middle of the FindFirst line of code, and it Ran like it should.

Now the spaces are in the code that I copied from. I am new at this and I
don't have all of my procedures in a module, they are attached to the forms.

Wonder why the spaces are a problem in one place but not in another?


Thanks for all of the help.
--
KSmith


KSmith said:
RouterID is the first field in tblRouterArea TABLE
RouterID is the first field in the Forms Record Source: Select Statement
RouterID is the first field in the ComboBox Row Source: Select Statement
Bound Column is set to 1

--
KSmith


Dirk Goldgar said:
KSmith said:
Thanks in advance
I'm an old dBase Command Line Programmer and Access 2007 is kinda of
confusing at times.

I'm writing an Access 2007 Inventory Control Program.
Made one form to subtract inventory from one table and add inventory to
another table. This works find. Copied the form, got the tables ready
and
when I run the following code (that works in the 1st form) I get a RunTime
Error 3070.

Private Sub cboMaterialLookUp_AfterUpdate()
' This section finds the record number in tblRouterArea that
matches
the record Number of the
' selection in the combo box
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[RouterID_tblRouterArea] = " &
Str(Nz(Me![cboMaterialLookUp], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub
Click to expand...


In addition to the code changes suggested by mie, verify that the form's
recordsource actually contains a field named "RouterID_tblRouterArea". I'm
guessing that it doesn't.

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)
Click to expand...
Click to expand...
 
KSmith said:
RouterID is the first field in tblRouterArea TABLE
RouterID is the first field in the Forms Record Source: Select Statement
RouterID is the first field in the ComboBox Row Source: Select Statement
Bound Column is set to 1

Dirk Goldgar said:
KSmith said:
Set rs = Me.Recordset.Clone
rs.FindFirst "[RouterID_tblRouterArea] = " &
Str(Nz(Me![cboMaterialLookUp], 0))
Click to expand...

In addition to the code changes suggested by mie, verify that the form's
recordsource actually contains a field named "RouterID_tblRouterArea".
I'm
guessing that it doesn't.
Click to expand...
Click to expand...


If "RouterID" is the name of the field, then why are you looking for
"[RouterID_tblRouterArea]"? Your .FindFirst statement ought to be just:

rs.FindFirst "RouterID = " & Nz(Me![cboMaterialLookUp], 0)

If that doesn't work, then either RouterID is not a numeric field (which you
have implied that it is), or you have misinformed us about something, and
will need to post the exact SQL of the form's RecordSouce to help us figure
it out.
 
KSmith said:
I solved the problem, kinda. I removed some of the spaces that were in the
middle of the FindFirst line of code, and it Ran like it should.
Click to expand...

What spaces are you talking about? I don't see any superfluous spaces in
what you posted here. Please post the revised statement that seems to work.
 
Thanks for responding to my problem. Sorry for the long delay in getting
back, I had a death in the family.

The "spaces" were not the problem, as you said. To solve this problem I
looked back over my notes and found that I created the first form as a
columnar form with the widzard. I made a new columnar form with the same
tables as my problem form. I then copied the Record Source line from the
newly made form to the Record Source line in the problem second form.

This corrected the problem I was having. But I still don't understand why
that corrected the problem.

I have another problem that I will post.

And thank you for all of your help.

--
KSmith


Dirk Goldgar said:
KSmith said:
RouterID is the first field in tblRouterArea TABLE
RouterID is the first field in the Forms Record Source: Select Statement
RouterID is the first field in the ComboBox Row Source: Select Statement
Bound Column is set to 1

Dirk Goldgar said:
Set rs = Me.Recordset.Clone
rs.FindFirst "[RouterID_tblRouterArea] = " &
Str(Nz(Me![cboMaterialLookUp], 0))

In addition to the code changes suggested by mie, verify that the form's
recordsource actually contains a field named "RouterID_tblRouterArea".
I'm
guessing that it doesn't.
Click to expand...
Click to expand...


If "RouterID" is the name of the field, then why are you looking for
"[RouterID_tblRouterArea]"? Your .FindFirst statement ought to be just:

rs.FindFirst "RouterID = " & Nz(Me![cboMaterialLookUp], 0)

If that doesn't work, then either RouterID is not a numeric field (which you
have implied that it is), or you have misinformed us about something, and
will need to post the exact SQL of the form's RecordSouce to help us figure
it out.

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)
Click to expand...
 
Back
Top