[Resolvido]Campo Sim/Não Duplica

PauloFerreira Seg Jul 23, 2018 11:59 am

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 Seg Jul 23, 2018 11:59 am

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 Seg Jul 23, 2018 2:57 pm

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 Seg Jul 23, 2018 2:57 pm

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