[Resolvido]Problema com botao Salvar

Olá!

Está como autonumeração e está repetindo? Como é possível?

Para condicionar o Salvar ao preenchimento de tal campo, use o evento BeforeUpdate.

Private Sub Form_BeforeUpdate(Cancel As Integer)
  If IsNull(NomeCampo) Then
    Cancel = True
    MsgBox "Preencha o campo tal"
  End If
End Sub

Mas então você tem algum problema aí no seu aplicativo.
Se quiser, a gente dá uma olhada...

No meu caso, precisa disponibilizar na versão 2003.

Código:


Private Function TestaCampos() As Boolean
    Dim I As Integer
    Dim strMsg As String
    Dim strTitle As String
     
    TestaCampos = True
If Me!IDCliente <> 0 Then  '<-----Troque o nome do controle para o nome do teu controle
    'inicia o loop pelos controle do formulário
    'a contagem começa em zero (0) até  x-1
    For I = 0 To Me.Count - 1
        'se o controle tem a marca(tag) = t então
        If Me(I).Tag = "t" Then
            'se o campo está vazio então
            If IsNull(Me(I)) Or Me(I) = "" Then
                'emite mensagem acompanhado do nome do controle
                strMsg = "É obrigatório o preenchimento do campo '" & Me(I).Name & "'!"
                strTitle = "Campo em Branco"
                MsgBox strMsg, 48, strTitle
                'move o foco para o controle
                Me(I).SetFocus
                TestaCampos = False
             
                Exit Function
            End If
        End If
    Next I

End If
End Function