Duvida instrução if em código VBA

Saudações,

Estou utilizando o código VBA de JPAULO referente a numeração automática de um campo. Ocorre que preciso inserir uma instrução que se o usuário clicar novamente no botão salvar e a numeração automática já tiver sido preenchida o sistema deverá desconsiderar a rotina não atribuindo outro código pois, o mesmo já foi gerado, inseri a linhas a seguir tentando fazer o procedimento que preciso funcionar sem sucesso:

If Not (Me.Titulo) Is Null = True Then
Comando120.SetFocus
End If

Exit Sub


-------------------------------------------------------------


Private Sub SalvarGuia_Click()
Dim numeroencontrado As String, proximoNumero As Integer
'By JPaulo ® Maximo Access
'encontrar o ultimo numero na tabela
numeroencontrado = Nz(DMax("Titulo", "tb_guia_assistencia_medica"), 0)

If Not (Me.Titulo) Is Null = True Then
Comando120.SetFocus
End If

Exit Sub

If IsNull(numeroencontrado) Or numeroencontrado = "" Or numeroencontrado = "0" Then
'se não existir numeração, insere o 001 para iniciar
numeroencontrado = Format(Date, "yyyy") & Format(Date, "mm") & "001"
'devolve ao campo a nova numeração
Me.Titulo.Value = numeroencontrado
Else
'se já existir numeração na tabela, acrescenta +1
proximoNumero = Right(DMax("Titulo", "tb_guia_assistencia_medica"), 3) + 1
'devolve ao campo a nova numeração
Me.Titulo.Value = Format(Date, "yyyy") & Format(Date, "mm") & Format(proximoNumero, "000")
End If

'vai para novo registro
'DoCmd.GoToRecord , , acNewRec
DoCmd.RefreshRecord

End Sub

Tente ai

If IsNull(Me.Titulo) Then
Me.Comando120.SetFocus
MsgBox "Willian sua mensagem!", vbInformation, "Atenção!"
End if
Exit sub

Lupércio,

Testei e parou de gerar o número no campo Titulo. Preciso que ao verificar que o número já foi gerado ele não execute a rotina toda novamente para não gerar outro número de titulo para o registro. Será que utilizando o Not não indicaria que se o campo não é nulo ou seja se já tem valor ele deve escapar e apenas apresentar a mensagem?

cordialmente
Williams.

If Not IsNull(Me.Titulo) Then
Me.Comando120.SetFocus
MsgBox "Willian sua mensagem!", vbInformation, "Atenção!"
End if
Exit sub

Se não conseguir, e puder disponibilizar o bd, tentaremos lhe ajudar!