Quando alguma coluna da caixa de combinação fica em branco

Software: PDV - Softshop Caixa | Grupo: PDV | Prioridade: ALTA

Solução

Causa:
Bug do Access: quando tem formato ">" no campo texto na tabela.

Solução:
1-Executar função Abaixo:

Public Function ApagarFormato() Dim tbl As DAO.Recordset Dim tbd As TableDef Dim fldLoop As Field Dim fldprp As Property Dim NomeTabela As String Dim nomeCampo As String NomeTabela = "" nomeCampo = "" With CurrentDb 'percorre as tabelas do banco de dados For Each tbd In .TableDefs DoEvents NomeTabela = tbd.Name If Left(NomeTabela, 4) <> "MSys" And _ Left(NomeTabela, 4) <> "USys" And _ Left(NomeTabela, 4) <> "~TMP" Then 'verficar se o campo é texto For Each fldLoop In tbd.Fields DoEvents nomeCampo = fldLoop.Name If fldLoop.Type = 10 Then For Each fldprp In fldLoop.Properties DoEvents If fldprp.Name = "Format" Then Debug.Print "Tabela: " & NomeTabela & " Campo: " & fldLoop.Name fldLoop.Properties.Delete ("Format") End If Next fldprp End If Next fldLoop End If Next End WithEnd Function

---

Tags: branco, combo, descricao