Início![[Resolvido]Botão duplicar registro não duplica Empty](https://2img.net/i/empty.gif)
madoxx1707 4/2/2011, 03:57No access 2010 quando crio um botão para duplicar um registro ele abre um formulário em branco e aparece a mensagem " O camando colar não está disponível agora". O que posso fazer pra ele voltar a funcionar normalmente? Agradeço se alguém do fórum puder me auxiliar.
+3
Eloi
Dilson
madoxx1707
7 participantes
[Resolvido]Botão duplicar registro não duplica
madoxx1707- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2
Registrado : 02/02/2011
Dilson- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009
Olá madoxx1707, seja bem vindo a essa nave access!
Amigo, verifique nas propriedades do formulário se a opção permitir adição está marcada como sim
De qualquer forma se não conseguir, pode se desejar, anexar o projeto ou somente uma parte dele aqui, que posso dar uma olhada.
Amigo, verifique nas propriedades do formulário se a opção permitir adição está marcada como sim
De qualquer forma se não conseguir, pode se desejar, anexar o projeto ou somente uma parte dele aqui, que posso dar uma olhada.
madoxx1707- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2
Registrado : 02/02/2011
Muito obrigado pela atenção, este fórum é de uma utilidade ímpar principalmente para amadores como eu. O botão passou a funcionar normalmente.
Dilson- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009
Sempre tentamos fazer o melhor.
O fórum agradece o retorno | passando a [Resolvido].
O fórum agradece o retorno | passando a [Resolvido].
Eloi- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010
Boa tarde! emadoxx1707
Estou necessitando muito desse código,é possível vc colocar a nossa disposição?
Att.
Eloi
Estou necessitando muito desse código,é possível vc colocar a nossa disposição?
Att.
Eloi
Dilson- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009
Veja o exemplo:
http://www.speedyshare.com/files/28758887/DuplicarRegistros.rar
http://www.speedyshare.com/files/28758887/DuplicarRegistros.rar
Eloi- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010
Dilson, boa tarde.
Seu exemplo é fantastico, agora se não fosse muito incômodo, há possibilidade de copiar os registro do anterior para o novo formuário, porque o seu exemplo é do atual para o novo, caso não foi muito claro te explicarei novamente.
Atenciosamente,
Eloi
Seu exemplo é fantastico, agora se não fosse muito incômodo, há possibilidade de copiar os registro do anterior para o novo formuário, porque o seu exemplo é do atual para o novo, caso não foi muito claro te explicarei novamente.
Atenciosamente,
Eloi
Dilson- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009
Coloque por primeiro no bloco de códigos DoCmd o seguinte:
DoCmd.GoToRecord , , acLast
Irá para o ultimo registro e executará a ação copiar.
DoCmd.GoToRecord , , acLast
Irá para o ultimo registro e executará a ação copiar.
Eloi- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010
Dilson, boa tarrde.
Acertou em cheio....., fico muito agradecido pela sua ajuda.
Eloi
Acertou em cheio....., fico muito agradecido pela sua ajuda.
Eloi
Dilson- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009
Disponha sempre!
O fórum agradece essa informação de retorno.
O fórum agradece essa informação de retorno.
Eloi- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010
Dilson, boa noite.
Apareceu mais uma questão com relação a este tópico, a questão é: coloquei o módulo em outro formulário que contem caixa de texto e caixa de combinação, quando peço para repetir registro só as “caixas de texto" são preenchida, você pode me da mas uma ajuda?
Atenciosamente
Eloi
Apareceu mais uma questão com relação a este tópico, a questão é: coloquei o módulo em outro formulário que contem caixa de texto e caixa de combinação, quando peço para repetir registro só as “caixas de texto" são preenchida, você pode me da mas uma ajuda?
Atenciosamente
Eloi
criquio- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 11229
Registrado : 30/12/2009
Olá Eloi! Você quer dizer copiar do último registro do formulário para um novo registro? Se for, me parece que a dica anterior do Dilson é o que precisa, do acLast.
.................................................................................
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Eloi- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010
Olá Criquio, boa noite.
O código está funcionando perfeitamente no primeiro formulário que possui apenas caixa de texto, agora quando foi implantar o mesmo código em outro formulário que contém caixa de texto e caixa de combinação os registros só migram para as caixas de textos.
essa é a diferença.
Att.
Eloi
O código está funcionando perfeitamente no primeiro formulário que possui apenas caixa de texto, agora quando foi implantar o mesmo código em outro formulário que contém caixa de texto e caixa de combinação os registros só migram para as caixas de textos.
essa é a diferença.
Att.
Eloi
Dilson- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009
Eloi,
Acrescentei uma combobox armazenei dados e funcionou.
Qual a origem de dados da combo que usa?
Lista de valores ou Tabela/Consulta?
Acrescentei uma combobox armazenei dados e funcionou.
Qual a origem de dados da combo que usa?
Lista de valores ou Tabela/Consulta?
Eloi- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 60
Registrado : 09/05/2010
Boa noite a todos,
Dilson, peço desculpas por ter ativado novamente este tópico, o código esta funcionando normalmente.
Abraços a todos.
Eloi
Dilson, peço desculpas por ter ativado novamente este tópico, o código esta funcionando normalmente.
Abraços a todos.
Eloi
Dilson- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 1743
Registrado : 11/11/2009
Parceiro, essas coisas acontecem nesse nosso mundo de códigos...
Disponha sempre!
Disponha sempre!
camilots- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3
Registrado : 19/07/2011
Bom dia Dilson.
Achei este tópico muito interessante, porém não consegui acessar o código, pois o link pelo visto já expirou.
http://www.speedyshare.com/files/28758887/DuplicarRegistros.rar
Você pode fornecer uma cópia desse arquivo novamente?
Desde já te agradeço.
Muito obrigado.
Achei este tópico muito interessante, porém não consegui acessar o código, pois o link pelo visto já expirou.
http://www.speedyshare.com/files/28758887/DuplicarRegistros.rar
Você pode fornecer uma cópia desse arquivo novamente?
Desde já te agradeço.
Muito obrigado.
Luís Augusto- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 129
Registrado : 28/10/2011
Boa noite Dilson, também estou em busca de algo que duplique o registro atual em um form, porém não tive muito sucesso em minhas adaptações.
Poderia disponibilizar novamente o exemplo http://www.speedyshare.com/files/28758887/DuplicarRegistros.rar
Tudo indica ser o que preciso.
Desde de já, muito obrigado.
Poderia disponibilizar novamente o exemplo http://www.speedyshare.com/files/28758887/DuplicarRegistros.rar
Tudo indica ser o que preciso.
Desde de já, muito obrigado.
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Boa noite
Teste
Private Sub SeuBotão_Click()
Me.NomeDoSeuCampo = Nz(DLast("NomeDoSeuCampo", "Nome DaSuaTabela"))
End Sub
Fazer isto para todos os campos que quer duplicar
Teste
Private Sub SeuBotão_Click()
Me.NomeDoSeuCampo = Nz(DLast("NomeDoSeuCampo", "Nome DaSuaTabela"))
End Sub
Fazer isto para todos os campos que quer duplicar
.................................................................................
*** Só sei que nada sei ***
Luís Augusto- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 129
Registrado : 28/10/2011
Boa noite Assis, obrigado pelo retorno.
Infelizmente retornou um erro dizendo:
Erro em tempo de execução '-2147352567 (800200009)';
Você não pode atribuir um valor a este objeto.
Antes de tentar o que sugeriu, estava tentando adaptar um exemplo que encontrei na internet que usa conexão ADO mas não obtive sucesso pois ainda estou gatinhando no aprendizado com VBA.
Não seria o caso de abrir um tópico para tentar uma ajuda com a função?
Um abraço.
Infelizmente retornou um erro dizendo:
Erro em tempo de execução '-2147352567 (800200009)';
Você não pode atribuir um valor a este objeto.
Antes de tentar o que sugeriu, estava tentando adaptar um exemplo que encontrei na internet que usa conexão ADO mas não obtive sucesso pois ainda estou gatinhando no aprendizado com VBA.
Não seria o caso de abrir um tópico para tentar uma ajuda com a função?
Um abraço.
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Boa Noite
Luis Augusto
Abra o form produtos e click em Repetir Último Registo, e veja o que acontece ...
Luis Augusto
Abra o form produtos e click em Repetir Último Registo, e veja o que acontece ...
.................................................................................
*** Só sei que nada sei ***
Luís Augusto- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 129
Registrado : 28/10/2011
Muito obrigado Assis, pelo exemplo.
De antemão posso afirmar que a pretenção é exatamente essa mas, em vez de copiar o ultimo registro terei que copiar o registro atual, trabalho num ambiente multi-usuário, imagino que nessas condições corro o risco de chamar por um record diferente do pretendido. Devo ressaltar que isso é uma suposição que estou fazendo, não tenho experiencia suficiente para afirmar isso.
Irei estudar os eventos do exemplo que enviou e tentar adaptar à minha realidade. Caso já tenha esta resposta e queira adiantar-se, serei eternamente grato. Estou a quase uma semana tentando adaptar às cegas, sintaxe's em VBA encontradas na internet. O primeiro retorno positivo foi o que me deu.
Mais uma vez muito obrigado.
Atenciosamente, Luís Augusto.
De antemão posso afirmar que a pretenção é exatamente essa mas, em vez de copiar o ultimo registro terei que copiar o registro atual, trabalho num ambiente multi-usuário, imagino que nessas condições corro o risco de chamar por um record diferente do pretendido. Devo ressaltar que isso é uma suposição que estou fazendo, não tenho experiencia suficiente para afirmar isso.
Irei estudar os eventos do exemplo que enviou e tentar adaptar à minha realidade. Caso já tenha esta resposta e queira adiantar-se, serei eternamente grato. Estou a quase uma semana tentando adaptar às cegas, sintaxe's em VBA encontradas na internet. O primeiro retorno positivo foi o que me deu.
Mais uma vez muito obrigado.
Atenciosamente, Luís Augusto.
Luís Augusto- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 129
Registrado : 28/10/2011
Boa noite a todos.
Assis, muito obrigado pelo exemplo, ele me fez abrir os horizontes.
Estudando o comando DLast, percebi que precisava era fazer o mesmo com o Dlookup usando o critério "[ID]=" & [ID]. Veja como ficou minha função.
Detalhe importante, para funcionar tem que referenciar Microsoft ActiveX Data Objects 2.8 Library, outro ponto importante é que a função está no Form e não em um Módulo.
Está funcionando perfeitamente mas acredito que talvez na visão dos mais experientes isso pode ficar mais enxuto. Uma vez ouvi numa video aula do colega Avelino Sampaio, que é essencial conhecer todos os métodos do Application, agora que esta caindo a ficha! Um abraço.
Código: ↓↓↓↓↓↓↓↓↓↓↓↓
Assis, muito obrigado pelo exemplo, ele me fez abrir os horizontes.
Estudando o comando DLast, percebi que precisava era fazer o mesmo com o Dlookup usando o critério "[ID]=" & [ID]. Veja como ficou minha função.
Detalhe importante, para funcionar tem que referenciar Microsoft ActiveX Data Objects 2.8 Library, outro ponto importante é que a função está no Form e não em um Módulo.
Está funcionando perfeitamente mas acredito que talvez na visão dos mais experientes isso pode ficar mais enxuto. Uma vez ouvi numa video aula do colega Avelino Sampaio, que é essencial conhecer todos os métodos do Application, agora que esta caindo a ficha! Um abraço.
Código: ↓↓↓↓↓↓↓↓↓↓↓↓
- Spoiler:
- Function Duplica()
If Me.Duplicar = True Then 'Check box no formulário
Dim varCategoria As String
Dim vartxtPN_Cliente As String
Dim vartxtRev_Cliente As String
Dim vartxtPN_LTM As String
Dim varcboAtribuidos_a As String
Dim varcboAbertas_por As String
Dim vartxtData_Abertura As Date
Dim vartxtData_Entrega As Date
Dim vartxtID As String
varcboCliente = Nz(DLookup("Cliente", "Questoes", "[ID]=" & [ID]))
vartxtPN_Cliente = Nz(DLookup("PN_Cliente", "Questoes", "[ID]=" & [ID]))
vartxtRev_Cliente = Nz(DLookup("Rev_Cliente", "Questoes", "[ID]=" & [ID]))
vartxtPN_LTM = Nz(DLookup("PN_LTM", "Questoes", "[ID]=" & [ID]))
varcboAtribuidos_a = Nz(DLookup("Atribuidos_a", "Questoes", "[ID]=" & [ID]))
varcboAbertas_por = Nz(DLookup("Abertas_por", "Questoes", "[ID]=" & [ID]))
vartxtData_Abertura = Nz(DLookup("Data_Abertura", "Questoes", "[ID]=" & [ID]))
vartxtData_Entrega = Nz(DLookup("Data_Entrega", "Questoes", "[ID]=" & [ID]))
Set cnxn = CurrentProject.Connection
Set rs = New ADODB.Recordset
With rs
.Open "Questoes", cnxn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
.Index = "ID"
.Seek Me.txtID.Value, adSeekFirstEQ
If Not .EOF Then
DoCmd.RunCommand acCmdRecordsGoToNew
Me("cboCategoria") = "Solicitação de Gabarito"
Me("cboCliente") = varcboCliente
Me("txtPN_Cliente") = vartxtPN_Cliente
Me("txtRev_Cliente") = vartxtRev_Cliente
Me("txtPN_LTM") = vartxtPN_LTM
Me("cboAtribuidos_a") = varcboAtribuidos_a
Me("cboAbertas_por") = varcboAbertas_por
Me("txtData_Abertura") = vartxtData_Abertura
Me("txtData_Entrega") = vartxtData_Entrega
End If
.Close
End With
Set rs = Nothing
MsgBox "Registro duplicado para gabarito.", vbInformation
Me.cmdClose.SetFocus
End If
Me.Duplicar.Visible = False
Me.Duplicar.Value = False
Me.txtinformacao.Visible = True
Me.txtinformacao = "Item duplicado!"
End Function
Conteúdo patrocinado