NOME DO CAMPO AUSENTE NO BD ACCESS - ERRO 3265

MARCELO.TREZE 17/07/2011 20:35:39
#379402
la vai eu de novo.

Robson vc pretente ficar mudando a consulta em tempo de execução?

isso não é viavel
ROBIU 17/07/2011 20:37:12
#379403 Resposta escolhida
eu montei uma função para verificar se o campo existe antes de ser usado:

Function Campo(NomeCampo As String) As String
        Dim i As Integer, b As Boolean
        For i = 0 To DataCliente.Recordset.Fields.Count - 1
            If (DataCliente.Recordset.Fields(i).Name = NomeCampo) Then
                b = True
                Exit For
            Else
                b = False
            End If
        
        Next i
        
        If b = True Then
            Campo = DataCliente.Recordset.Fields(NomeCampo).Value
        Else
            MsgBox [Ô]O Campo [Ô] & NomeCampo & [Ô] não existe na Tabela : [Ô] & DataCliente.RecordSource
        End If
End Function


Para usar esta função:

    Txt(0).Text = Campo([Ô]Nome[Ô]) [ô]Nome
    Txt(1).Text = Campo([Ô]Endereco[Ô])  [ô]ENDEREÇO
    Txt(2).Text = Campo([Ô]Complemento[Ô])  [ô]COMPLEMENTO
    Txt(3).Text = Campo([Ô]Bairro[Ô]) [ô]BAIRRO
    Txt(4).Text = Campo([Ô]Cidade[Ô]) [ô]CIDADE
    Txt(5).Text = Campo([Ô]Estado[Ô]) [ô]ESTADO
    Txt(6).Text = Campo([Ô]Cep[Ô]) [ô]CEP
    Txt(7).Text = Campo([Ô]Telefone[Ô])  [ô]TELEFONE


Segue o projeto modificado
ROBSON 17/07/2011 20:49:44
#379405

Olá Robiu,

DEU CERTO!

Voce adaptou o meu exemplo e colocou a solução com esta função.
Está de parabens.
Muito obrigado.
Página 2 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar