Fichas para um abrigo de animais
Este é um exemplo a pedido da leitora Sónia Campos que pretende uma base de dados para registar dados de animais. É uma base de dados simples com apenas um formulário para entrada de dados com fotografia do animal.
Download:Â Abrigo Animais
Qualquer modificação é só comentar aqui.
Era mesmo isto =)
Muito obrigado*
Agora vou.me dedicar a lêr mais qualquer coisa sobre o access …tenho de aprender a fazer isto sozinha =)
Ainda bem que pude ajudar. Qualquer coisa é só perguntar.
como é que fazes o botao de adicionar foto??
estou a desenvolver um aplicaçao e isso é muito interessante
bgada beijo
O exemplo tem um modulo ‘localizar’ que faz a procura pelas imagens (faça importar para o projecto que quiser fazer). Tem que primeiro criar na tabela o campo ‘localfoto’ que é onde vai guardar a localização da foto. Depois no formulário tem que ter esse campo que é onde ele vai ler o caminho para a foto e um campo do tipo ‘imagem’ que é onde vai aparecer a imagem. Depois é só criar um botão e colocar no evento ‘ao clicar’ as instruções como tem no exemplo, que é o seguinte:
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = “C:Meus Documentos”
‘Local onde inicia a caixa de procura de imagens
strCaminho = Buscar(Me.hwnd, “Inserir foto”, strPastaInicial, _
“Arquivos gráficos (*.bmp; *.gif; *.jpg)” & vbNullChar & “*.bmp; *.gif; *.jpg”)
If Len(strCaminho) > 0 Then
Me.Localfoto = strCaminho
‘Aqui coloca o caminho no campo ‘local foto’
Me.Foto.Picture = Me.Localfoto
‘ E aqui coloca a foto que está no caminho do campo ‘local foto’
End If
Qualquer dúvida diga que eu explico.
Eu queria formularios prontos para fazer o meu curso sobre access é formulários de cadatros de pessoas em empresas