HOW I CAN USE RECORDSET AND SEEK IN ACCESS

[Jonnh]

I DON'T KNOW USE RECORDSET, MATCH, FIND AND SEEK IN ACCESS ONLY IN EXCEL

[pietlinden]

Jonnh wrote:

I DON'T KNOW USE RECORDSET, MATCH, FIND AND SEEK IN ACCESS ONLY IN EXCEL

So? Read the help file. Do you have a specific example of code that
is not working the way you expect it to? Did you look through the NG
posts to find a problem similar to yours? What version of Access are
you using?

[Jonnh]

I HAVE:
1- TABLE: NESTLE
2- FIELD: idcodigo / nombreprod
3- TEXTBOX: txtSumando_1 / txtSumando_2

Dim dbdatabase As Database
Dim rstPrecioempaque As DAO.Recordset

Set dbdatabase = CurrentDb
Set rstPrecioempaque = dbdatabase.OpenRecordset("NESTLE")

With rstPrecioempaque
.FindFirst txtSumando_1.Value 'ERR NUMBER 3251 I
UNDERSTAND!!!!
End With

If Not rstPrecioempaque.NoMatch Then
rstPrecioempaque.Edit
rstPrecioempaque("nombreprod") = txtSumando_2.Value
rstPrecioempaque.Update
End If
HELP PLEASE

[Tom van Stiphout]

On 28 Jul 2006 15:48:19 -0700, "Jonnh" <js*********@gmail.comwrote:

When calling FindFirst, you have to specify in which field the value
should be found:
.FindFirst "idcodigo=" & txtSumando_1.Value

-Tom.

>
I HAVE:
1- TABLE: NESTLE
2- FIELD: idcodigo / nombreprod
3- TEXTBOX: txtSumando_1 / txtSumando_2

Dim dbdatabase As Database
Dim rstPrecioempaque As DAO.Recordset

Set dbdatabase = CurrentDb
Set rstPrecioempaque = dbdatabase.OpenRecordset("NESTLE")

With rstPrecioempaque
.FindFirst txtSumando_1.Value 'ERR NUMBER 3251 I
UNDERSTAND!!!!
End With

If Not rstPrecioempaque.NoMatch Then
rstPrecioempaque.Edit
rstPrecioempaque("nombreprod") = txtSumando_2.Value
rstPrecioempaque.Update
End If
HELP PLEASE

[David W. Fenton]

"Jonnh" <js*********@gmail.comwrote in
news:11**********************@s13g2000cwa.googlegr oups.com:

I HAVE:
1- TABLE: NESTLE
2- FIELD: idcodigo / nombreprod
3- TEXTBOX: txtSumando_1 / txtSumando_2

Dim dbdatabase As Database
Dim rstPrecioempaque As DAO.Recordset

Set dbdatabase = CurrentDb
Set rstPrecioempaque = dbdatabase.OpenRecordset("NESTLE")

With rstPrecioempaque
.FindFirst txtSumando_1.Value 'ERR NUMBER 3251 I
UNDERSTAND!!!!
End With

If Not rstPrecioempaque.NoMatch Then
rstPrecioempaque.Edit
rstPrecioempaque("nombreprod") = txtSumando_2.Value
rstPrecioempaque.Update
End If
HELP PLEASE

Why not use a WHERE clause instead, to limit the recoordset to the
row or rows that match the requested value?

--
David W. Fenton http://www.dfenton.com/
usenet at dfenton dot com http://www.dfenton.com/DFA/

[Jonnh]

Tom van Stiphout ha escrito:

On 28 Jul 2006 15:48:19 -0700, "Jonnh" <js*********@gmail.comwrote:

When calling FindFirst, you have to specify in which field the value
should be found:
.FindFirst "idcodigo=" & txtSumando_1.Value

-Tom.

I HAVE:
1- TABLE: NESTLE
2- FIELD: idcodigo / nombreprod
3- TEXTBOX: txtSumando_1 / txtSumando_2

Dim dbdatabase As Database
Dim rstPrecioempaque As DAO.Recordset

Set dbdatabase = CurrentDb
Set rstPrecioempaque = dbdatabase.OpenRecordset("NESTLE")

With rstPrecioempaque
.FindFirst txtSumando_1.Value 'ERR NUMBER 3251 I
UNDERSTAND!!!!
End With

If Not rstPrecioempaque.NoMatch Then
rstPrecioempaque.Edit
rstPrecioempaque("nombreprod") = txtSumando_2.Value
rstPrecioempaque.Update
End If
HELP PLEASE

Thanks you!!!!