DMax Condition

[Luis Ferreira]

Hello All,

This is the code i have on the form:

Public Function NovoSujeito() As Long
On Error GoTo NovoSujeito_Err
Dim ProcuraUltimo As Long
'Procura o sujeito maior e adiciona 1
ProcuraUltimo = Nz(DMax("[Cod]", "Sujeitos")) + 1

'Atribui o valor ao novo Sujeito
NovoSujeito = ProcuraUltimo
'Sair da função depois de atribuir o valor ou de um erro
Exit_NovoSujeito:
Exit Function
'Mensagem de erro, se existir e depois sai
NovoSujeito_Err:
MsgBox "Error " & Err & ": " & Error$
Resume Exit_NovoSujeito
End Function

Private Sub cmdNewId_Click()

'Ao clicar é gerado um novo código de sujeito, o foco vai para o Tipo de Sujeito
Me![Cod] = NovoSujeito()


Me![TpSujeito].SetFocus
Me![cmdNewId].Enabled = False
End Sub


My problem is that i have more than one TpSujeito.

I already try
Nz(DMax("[Cod]", "Sujeitos", "[TpSujeito] = 'Me.TpSujeito'"))+1

But he returns
Error 3464

The field TpSujeito is a combo box

Thanks is Advance

[pbaldy]

Your syntax isn't quite right. Here's a good reference:

DLookup Usage Samples

[Luis Ferreira]

Thanks Very Much

[pbaldy]

No problemo.