Página 1 de 1

Gravar Campo vazio no Aplicativo de Cadastro Access 2018

Enviado: Seg Jun 11, 2018 12:53 pm
por GiovaneMU
Boa tarde a todos, sou novo aqui no fórum e estou utilizando o aplicativo de cadastro via access 2018 disponibilizado aqui no fórum, porém, eu estou estagnado em um problema que não consigo resolver.
Já procurei de cabo a rabo aqui no fórum e no Google, porém, sem sucesso.

Meu problema é o seguinte, eu usei aplicativo para criar um formulário a partir de uma data base do access que contem campos de número e data, até ai sem problemas, mas, ao preencher o formulário e salvar os dados no BD, eu não posso deixar esses campos em branco mesmo não sendo um campo obrigatório e o campo de Data é preciso que esteja escrito no formato "dd/mm/aaaa" senão eu não consigo grava-lo no access.

O que eu preciso é que haja uma maneira de eu salvar esses campos mesmo em branco.

Obs: campos de texto curto não tem esses problemas.

Conto com a ajuda de todos. Obrigado.

Uma coisa que eu descobri, é que todas as vezes que tento salvar um campo de Data em branco, gera um erro de "Formato inválido", e o erro é redirecionado para esta formula:

Código: Selecionar todos

Private Function GetValue(ctl As MSForms.Control, strTypeName As String) As Variant
On Error GoTo HandleError
    Dim Value As Variant
    Value = ctl.Value
    If IsNull(Value) And strTypeName <> "Variant" Then
        Select Case strTypeName
        Case "String"
            Value = ""
        Case Else
            Value = 0
        End Select
    End If
HandleExit:
    GetValue = Value
    Exit Function
HandleError:
    Resume HandleExit
End Function
Pelo o que eu entendi, esta formula verifica se o campo está sem valor e define um valor para o mesmo, porém não funciona com data, já tentei de inúmeras formas, mas sempre pede que esteja no formato certo.