Não executar código em campo vazio

Olá,
tenho um formulário que serve para atualização de dados, caso o usuário resolva editar uma informação que ele lançou anteriormente.
ocorre que um dos campos pode estar vazio ou ter suas informações apagadas pelo usuário.
Como fazer o UPDATE entender isso?

Código:

Dim DB As DAO.Database
Set DB = CurrentDb()
DB.Execute "UPDATE produtividade SET pessoas= " & Me.pessoas & " where produtividade.codproduti= " & Me.codProduti & ""
DB.Execute "UPDATE produtividade SET opo= " & Me.opo & " where produtividade.codproduti= " & Me.codProduti & ""
MsgBox "Deseja confirmar as alterações de produtividade?", vbCritical, "Atenção"
DoCmd.Close
'Forms![Telainicial].Refresh
End Sub

Dessa forma aí, caso o campo "opo", por exemplo, esteja vazio, o código dá erro. E, caso eu precise que o conteúdo dele seja deletado? O ideal seria que o UPDATE gravasse nada... Como fazer isso?

Obrigado

tente usar a funcao nz. exemplo:

Código:


DB.Execute "UPDATE produtividade SET opo= " & nz(Me.opo,"") & " where produtividade.codproduti= " & Me.codProduti & ""
'a funcao nz substitui o nulo por qualquer outro valor. nz(campo,valorSeNulo)


Certo, até aí tudo bem, primeira parte solucionada. Agora imagine que o dado já existe e que eu preciso apagá-lo.
Como eu insiro um valor nulo se o campo estiver nulo?
Exemplo: opo tem o valor 2, mas o usuário deseja apagar e deixar em branco (não pode ser 0)
nz(campo, nulo)

Como fazer?
Obrigado!

Vê se isto ajuda:

Código:

     Dim DB As DAO.Database
      Dim strSQL_Update As String
      
      Set DB = CurrentDb()
      strSQL_Update = "UPDATE Produtividade SET " _
                                          & "pessoas= '" & Me.pessoas & "' " _
                                          & ",opo= " & IIf(Me.opo <> "", Me.opo, Null) & " " _
                                    & "WHERE ( codproduti= " & Me.codProduti & " ) "
            
      DoCmd.RunSQL (strSQL_Update)
      MsgBox "Deseja confirmar as alterações de produtividade?", vbCritical, "Atenção"
      DoCmd.Close
      'Forms![Telainicial].Refresh

Ainda não funcionou

Boa tarde,

Código:

    Dim Rst As DAO.Recordset
    Set Rst = CurrentDb.OpenRecordset("SELECT Produtividade WHERE codproduti= " & Me.codProduti)
    With Rst
        !pessoas = Me.pessoas
        !opo = Me.opo
    End With


Não entendi a pergunta na caixa de mensagem, sem possibilidade de escolha