Olá Pessoal,
Necessito da Vossa ajuda com o seguinte:
Tenho um formulário xxxx aberto (com origem na tabela detalhefichprep)
Pretendo com o seguinte código acrescentar nessa tabela codfichprep =0 ; CodMp = codmp de um campo do formulário, quantidade = caiza de texto37 do formulário
obrigado
Necessito da Vossa ajuda com o seguinte:
Tenho um formulário xxxx aberto (com origem na tabela detalhefichprep)
Pretendo com o seguinte código acrescentar nessa tabela codfichprep =0 ; CodMp = codmp de um campo do formulário, quantidade = caiza de texto37 do formulário
- Código:
Private Sub TransfereAcerto_Click()
Dim Rst As DAO.Recordset
If MsgBox("Confirma a transferência do Acerto?" & vbCr & NomeManip, vbYesNo + vbDefaultButton2) = vbYes Then
'acrescenta na tabela DetalheFichprep
DoCmd.RunSQL "INSERT INTO DetalheFichPrep (CodFichPrep,CodMp,Quantidade,Estado) SELECT '0'CodMP,Texto37,Estado FROM xxx"
End If
Set Rst = Nothing
Dim stDocName As String
Dim stLinkCriteria As String
MsgBox "Concluido", vbInformation, "Aviso"
DoCmd.Close
stDocName = "Acertos"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acLast
End Sub
obrigado
Última edição por Alexandre Neves em 4/10/2018, 19:49, editado 1 vez(es) (Motivo da edição : Título alterado: de 'Código para acrecsentar dados a uma tabela' para 'Código para acrescentar dados a uma tabela')