[Resolvido]Corrigir erro ao "Compilar"

Bom dia Amigos

Encontrei esta agenda que anexo na Net.

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

Obrigado

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

Olá Sílvio

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

Ver imagem

Assis,

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



É isso!
[]'s
FIM

Obrigado Alexandre

O projeto não é da minha autoria

Mas não sei resolver.

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:




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

Obrigado Alexandre
Quem sabe sabe

Valeu Assis !!!
O fórum agradece.

Sucesso!!

Cumprimentos