[Resolvido]Aplicando caminho em todos os campos pictures

Bom Dia!

Hoje surgiu mais uma dúvida, não sei como aplicar caminhos para todas as imagens, onde ele lê o nome do campo A1 to A99, B1 to B22 e então aplica no caminho Picture a imagem A.png ou B.png

Exemplo, na minha pasta do banco, tem uma pasta escrito Icones, e dentro desta pasta tem imagens com nomes assim:
A.png
B.png
C.png

E nos formulários os nomes das imagens estão com a mesma condição.
A1
A2
A3
B1
C1

Então desta maneira, Toda vez que o botão tem um A+número significa que correponde a image A.png e então se aplica o caminho em picture.

Estou usando por enquanto esta gambiarra

Código:

caminho = Application.CurrentProject.Path
    subcaminho = "\Icones"
    imgp = caminho & subcaminho
    x1 = "\Imagem1.png"
    Me.Imagem1.Picture = imgp & x1

Sei que falta muito ainda pra eu aprender o jeito correto, mas essas gambiarras vem me ajudando muito
mas eu gostaria de saber como simplificar isto?

Tentei desta maneira, mas não funcionou...

Onde estou errando?

Código:

Public Function ImgX(frm As Form)
On Error Resume Next
Dim ctl As Control
base = CurrentProject.Path & "/Icones/"
Dim x
Dim i

If Forms(x).Visible = True Or Forms(x).Visible = False Then
Fo = Forms(x).Name
End If

For Each ctl In frm.ControlType
Select Case ctl.ControlType
Case acImage

For i = 1 To 99
Select Case ctl(i).Name
Case A1 To A99
    ctl(i).Name.Picture = base & "A.png"
Case B1 To B99
    ctl(i).Name.Picture = base & "B.png"
Case C1 To C99
    ctl(i).Name.Picture = base & "C.png"
Case D1 To D99
    ctl(i).Name.Picture = base & "D.png"
Case E1 To E99
    ctl(i).Name.Picture = base & "E.png"
Case F1 To F99
    ctl(i).Name.Picture = base & "F.png"
Case Else
    ctl(i).Name.Picture = base & "error.png"
End Select
Next i
   
    End Select
    Next ctl
End Function

Não sei se entendi bem, mas talvez seja algo assim:

Código:

Public Function imgPath(frm As Form)

Dim cmp As Control

For Each cmp In frm.Controls
   If cmp.ControlType = acImage Then
      cmp.Picture = CurrentProject.Path & "\Icones\" & Left(cmp.Name, 1) & ".png"
   End If
Next

End Function

Teste para ver se é isso mesmo.

É exatamente isto criquio, mas eu tenho aquele módulo de deixar o formulário personalizado usando uma imagem e então ocultar todo o access e somente a imagem fica visível, quando uso este código pega até ele, como é possível que ele seja a exceção?

[Editado]
Criquio foi simples, é que eu estava um pouco com a cabeça quente então não consegui pensar no mais simples do simples...

Muito obrigado Criquio e você tem minha gratidão! o código foi mais fino e leve do que eu imaginava!

Código:

Public Function imgPath(frm As Form)

Dim cmp As Control

For Each cmp In frm.Controls
  If cmp.ControlType = acImage And cmp.Name <> "imgFormBG" Then
      cmp.Picture = CurrentProject.Path & "\Icones\" & left(cmp.Name, 1) & ".png"
  End If
Next

End Function


Então está resolvido? Se sim, já pode clicar no botão Resolvido

Como faço pra executar este codigo??
Criei uma macro com "ExecutarCodigo" e coloquei o nome da função com o nome do form (imgpath(funcionarios) mas da erro, o access diz que nao pode localizar o nome "funcionarios" inserido na EXPRESSÃO, oque pode ser isso?

o codigo ta assim:

Código:


Public Function imgPath(frm As Form)
Dim foto As Control

For Each foto In frm.Controls
    If foto.ControlType = acImage Then
    foto.Picture = CurrentProject.Path & "\Fotos\" & foto.Name & ".jpg"
    End If
   
Next

 
End Function


Para colocar na macro, tente colocando Forms! antes do nome do formulário. Mas o formulário tem que estar aberto. E estando ele aberto, nem precisa de macro, pode usar os eventos dele.

Aeee bacana funcionou!!
vlw criquio