[Resolvido]Campo Sim/Não Duplica

PauloFerreira 23/7/2018, 18:59

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº1

[Resolvido]Campo Sim/Não Duplica

Mensagem PauloFerreira 23/7/2018, 18:59

Oi companheiros, segue mais uma questão, tenho um form que, um dos campos é, campo de sim/ não ( Efetuado ), pretendia que ao clicar este desse uma informação, tipo se quero remarcar(Duplicar) este serviço, aqui então duplicava, mas não duplicava o campo Data, este mantinha-se intacto, solicitando uma nova remarcação.

Para duplicar o registo utilizo este código :

Código:: DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste me!Duplicar = nullo me!Duplicar.setFocus

Como fazer ? Obrigado amigos

PauloFerreira 23/7/2018, 21:57

PauloFerreira

PauloFerreira: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 115
Registrado : 28/02/2018

Mensagem nº2

Re: [Resolvido]Campo Sim/Não Duplica

Mensagem PauloFerreira 23/7/2018, 21:57

Amigos acabei por fazer da seguinte forma :

Código:: Private Sub Efetuado_Click() If MsgBox(" Deseja reagendar esta Prevenção ?", vbYesNo + vbDefaultButton1 + vbInformation, "Aviso!") = vbYes Then DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.GoToRecord , , acNewRec DoCmd.RunCommand acCmdPaste Me.Efetuado = nullo Me.DataAquisicao = "" Me.DataAquisicao.SetFocus End If End Sub

Abraços