Bom dia a todos!
Estou criando um banco de Dados para o acompanhamento de pedidos na empresa em que trabalho. Neste banco tenho uma planilha com um campo chamado "Pedido" e um campo chamado "Linha". então posso ter o mesmo número de pedido para linhas diferente.
Criei um formulário contínuo onde tenho os pedidos e suas respectivas linhas. Preciso colocar um botão que de acordo com o número do pedido e da linha, vá na tabela e marque o campo "Follow" como Verdadeiro. Para isso estou usando o seguinte código:
Dim strMyExternalDatabase
Dim dbs As DAO.Database
Dim dbsExt As DAO.Database
Dim tbl As DAO.Recordset
Dim tdf As DAO.TableDef
Set dbs = CurrentDb()
Set tdf = dbs.TableDefs("ItemxPedido")
strMyExternalDatabase = Mid(tdf.Connect, 11)
'Open the database that contains the table that is linked
Set dbsExt = OpenDatabase(strMyExternalDatabase)
'Open a table-type recordset against the external table
Set tbl = dbsExt.OpenRecordset("ItemxPedido", dbOpenTable)
'Specify which index to search on
tbl.Index = "ItemXPedidoPedido"
'Specify the criteria
tbl.Seek "=" Me.Pedido.value
tbl.Edit
'Check the result
If tbl.NoMatch Then
Else
tbl!Follow.Value = True
tbl.Update
End If
tbl.Close
dbs.Close
dbsExt.Close
Set tbl = Nothing
Set tdf = Nothing
Set dbs = Nothing
Usando o código acima ele funciona perfeitamente só que somente para o primeiro item. Ou seja para a linha 1 pois ele esta filtrando somente pelo número do pedido e o primero que ele encontra ele marca.
Como podeia fazer para que ele filtrasse ao mesmo tempo o número do pedido e a linha?
na linha:
tbl.Seek "=" Me.Pedido.value
Tem como colocar mais argumentos?
Desde já agradeço a ajuda!
Estou criando um banco de Dados para o acompanhamento de pedidos na empresa em que trabalho. Neste banco tenho uma planilha com um campo chamado "Pedido" e um campo chamado "Linha". então posso ter o mesmo número de pedido para linhas diferente.
Criei um formulário contínuo onde tenho os pedidos e suas respectivas linhas. Preciso colocar um botão que de acordo com o número do pedido e da linha, vá na tabela e marque o campo "Follow" como Verdadeiro. Para isso estou usando o seguinte código:
Dim strMyExternalDatabase
Dim dbs As DAO.Database
Dim dbsExt As DAO.Database
Dim tbl As DAO.Recordset
Dim tdf As DAO.TableDef
Set dbs = CurrentDb()
Set tdf = dbs.TableDefs("ItemxPedido")
strMyExternalDatabase = Mid(tdf.Connect, 11)
'Open the database that contains the table that is linked
Set dbsExt = OpenDatabase(strMyExternalDatabase)
'Open a table-type recordset against the external table
Set tbl = dbsExt.OpenRecordset("ItemxPedido", dbOpenTable)
'Specify which index to search on
tbl.Index = "ItemXPedidoPedido"
'Specify the criteria
tbl.Seek "=" Me.Pedido.value
tbl.Edit
'Check the result
If tbl.NoMatch Then
Else
tbl!Follow.Value = True
tbl.Update
End If
tbl.Close
dbs.Close
dbsExt.Close
Set tbl = Nothing
Set tdf = Nothing
Set dbs = Nothing
Usando o código acima ele funciona perfeitamente só que somente para o primeiro item. Ou seja para a linha 1 pois ele esta filtrando somente pelo número do pedido e o primero que ele encontra ele marca.
Como podeia fazer para que ele filtrasse ao mesmo tempo o número do pedido e a linha?
na linha:
tbl.Seek "=" Me.Pedido.value
Tem como colocar mais argumentos?
Desde já agradeço a ajuda!