tenho um formulario onde ao clicar no botão salvar, eu adiciono registros em 6 tabelas diferentes, meu problema é o seguinte.
Preciso que quando eu abrir o formulario, seja checado as 6 tabelas, e se tiver registro nas 6 tabelas, preciso que os botões adicionar sejam desabilitados.
estava tentando esse codigo mas não acontecia nada.
If Not IsNull(DLookup("codigo", "Tbaprovacao1")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao2")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao3")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao4")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao5")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao6")) Then
cmdeditar.Enabled = True
cmdsalvar.Enabled = True
End If
End If
End If
End If
End If
End If
Preciso que quando eu abrir o formulario, seja checado as 6 tabelas, e se tiver registro nas 6 tabelas, preciso que os botões adicionar sejam desabilitados.
estava tentando esse codigo mas não acontecia nada.
If Not IsNull(DLookup("codigo", "Tbaprovacao1")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao2")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao3")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao4")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao5")) Then
If Not IsNull(DLookup("codigo", "Tbaprovacao6")) Then
cmdeditar.Enabled = True
cmdsalvar.Enabled = True
End If
End If
End If
End If
End If
End If