SABER SE EXISTE / NO CAMPO

USUARIO.EXCLUIDOS 30/03/2005 16:18:32
#75831

Não entendi, pode ser mais claro?

Abraços...

Junior Mascioli

USUARIO.EXCLUIDOS 30/03/2005 16:27:37
#75834 Resposta escolhida

Dim Texto1 as string
Dim Texto2 as string
Dim contador1 as integer
Dim contador2 as integer
texto1 = "V/BMANIA"
texto2 = "VBM/ANIA/"
contador1 = InStr(1, Texto1, "/", 0)
contador2 = InStr(1, Texto2, "/", 0)
if contador1 > 0 then msgbox "foi encontrado " & contador1 & " barra"
if contador2 > 0 then msgbox "foi encontrado " & contador2 & " barra"

USUARIO.EXCLUIDOS 30/03/2005 16:32:32
#75835

uma explicação rapida
o instr retorna a quantidade de ocorrencias encontrada na busca em uma string
o primeiro parametro é para identificar a partir de qual caracterer começara a busca se omitido a posição é 1
o segundo parametro é para passagem da string a ser pesquisada
o terceiro parametro é a string a ser procurada dentro da string pesquisada
o quarto parametro é para o tipo de comparação
0 = binaria
1 = textual
2 = para comparação com base de dados ACCESS(sinceramente esta nunca usei e não sei para que serve)