(Resolvido) Inserir Fotos No Formulário

[D@rk]

Oláaa pessoal bom dia,

Estou de volta ao fórum dps de um tempo ausente. Por sinal és uma dúvida de Access rsss.

Seguinte, gostaria de inserir fotos de um cadastro de pessoas, para cada pessoa uma foto personalizada. Porémmm eu consegui fazer com que guarde as fotos no BD, mas sem chance de permanecer esse sistema, senão meu banco vai ficar muito grande. Gostaria de saber como poderia apontar para cada foto sem ter que guardar no banco.

Eu dei uma olhada no banco de dados do Northwind o exemplo que vem no Access e gostei. Gostaria q ficasse desta forma:

você clica num botão adicionar e ele abre a tela de pesquisa do seu computador para adicionar a foto.

Aproveitando, gostaria de deixar uma msg de bom dia, boa tarde ou boa noite qd entrar no form principal. Até fiz só que não esta funcionando

Mensagem de Bom dia, boa tarde ou boa noite

CODE

If Time$ >= "00:00" And Time$ < "12:00" Then

[Campo]= "Bom Dia!"

End If

If Time$ >= "12:00" And Time$ < "18:00" Then

[Campo] = "Boa Tarde!"

End If

If Time$ >= "18:00" And Time$ <= "23:59" Then

[Campo] = "Boa Noite!"

End If

Criei uma caixa de texto não acoplada e coloquei o código após atualizar, como seria ?

Grato,

[]´s

Editado Agosto 27, 2007 por D@rk

[MrMALJ]

Fera, criei um objeto OLE não acoplado pra imagem toh usando as propriedades de evento "Ao receber foco" e "apos atualizar" dos outros campos.

Quanto a outra dúvida vou deixando o exemplo que fiz e que está funcionando perfeitamente aqui pra "bom dia" e "boa tarde" o outro você implementa.

If Time() > #12:00:00 AM# And Time < #12:00:00 PM# Then
    Me.seuCampo.Value = "Bom Dia!"
Else
    Me.seuCampo.Value = "Boa Tarde!"
End If

MrMALJ.zip

[D@rk]

Fera, criei um objeto OLE não acoplado pra imagem toh usando as propriedades de evento "Ao receber foco" e "apos atualizar" dos outros campos.

Quanto a outra dúvida vou deixando o exemplo que fiz e que está funcionando perfeitamente aqui pra "bom dia" e "boa tarde" o outro você implementa.

If Time() > #12:00:00 AM# And Time < #12:00:00 PM# Then
    Me.seuCampo.Value = "Bom Dia!"
Else
    Me.seuCampo.Value = "Boa Tarde!"
End If

Resolvido tudo mestre, muito obrigado ^^

Ficou show de bola.

[]´s

Editado Agosto 28, 2007 por D@rk

[criartmacedo]

como faço para a foto aparecer nos relatorios?