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.
Olá!! Sou um brasileiro!
Estou adorando o site, mas alguns arquivos não estão mais disponibilizados.
Gostaria de saber se seria possível recebê-los.
Atenciosamente
Paulo de Tarso
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
Boas,
Andava para aqui a pesquisar o como fazer uma base de dados para animais e vi o vosso post.
Mas ñ tou a conseguir alterar como queria.
A ficha tá óptima mas eu precisava de poder relacionar os pais, ou seja escolher quem é o pai e a mãe para depois fazer um registo de cada animal…
Para fazer tipo arvore genealógica.
Se me poderes ajudar agradecia.
Cumprimentos.
Já agora dá para por a trabalhar sem a janela do M. Access?
Crie dois campos na sua tabela onde serão registrados o “ascendente pai” e “ascendente mãe”. Os ascendentes de nível mais alto ficam com esses dois campos nulos ou vazios.
Para montar as consultas que vão gerar relatórios, coloque a tabela 3 vezes na grade. A primeira é para o animal que está sendo visualizado. A segunda é para o “ascendente pai”, relacionada com a primeira pelo campo Pai. A terceira é para o “ascendente mãe”, relacionada com a primeira pelo campo Mãe.
Assim você pode tratar N gerações sem perder os relacionamentos.
boas,
será possivel disponibilizar novamente o ficheiro abrigo dos animais?
muito obrigado
Olá,
Já verifiquei que alguns exemplos não estão disponíveis. Durante o fim-de-semana vou tratar de os pôr novamente.
Obrigado.
Olá para ficar 100% o programa, só faltou gerar o relatório (único por cadastro), que exiba junto a foto para a impressão, brigado pelo programa!!!
Boa noite! Adoro esse site e estou aprendendo muita coisa aqui. Gostaria de uma ajuda em um BD do qual irá registrar entrada de pessoas em um estabelecimento de dependentes. Ele tem que ter os dados pessoais do parente do internado como nome, endereço, telefone, data da visita,foto, grau de parentesco, e observaçoes. Abaixo tem que ter os dados da pessoa que está fazendo o tratamento.
Nome, idade, n do bloco, n do quarto, regime e relação de material recebido. Sendo que esse ultimo ficaria assim. Material recebido ()sim ()não Caso marque sim, abre-se uma relação de todas as roupas que ele recebeu na ultima visita, sendo que roupa só pode entrar de 6 em 6 meses e a provável data em vermelho para que pudesse entrar de novo, ou seja, recebeu roupa hoje, só daqui seis meses na data tal poderia entrar. Me ajude ai galera. Abraço