Início![[Resolvido]Corrigir erro ao "Compilar" Empty](https://2img.net/i/empty.gif)
Assis 1/2/2022, 12:01Bom 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](https://i.servimg.com/u/f56/19/62/62/37/sem_t244.png)
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](https://servimg.com/r/5619626237/sem_t244.png)
3 participantes
[Resolvido]Corrigir erro ao "Compilar"
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
.................................................................................
*** Só sei que nada sei ***
Silvio- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 5120
Registrado : 20/04/2011
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
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- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Olá Sílvio
Ao fazer debug já não dá erro mas !!!
Ver imagem
![[Resolvido]Corrigir erro ao "Compilar" Sem_t245](https://i.servimg.com/u/f56/19/62/62/37/sem_t245.png)
Ao fazer debug já não dá erro mas !!!
Ver imagem
![[Resolvido]Corrigir erro ao "Compilar" Sem_t245](https://servimg.com/r/5619626237/sem_t245.png)
.................................................................................
*** Só sei que nada sei ***
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016
Assis,
O campo apontado no debug, não existe na consulta "qryAppointments", utilizada na criação do recordset.
![[Resolvido]Corrigir erro ao "Compilar" Duvida10](https://i.servimg.com/u/f50/19/64/99/05/duvida10.png)
É isso!
[]'s
FIM
O campo apontado no debug, não existe na consulta "qryAppointments", utilizada na criação do recordset.
![[Resolvido]Corrigir erro ao "Compilar" Duvida10](https://servimg.com/r/5019649905/duvida10.png)
É isso!
[]'s
FIM
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui ![[Resolvido]Corrigir erro ao "Compilar" Setinf11](https://i.servimg.com/u/f50/19/64/99/05/setinf11.png)
Sistemas e Tecnologia Ltda
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Obrigado Alexandre
O projeto não é da minha autoria
Mas não sei resolver.
O projeto não é da minha autoria
Mas não sei resolver.
.................................................................................
*** Só sei que nada sei ***
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016
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](https://i.servimg.com/u/f50/19/64/99/05/assis_10.png)
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
É 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](https://servimg.com/r/5019649905/assis_10.png)
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
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui Sistemas e Tecnologia Ltda
Assis- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009
Obrigado Alexandre
Quem sabe sabe
Quem sabe sabe
.................................................................................
*** Só sei que nada sei ***
Alexandre Fim- Developer
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3491
Registrado : 13/12/2016
Valeu Assis !!!
O fórum agradece.
Sucesso!!
Cumprimentos
O fórum agradece.
Sucesso!!
Cumprimentos
.................................................................................
Marcar tópico como Resolvido: clique aqui Postar anexos no fórum: clique aqui Sistemas e Tecnologia Ltda