[Resolvido]macro copiar colar

bom dia,sou novo nesta area,tenho uma bd com as tabelas guardadas em access 2003 no servidor e dois postos a funcionar com access 2010 com uma base desenvolvida a medida dos meus conhecimentos que ate a data tem funcionado bem.
criei um formulario para poder ter um calendario aonde marcar serviços externpos atraves do formulario do cliente em questao.
mas apos ter feito varias tentativas nao sei como fazer.
queria abrir o form calendario ja criado com uma tabela aonde constam as horas referentes ao dia em questao e colar os dados do cliente,tipo de equipamento a ser intervencionado e local,penso que o mai facil seria:no formulario pedido do cliente criei um campo com dados de marcação aonde defino como proprieade valor:os dados prtendidos e depois penso que o mais simples seria copia e a seguir colar com duplo clique no calendario.
nao sei se me fiz entender,como podereis fazer?

Boas Tino, seja bem vindo ao Fórum.

De mais detalhes do que pretende... citando os forms envolvidos.

Se possível disponibilize o teu BD para que vejamos.

Cumprimentos.

minha bd

boas,obrigado pela ajuda,passei a minha base para o servidor de web pois nao a consegui carregar no form da pagina.
a ideia é ao receber um serviço abrir o form horas no form pedidos (ja esta a abrir no botao do relogio) e colar na hora e dia desejado os dados principais do pedido,nome morada.....,nao sei com fazer ja tentei varias maneiras mas sem resultado,ve e diz me sff.
obrigado

De detalhes do que pretende, e cite os forms envolvidos.

Cumprimentos.

Estou aguardando amigão.

Saudações.

Boas,a ideia é,abrir pedidos por cliente,depois abrir a folha de obra e depois de preenchida clicar no botao que tem o relogio e abre o form marcaçoes para poder colar na hora e dia pretendido a marcaçao do serviço com alguns dados do cliente e da obra,nao sei se me consegui explicar.
obrigado

Amigão.. o que te perguntei acima:

Cite qual o form e objetos envolvidos...

Você tem vários forms...


Cumprimentos.

Boas mais uma vez,o nome dos formularios é os que eu citei no meu texto anterior:,abrir (pedidos por cliente),depois abrir a (folha de obra) e depois de preenchida clicar no botao que tem o relogio em folha de obra e abre o form (marcaçoes) para poder colar na hora e dia pretendido a marcaçao do serviço com alguns dados do cliente e da obra,eu voltei a sublinhar com parentises,desculpa se nao estou a perceber bem mas nao estou habituado a certas espresoes mas penso que assim ja consegues la chegar,obrigado

Boas Tino Abri o Pedidos por Cliente.. mas não estou a encontrar o Folha de obras ou algo que me indique o mesmo....


Onde o encontro?


Cumprimentos.

boas,carrega no botao superior esquerdo (ver pedido) e vai abrir a folha de obra aonde esta o botao com o calendario de marcaçoes,obrgado

Boas Tino, se bem entendi deseja gravar na caixa texto a data e hora da marcação, pois bem.

Ao clicar duas vezes na linha referente a hora da marcação onde está a Macro Colar,

Substitua a macro por Procedimento do Evento, e no vba:

Crie uma sub dessa forma:


Sub EnviaTexto()
Dim StrData As String, StrHora, StrNome As String
StrNome = Me.ActiveControl.Name
StrData = Forms![Horas Dia].txtData 'Aqui está pegando a data do form Horas Dia
StrHora = Replace(Me.ActiveControl.Name, ",", ":") 'Aqui pega o nome da caixa texto substituindo a "," pelo ":" (Dois Pontos)
Forms!Pedidos.[Intervenção marcada para:] = "Marcado para: " & StrData & " - " & StrHora 'Lança no form a informação concatenada
End Sub


E ao clicar duas vezes no lugar da macro Copiar coloque:

Aqui no caso para a caixa texto 11:30, repita para as demais

Private Sub Ctl11_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub



Cumprimentos

boas,percebi que é isto o que eu preciso mas nao consigo perceber como por em pratica,pode me explicar melhor?
obrigado

boas mais uma vez,agora percebi a tua ideia,mas antes de mais sem querer dar "graxa" admiro e agradeço o tempo que perdes a tentar ajudar os outros,um grande obrigado.
a ideia é:ao estar na folha de obra abrir o form marcaçoes e inserir com duplo clique, os dados que ja referi,nome,morada,....e se possivel colar a informação da data e hora no form folha de obra na caixa de marcação essa informação para ao imprimir o pat(pedido externo) a info aparecer no mesmo e o tecnico saber,claro que se houver uma forma mais facil ou pratica diz.
eu tenho uma empresa de electrodomesticos com assistencia e a mesma é gerida nesta base de dados e as marcaçoes feitas no calendario do outlook que aparece em todos os postos de trabalho.
a minha ideia era facilitar as coisas incluido esse mesmo calendario na base de dados,nao sei se me fiz entender,ve e diz,obrigado mais uma vez.

Boa tarde Tino, estou te enviando o modelo com a aplicação do referido código. Ele está aplicado apenas para o Horário 11:30, podes fazer o mesmo para os demais.

Obs. Não substitua este que estou lhe enviando pelo seu.. apenas utilize para ver como apliquei os códigos, pois exclui o calendario da FOlha de obras pois não tinha a referencia do mesmo no meu access e estava a dar erro, assim exclui para que pudesse implementar o código.

Dê tambem uma compactada no teu BD pois o mesmo está com 100 mb e isso alem de lhe diminuir o tamanho corrige possiveis erros devido ao tempo de utilização.

Se utiliza o 2007 vá no menu Access, opcoes do Aceess, Banco de Dados atual: MArque compactar ao fechar.


https://dl.dropbox.com/u/26441349/TinoSeixas.rar


Cumprimentos.

boas,conforme podes ver da me os seguintes erros ao fazer duplo clique na caixa 11.30,o que posso fazer,obrigado.


https://2img.net/r/ihimg/photo/my-images/687/imagem2aly.png/
https://2img.net/r/ihimg/photo/my-images/36/imagem1yq.png/

Boas Tino, está a dar erro porque o campo Data no Form Horas Dias está em branco portanto nesta linha a variável não é carregada:


StrData = Forms![Horas Dia].txtData

Deves ter uma data na caixa texto logo abaixo do ícone do Form Horas Dias, pois ´é desta caixa que vais buscar a data

Agora se o dia for o dia atual podes substituir esta linha por:

StrData = Me.Texto52


Cumprimentos.

mais uma vez,boas,ja percebi,funciona,mas alem disto nao é possivel na caixa 11.30 do form marcaçoes inserir o inverso(os dados do cliente e o serviço a efectuar)para o calendario apresentar a quem ve os serviços que ja estao marcados,diz so qual o codigo se possivel e de que forma se pode fazer que eu depois meto os campos que quiser.
obrigado

Não compreendi... De mais detalhes...

Cumprimentos.

Se bem entendi... Aplique os seguintes Códigos ao Módulo do form:


Sub GravaCliente()
Dim StrTexto As String
StrTexto = Nz(DLookup("[NomeDoContacto]", "Clientes", "[CódigoDoCliente] = " & Forms!Pedidos.CódigoDoCliente & ""), "Em Branco")
StrTexto = "Serviço marcado para o Cliente: " & StrTexto & "/" & Forms!Pedidos.DescriçãoDoProblema
Me(Me.ActiveControl.Name) = StrTexto
End Sub


Este ao click do campo

Private Sub Ctl11_30_Click()
Me.GravaCliente
End Sub


Esta levando a seguinte informação:

Serviço marcado para o CLiente: xxxxxxxx (nome do cliente no form Peddos)/Nome do Serviço


Cumprimentos.

Um grande obrigado pelo tempo que perdeste,espero poder voltar a pedir ajuda quando precisar,muito obrigado.

bom dia,nao se se me podes dar mais uma ajuda atraves deste topico,sera mais facil pois conheces a bd.
apos acrescentar alguns campos na formula ficou conforme preçiso,mas se possivel gostava de fazer mais uma alteração,ao adicionar o texto na caixa de hora pretendida sera possivel altera a cor da mesma caixa em funçao do grau de urgencia tipo:1 vermelho,2 amarelo,3 verde,mando o codigo aonde aparece esse campo a seguir.
obrigado


Sub GravaCliente()
Dim StrTexto As String
StrTexto = Nz(DLookup("[NomeDoContacto]", "Clientes", "[CódigoDoCliente] = " & Forms!Pedidos.CódigoDoCliente & ""), "Em Branco")
StrTexto = "Serviço marcado: " & StrTexto & "/" & [Form_Pedidos por Cliente].Cidade & "/" & Form_Pedidos.Tipo_de_equipamento & "/" & Forms!Pedidos.DescriçãoDoProblema & "/" & "URGENCIA" & ":" & Form_Pedidos.Caixa_de_combinação108
Me(Me.ActiveControl.Name) = StrTexto
End Sub

Sim é possível entretanto, como aferirá este grau de urgência? Onde buscará a informação para saber se urgente ou não?


Cumprimentos.

boas a info vem da caixa urgencia na folha de obra do pedido tipo 1 2 ou 3.

Boas, na sub GravaCliente adicione após a última linha:

If Forms!Pedidos.cboStatus.Column(0) = 1 Then
Me(Me.ActiveControl.Name).BackColor = vbGreen
ElseIf Forms!Pedidos.cboStatus.Column(0) = 2 Then
Me(Me.ActiveControl.Name).BackColor = vbYellow
ElseIf Forms!Pedidos.cboStatus.Column(0) = 3 Then
Me(Me.ActiveControl.Name).BackColor = vbRed
Me(Me.ActiveControl.Name).ForeColor = vbRed
End If


Para todos as caixas texto deves excluir a formatação codicional

No controle para o horário de 9:00 tem a seguinte linha:

Private Sub Ctl09_00_Change()
If Me(Me.ActiveControl.Name).BackColor = vbRed Or Me(Me.ActiveControl.Name).BackColor = vbGreen Or Me(Me.ActiveControl.Name).BackColor = vbYellow Then Exit Sub
If Me.opcoes_urgencia = 1 Then Me.Ctl09_00 = 255
If Me.opcoes_urgencia = 2 Then Me.Ctl09_00 = 0
End Sub

Acrescentei a em azul.. caso não necessite, não aplique.


Cumprimentos.

Boas o que tenho que colocar entre grava cliente e a nova formula.
coloquei a seguir e da erro.

Quando falo última linha não é a: End Sub.. e sim a linha de Código...

Sub GravaCliente()
Dim StrTexto As String
StrTexto = Nz(DLookup("[NomeDoContacto]", "Clientes", "[CódigoDoCliente] = " & Forms!Pedidos.CódigoDoCliente & ""), "Em Branco")
StrTexto = "Serviço marcado: " & StrTexto & "/" & [Form_Pedidos por Cliente].Cidade & "/" & Form_Pedidos.Tipo_de_equipamento & "/" & Forms!Pedidos.DescriçãoDoProblema & "/" & "URGENCIA" & ":" & Form_Pedidos.Caixa_de_combinação108
Me(Me.ActiveControl.Name) = StrTexto
If Forms!Pedidos.cboStatus.Column(0) = 1 Then
Me(Me.ActiveControl.Name).BackColor = vbGreen
ElseIf Forms!Pedidos.cboStatus.Column(0) = 2 Then
Me(Me.ActiveControl.Name).BackColor = vbYellow
ElseIf Forms!Pedidos.cboStatus.Column(0) = 3 Then
Me(Me.ActiveControl.Name).BackColor = vbRed
Me(Me.ActiveControl.Name).ForeColor = vbRed
End If
End Sub


Cumprimentos.

mais uma vez...ja tinha adicionado antes de su e o erro é o mesmo,fiz o que me disseste mas da erro 2465 ao fazer na caixa das 9 conforme codigo sera que falhei em alguma coisa,envio o codigo.

Option Compare Database



Private Sub Ctl09_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl09_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl10_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl10_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl11_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl11_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl12_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl12_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl13_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl13_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl14_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl14_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl15_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl15_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl16_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl16_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl17_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl17_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl18_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl18_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl19_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl19_30_Click()
Me.GravaCliente
End Sub
Private Sub Ctl20_00_Click()
Me.GravaCliente
End Sub
Private Sub Ctl09_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl09_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl10_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl10_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl11_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl11_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl12_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl12_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl13_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl13_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl14_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl14_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl15_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl15_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl16_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl16_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl17_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl17_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl18_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl18_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl19_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl19_30_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub
Private Sub Ctl20_00_DblClick(Cancel As Integer)
Me.EnviaTexto
End Sub





Sub EnviaTexto()
Dim StrData As String, StrHora, StrNome As String
StrNome = Me.ActiveControl.Name
StrData = [Form_Horas dia].DATA
StrHora = Replace(Me.ActiveControl.Name, ",", ":")
Forms!Pedidos.[Intervenção marcada para:] = "Marcado para: " & StrData & " - " & StrHora
End Sub


Sub GravaCliente()
Dim StrTexto As String
StrTexto = Nz(DLookup("[NomeDoContacto]", "Clientes", "[CódigoDoCliente] = " & Forms!Pedidos.CódigoDoCliente & ""), "Em Branco")
StrTexto = "Serviço marcado: " & StrTexto & "/" & [Form_Pedidos por Cliente].Cidade & "/" & Form_Pedidos.Tipo_de_equipamento & "/" & Forms!Pedidos.DescriçãoDoProblema & "/" & "URGENCIA" & ":" & Form_Pedidos.Caixa_de_combinação108
Me(Me.ActiveControl.Name) = StrTexto
If Forms!Pedidos.cboStatus.Column(0) = 1 Then
Me(Me.ActiveControl.Name).BackColor = vbGreen
ElseIf Forms!Pedidos.cboStatus.Column(0) = 2 Then
Me(Me.ActiveControl.Name).BackColor = vbYellow
ElseIf Forms!Pedidos.cboStatus.Column(0) = 3 Then
Me(Me.ActiveControl.Name).BackColor = vbRed
Me(Me.ActiveControl.Name).ForeColor = vbRed
End If
End Sub

Private Sub Ctl09_00_Change()
If Me.opcoes_urgencia = 1 Then Me.Ctl09_00 = 255
If Me.opcoes_urgencia = 2 Then Me.Ctl09_00 = 0
End Sub

boas Tino, esqueci de avisar... que a combo onde seleciona o Status Urgente, Normal etc.. a renomeei para cboStatus...

Portanto renomeeie ai tambem.


No código:

Sub GravaCliente()
Dim StrTexto As String
StrTexto = Nz(DLookup("[NomeDoContacto]", "Clientes", "[CódigoDoCliente] = " & Forms!Pedidos.CódigoDoCliente & ""), "Em Branco")
StrTexto = "Serviço marcado: " & StrTexto & "/" & [Form_Pedidos por Cliente].Cidade & "/" & Form_Pedidos.Tipo_de_equipamento & "/" & Forms!Pedidos.DescriçãoDoProblema & "/" & "URGENCIA" & ":" & Form_Pedidos.Caixa_de_combinação108
Me(Me.ActiveControl.Name) = StrTexto
If Forms!Pedidos.cboStatus.Column(0) = 1 Then
Me(Me.ActiveControl.Name).BackColor = vbGreen
ElseIf Forms!Pedidos.cboStatus.Column(0) = 2 Then
Me(Me.ActiveControl.Name).BackColor = vbYellow
ElseIf Forms!Pedidos.cboStatus.Column(0) = 3 Then
Me(Me.ActiveControl.Name).BackColor = vbRed
Me(Me.ActiveControl.Name).ForeColor = vbWhite
End If
End Sub


A linha em vermelho, alterei a cor para branco, portanto se Vermelho a caixa texto, o texto fica branco para melhor compreensão.

Na caixa 9:00 Substitua o nome da cbo.


Private Sub Ctl09_00_Change()
If Me(Me.ActiveControl.Name).BackColor = vbRed Or Me(Me.ActiveControl.Name).BackColor = vbGreen Or Me(Me.ActiveControl.Name).BackColor = vbYellow Then Exit Sub
If Me.cboStatus = 1 Then Me.Ctl09_00 = 255
If Me.cboStatus = 2 Then Me.Ctl09_00 = 0
End Sub


Agora... o que esta pretendendo neste código? Nele está dizendo ao alterar o campo texto, se a cboStatua tiver valor 1, substituir por 255??


Cumprimentos.

boas,a ideia era ao ver o calendario perceber qual a importancia do serviço mas da maneira que fisseste resulta mas vai formatar o campo em todos os dias logo nao tem interrese,se achares que nao é possivel deixa estar,o que ja foi feito em relação ao incio do topico ja é uma exselente ferramenta.
obrigado

Não compreendi... se puder ser mais claro ou dar mais detalhes...

Cumprimentos.

O que pode fazer é que se a caixa texto referente a hora não estiver em branco ou nula checar a informação no form pedidos igualando a cor ao status de urgencia

If IsNull(Me.(Me.NomedaCaixaTexto) = False Then
If Forms!Pedidos.cboStatus.Column(0) = 1 Then
Me.NomeDaCaixaTexto.BackColor = vbGreen
ElseIf Forms!Pedidos.cboStatus.Column(0) = 2 Then
Me.NomeDaCaixaTexto.BackColor = vbYellow
ElseIf Forms!Pedidos.cboStatus.Column(0) = 3 Then
Me.NomeDaCaixaTexto.BackColor = vbRed
Me.NomeDaCaixaTexto.ForeColor = vbWhite
End If
End If


é por ai...

Cumprimentos.