Results 1 to 4 of 4
  1. #1
    Luis Ferreira is offline Novice
    Windows 7 Access 2010 (version 14.0)
    Join Date
    Oct 2010
    Posts
    6

    DMax Condition

    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

  2. #2
    pbaldy's Avatar
    pbaldy is online now Who is John Galt?
    Windows XP Access 2007
    Join Date
    Feb 2010
    Location
    Nevada, USA
    Posts
    22,642
    Your syntax isn't quite right. Here's a good reference:

    DLookup Usage Samples
    Paul (wino moderator)
    MS Access MVP 2007-2019
    www.BaldyWeb.com

  3. #3
    Luis Ferreira is offline Novice
    Windows 7 Access 2010 (version 14.0)
    Join Date
    Oct 2010
    Posts
    6
    Thanks Very Much

  4. #4
    pbaldy's Avatar
    pbaldy is online now Who is John Galt?
    Windows XP Access 2007
    Join Date
    Feb 2010
    Location
    Nevada, USA
    Posts
    22,642
    No problemo.
    Paul (wino moderator)
    MS Access MVP 2007-2019
    www.BaldyWeb.com

Please reply to this thread with any new information or opinions.

Similar Threads

  1. Macro Condition
    By eww in forum Programming
    Replies: 5
    Last Post: 08-27-2010, 10:59 AM
  2. condition in macros
    By frcastro in forum Programming
    Replies: 1
    Last Post: 06-23-2010, 03:16 AM
  3. hours + condition
    By Miriam in forum Queries
    Replies: 0
    Last Post: 08-09-2009, 06:46 AM
  4. How to use IIF condition
    By nshaikh in forum Queries
    Replies: 4
    Last Post: 09-12-2008, 01:23 AM
  5. DMax returning wrong value
    By nedbenj in forum Access
    Replies: 7
    Last Post: 10-24-2007, 10:30 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums