Olá!
Prezados, peço a compreensão dos colegas pois sou leigo em vba access mais tenho aprendido muito aqui com todos vocês.
Tenho uma tabela vinculada que preciso atualizar dois campos através de um form.
Estou fazendo da seguinte maneira:
Dim StrSQL As String
Dim SQL As String
'Monta a consulta atualização utilizando'como critério o código do pedido
StrSQL = "UPDATE cadpedsub SET func = '" & Me.FUNC & "' WHERE loc = " & Me.loc & ""
SQL = "UPDATE cadpedsub SET sit = '" & Me.sit & "' WHERE loc = " & Me.loc & ""
DoCmd.RunSQL StrSQL
DoCmd.RunSQL SQL
A principio, tem resolvido meu problema. Mas gostaria de atualizar mais campos. Encontrei esse código do mestre JPaulo, porém não atualiza
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from cadpedsub Where loc= " & Me.loc & "")
rs.Edit
rs("func") = Me.func.Value
rs("sit") = Me.sit.Value
rs.Update
rs.Close
db.Close
Qual a diferença entre os métodos? Onde estou errando no segundo método?
Desde já, agradeço a todos pela ajuda.
Prezados, peço a compreensão dos colegas pois sou leigo em vba access mais tenho aprendido muito aqui com todos vocês.
Tenho uma tabela vinculada que preciso atualizar dois campos através de um form.
Estou fazendo da seguinte maneira:
Dim StrSQL As String
Dim SQL As String
'Monta a consulta atualização utilizando'como critério o código do pedido
StrSQL = "UPDATE cadpedsub SET func = '" & Me.FUNC & "' WHERE loc = " & Me.loc & ""
SQL = "UPDATE cadpedsub SET sit = '" & Me.sit & "' WHERE loc = " & Me.loc & ""
DoCmd.RunSQL StrSQL
DoCmd.RunSQL SQL
A principio, tem resolvido meu problema. Mas gostaria de atualizar mais campos. Encontrei esse código do mestre JPaulo, porém não atualiza
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Select * from cadpedsub Where loc= " & Me.loc & "")
rs.Edit
rs("func") = Me.func.Value
rs("sit") = Me.sit.Value
rs.Update
rs.Close
db.Close
Qual a diferença entre os métodos? Onde estou errando no segundo método?
Desde já, agradeço a todos pela ajuda.