[Resolvido]Caixa de listagem

emacsabino 17/5/2013, 14:40

emacsabino: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 190
Registrado : 29/08/2011

Mensagem nº1

Caixa de listagem

Mensagem emacsabino 17/5/2013, 14:40

Galera estou usando o seguinte código para uma caixa de listagem:
Dim X As String
X = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".jpg"

Me.Lista0.Value = X
Linha = Me.Lista0.ListIndex

If Me.Lista0.Selected(Lista0.ListIndex) = False Then
Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & "02.jpg"
Me.Texto7 = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & "02.jpg"
Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value
Else

Me.Texto7 = Me.Lista0.Value
Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value

End If

Ao carregar o formuário ele procura um valor na caixa de listagem que é xxxx.JPG, se a caixa de listagem não encontrar esse valor ele vai para xxxx02.JPG, a questão é que entre foto xxxx.jpg e xxxx02.jpg ainda tem uma foto xxxx01.jpg e ai não tou conseguindo colocar uma condicional para verificar as três fotos, apenas duas, já tentei colocar do jeito abaixo , mas não dá certo:

If Me.Lista0.Selected(Lista0.ListIndex) = False Then
Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & "02.jpg"
Me.Texto7 = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & "02.jpg"
Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value
ElseIf Me.Lista0.Selected(Lista0.ListIndex) = False Then
Me.Lista0.Value = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & "01.jpg"
Me.Texto7 = Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & "01.jpg"
Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value
Else

Me.Texto7 = Me.Lista0.Value
Me.Imagem6.Picture = "C:\Fotos\" & Me.Texto7.Value

End If[/color]

Depois tentei mudar o false para true no elseif mas também não rodou, o que eu poderia então mudar para dá certo?

Convidado 17/5/2013, 16:14

Convidado

Convidado: Convidado

Mensagem nº2

Re: [Resolvido]Caixa de listagem

Mensagem Convidado 17/5/2013, 16:14

Poste o exemplo para que possamos ver.

Cumprimentos.

emacsabino 17/5/2013, 16:49

emacsabino

emacsabino: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 190
Registrado : 29/08/2011

Mensagem nº3

Re: [Resolvido]Caixa de listagem

Mensagem emacsabino 17/5/2013, 16:49

fiz agora diferente, fiz através de uma função só que quero que seja verificado os três arquivos ao mesmo tempo, se nenhum dos três existir então informa que não existe foto, veja:

Function CaminhoExiste(sCaminho As String) As Boolean
'Testa se um caminho ou arquivo existe (ou é válido)

'Caso deseja testar se um caminho existe, certifique-se que o
'parâmetro de entrada sCaminho TERMINE com uma \, como, por
'exemplo, CaminhoExiste("c:\temp\felipe\"). Caso
'contrário, a função buscará um arquivo chamado felipe, sem
'extensão, na pasta c:\temp.

If Dir(sCaminho) = vbNullString Then
CaminhoExiste = True
Else
CaminhoExiste = False
End If

'A forma abreviada da função pode ser escrita como:
'CaminhoExiste = Dir(sCaminho) <> vbNullString
End Function

Private Sub Form_Load()
Dim X As String
Dim Y As String
Dim Z As String
Dim a As String

Y = "C:\Fotos\" & Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & "01.jpg"
Z = "C:\Fotos\" & Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & "02.jpg"
a = "C:\Fotos\" & Forms!EditarDadosDoDetento!Prontuário & " - " & Forms!EditarDadosDoDetento!Texto46 & ".jpg"

If CaminhoExiste(a) Then// Bem aqui eu queria que ele testasse para a,z,y ao mesmo tempo, só que não tou conseguindo fazer a sintaxe
MsgBox "O detento não possui foto arquivada" _
, vbInformation _
, "Informação"

End If