MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    [Resolvido]macro copiar colar

    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty macro copiar colar

    Mensagem  TINOSEIXAS 20/8/2012, 10:49

    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?
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 20/8/2012, 16:49

    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.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  TINOSEIXAS 24/8/2012, 00:45

    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 24/8/2012, 17:49

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

    Cumprimentos.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 25/8/2012, 22:24

    Estou aguardando amigão.

    Saudações.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  TINOSEIXAS 27/8/2012, 12:15

    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 27/8/2012, 20:28

    Amigão.. o que te perguntei acima:

    Cite qual o form e objetos envolvidos...

    Você tem vários forms...


    Cumprimentos.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty macro copiar colar

    Mensagem  TINOSEIXAS 28/8/2012, 10:45

    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 28/8/2012, 17:09

    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.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty copiar colar

    Mensagem  TINOSEIXAS 28/8/2012, 23:17

    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 29/8/2012, 17:41

    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
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty COPIAR COLAR

    Mensagem  TINOSEIXAS 29/8/2012, 18:35

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty COPIAR COLAR

    Mensagem  TINOSEIXAS 29/8/2012, 19:15

    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.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 29/8/2012, 20:19

    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.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty COPIAR COLAR

    Mensagem  TINOSEIXAS 30/8/2012, 00:32

    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/
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 30/8/2012, 12:21

    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.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty copiar colar

    Mensagem  TINOSEIXAS 30/8/2012, 17:07

    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 30/8/2012, 17:41

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

    Cumprimentos.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 30/8/2012, 18:09

    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.



    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  TINOSEIXAS 31/8/2012, 01:07

    Um grande obrigado pelo tempo que perdeste,espero poder voltar a pedir ajuda quando precisar,muito obrigado.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty formatar

    Mensagem  TINOSEIXAS 31/8/2012, 09:28

    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 31/8/2012, 14:43

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


    Cumprimentos.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty definir cor letra

    Mensagem  TINOSEIXAS 31/8/2012, 16:14

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 31/8/2012, 18:17

    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.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty formatar texto

    Mensagem  TINOSEIXAS 31/8/2012, 18:33

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 31/8/2012, 18:39

    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.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty formatar

    Mensagem  TINOSEIXAS 31/8/2012, 18:59

    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

    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 31/8/2012, 19:53

    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.
    avatar
    TINOSEIXAS
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 64
    Registrado : 20/08/2012

    [Resolvido]macro copiar colar Empty COPIAR COLAR

    Mensagem  TINOSEIXAS 1/9/2012, 09:57

    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
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 1/9/2012, 17:30

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

    Cumprimentos.
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12226
    Registrado : 01/03/2011

    [Resolvido]macro copiar colar Empty Re: [Resolvido]macro copiar colar

    Mensagem  HARYSOHN 1/9/2012, 17:41

    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.

      Data/hora atual: 28/11/2022, 01:00