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

3 participantes

    [Resolvido]Corrigir erro ao "Compilar"

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Corrigir erro ao "Compilar" Empty [Resolvido]Corrigir erro ao "Compilar"

    Mensagem  Assis 1/2/2022, 12:01

    Bom dia Amigos

    Encontrei esta agenda que anexo na Net.

    Mas tem o erro da imagem ao fazer Debug para compilar.

    Obrigado

    [Resolvido]Corrigir erro ao "Compilar" Sem_t244


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4940
    Registrado : 20/04/2011

    [Resolvido]Corrigir erro ao "Compilar" Empty Re: [Resolvido]Corrigir erro ao "Compilar"

    Mensagem  Silvio 1/2/2022, 17:13

    Salve Assis....

    Tente dessa forma...

    Public Sub UpdateDetails(vApptID As Long, Optional frm As Form)

    'Display appointment details on screen
    'Entry (vApptID) = ApptID of appointment to display

    Dim rst As Recordset

    'Me.txtDetails = ""
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM qryAppointments WHERE ApptID = " & vApptID)
    If rst.BOF = True Then Exit Sub
    Forms!frmCalendarYear!txtDetails = "Appointment Times: " & Format(rst!ApptStart, "Short Time") & " to " & Format(rst!ApptEnd, "Short Time") & vbCrLf _
    & "Location: " & rst!ApptLocation & vbCrLf _
    & "Notes: " & rst!ApptNotes & vbCrLf _
    & "All Day Event: " & IIf(rst!AllDayEvent = True, "Yes", "No") & vbCrLf _
    & "Contract Code: " & rst![ApptContract Code]
    rst.Close
    Set rst = Nothing

    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Corrigir erro ao "Compilar" Empty Re: [Resolvido]Corrigir erro ao "Compilar"

    Mensagem  Assis 1/2/2022, 17:49

    Olá Sílvio

    Ao fazer debug já não dá erro mas !!!

    Ver imagem

    [Resolvido]Corrigir erro ao "Compilar" Sem_t245


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Corrigir erro ao "Compilar" Empty Re: [Resolvido]Corrigir erro ao "Compilar"

    Mensagem  Alexandre Fim 1/2/2022, 18:27

    Assis,

    O campo apontado no debug, não existe na consulta "qryAppointments", utilizada na criação do recordset.

    [Resolvido]Corrigir erro ao "Compilar" Duvida10

    É isso!
    []'s
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Corrigir erro ao "Compilar" Setinf11
    Sistemas e Tecnologia Ltda
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Corrigir erro ao "Compilar" Empty Re: [Resolvido]Corrigir erro ao "Compilar"

    Mensagem  Assis 1/2/2022, 18:39

    Obrigado Alexandre

    O projeto não é da minha autoria

    Mas não sei resolver.


    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Corrigir erro ao "Compilar" Empty Re: [Resolvido]Corrigir erro ao "Compilar"

    Mensagem  Alexandre Fim 1/2/2022, 19:05

    Ok Assis,
    É simples!

    Inclua o campo "ApptContract Code" na tabela "tblAppointments", e informe qualquer valor. Em seguida adicione este campo na consulta "qryAppointments".
    Pela descrição, deve ser "Código de Contrato"...alguma coisa do tipo.

    Na função que gerou o erro, substitua o "Me" pelo parâmetro "frm", conforme abaixo:

    [Resolvido]Corrigir erro ao "Compilar" Assis_10


    OBS: Se possível, adicione o campo sem espaços entre as palavras: "ApptContractCode" e ajuste este campo na função também.

    Compile a Aplicação e faça alguns testes e veja se funciona.

    É isso

    Espero ter ajudado
    []'s

    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Corrigir erro ao "Compilar" Setinf11
    Sistemas e Tecnologia Ltda
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4712
    Registrado : 06/11/2009

    [Resolvido]Corrigir erro ao "Compilar" Empty Re: [Resolvido]Corrigir erro ao "Compilar"

    Mensagem  Assis 1/2/2022, 19:28

    Obrigado Alexandre
    Quem sabe sabe Very Happy



    .................................................................................
    *** Só sei que nada sei ***
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2605
    Registrado : 13/12/2016

    [Resolvido]Corrigir erro ao "Compilar" Empty Re: [Resolvido]Corrigir erro ao "Compilar"

    Mensagem  Alexandre Fim 1/2/2022, 19:40

    Valeu Assis !!!
    O fórum agradece.

    Sucesso!!

    Cumprimentos


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Corrigir erro ao "Compilar" Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 6/10/2022, 08:20