MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]só guardar depois de prencher todos campos

    mirsofy
    mirsofy
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 321
    Registrado : 09/07/2011

    [Resolvido]só guardar depois de prencher todos campos Empty só guardar depois de prencher todos campos

    Mensagem  mirsofy 20/7/2012, 22:26

    boas noites
    venho mais uma vez recorrer aos vossos conhecimentos para mais uma ajuda.
    apos consultar os exemplos postados aqui encontrei um que me satisfaz as minhas necessidades para este meu novo projecto,
    Validacamposnulos do JPaulo, mas ao adaptar na minha BD da-me este erro:

    ""

    Private Sub Command4_Click()
    'By JPaulo ® Maximo Access
    If ValidaCamposNulos = False Then
    Cancel = True
    Else
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    MsgBox "Registro Salvo com Sucesso...", vbInformation
    DoCmd.Close
    End If
    End Sub


    Private Function ValidaCamposNulos() As Boolean
    'By JPaulo ® Maximo Access
    ValidaCamposNulos = True
    Dim ctl As Control
    Dim strName As String
    For Each ctl In Me.Controls
    If IsNull(ctl) Then
    strName = ctl.Controls(0).Caption
    ValidaCamposNulos = False
    MsgBox "Preencha o Campo " & Chr(34) & strName, vbCritical
    ctl.SetFocus
    Exit Function
    End If
    Next ctl
    End Function

    ""
    gostaria de entender o que estou a fazer mal, ou o que me falta fazer

    grato pelos apoio

    mirsofy
    mirsofy
    mirsofy
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 321
    Registrado : 09/07/2011

    [Resolvido]só guardar depois de prencher todos campos Empty Re: [Resolvido]só guardar depois de prencher todos campos

    Mensagem  mirsofy 20/7/2012, 23:04

    assunto resolvido

      Data/hora atual: 7/11/2024, 15:41