MrMALJ

Dá uma olhada nesse link. https://sites.google.com/site/pfntec/modelo...-de-dados---vba

Achei código publicado pelo Cougo membro do forum expertaccess que informa que deve habilitar a referência Microsoft Office 11.0 Object Library ou Microsoft Office 12.0 Object Library. Dim CxDialog As Office.FileDialog Set CxDialog = Application.FileDialog(msoFileDialogFilePicker) With CxDialog 'define como seleção simples .AllowMultiSelect = False ' Define o titulo da caixa de diálogo .Title = "Selecione o arquivo" ' limpa os filtros .Filters.Clear 'adiciona novos filtros .Filters.Add "Arquivos de texto", "*.txt" .Filters.Add "Todos os arquivos", "*.*" 'mostra a caixa de dialogo If .Show = True Then 'se algum arquivo tiver sido escolhido 'atribuie o endereço do arquivo a caxa de texto Me.txtArquivo = .SelectedItems(1) End If End With A função deve funcionar para selecionar arquivos o que você tem de fazer agora e chamar os arquivos que você selecionou, não testei o código mas creio não haver muita dificuldade em repassar os arquivos selecionados para uma caixa de texto e executarão sua importação.

Você quer que os anexos aparecam separados ao invés de aparecem a quantidade de anexos existentes?

Da forma que vocÊ quer, terá de fazer as caixas de texto e outros objetos não acopladas a tabela, assim ao clicar no botão você terá que executar uma expressão SQL com INSERT.

Achei também que não ficou muito claro a sua intensão.

A ta entendi, então vou mover seu tópico para sessão que trata de ASP.

Amigo, numa bre olhada no seu código parece tudo ok, tente pegar essa linha de código e faça uma consulta para testar a integridade dele e em seguida mude para o modo design da consulta para ver o que pode estar errado.

Utilize a função DATEADD(). DateAdd("yyyy",2,suaData) No exemplo a função retorna uma data acrescida de 2 ano.

O VISIBLE eu usei tambem para exibir ou não o subformulario, e como disse antes e você pode notar no exemplo que utilizo, a consulta tem como critério uma caixa de texto do formulário principal, assim se você criar outras consultas (para outros subformularios) que utilizem esse mesmo como criterio não haverá problemas já que também pode ser visto na consulta que utilizei o LIKE e assim se nenhum criterio for especificado ele traz tudo que houver. Assim sendo você só teria que adaptar a ideia ao seu problema, pois o que pediu se resolve fazendo de forma semelhante ao aqui exemplificado.

Utilize o DLOOKUP(), tem varios exemplos dele no forum, utilize a busca.

Fiz um exemplo bem simples espero que o ajude. O arquivo está zipado, algumas vezes ao fazer download dos arquivos anexos nos forums ficam sem estensão é só adicionar a extensão que fica ok (.zip). No caso eu fiz uma consulta com like para pegar qualquer coisa que inicie com o q você informar, a tabela tem apenas 3 ou 4 registros. Aguardo retorno para colocar resolvido no tópico. tstFiltro.zip

Se no critério da consulta que gera o subformulario, estiver a caixa de texto do formulario principal, ele não pedirá nada.

Dá uma olhada neste link. http://office.microsoft.com/pt-br/access-h...A001213852.aspx

Você pode colocar esse novo formulario como sendo um sub-formulario do primeiro deixa ele invisivel e usa a propriedade visible com o vba para exibir e ocultar o sub, claro não esqueça do requery para atualizar os dados.

Ai está fera, agora as pequenas correções são com você. (arquivo zipado) Agora acho que resolveu. bd1.zip

Não explicou muito, mas acho que o DLOOKUP() resolve isso, e há bastante exemplo de uso dele aqui no forum.

Faça um novo formulario baseada na consulta que você gerou e abra ela após o criterio.

As consultas que me referi você pode cria-las utilizando o assistente do access. Tente e veja que é bem prático.

Você está utilizando uma consulta para gerar o subformulario? -Caso esteja veja se há algum critério que esteje forçando isso. -Outra veja como está o relacionamento entre as tabelas. -Ou ainda verifique como está sendo feita a ligação entre o subformulário e o principal.

Fera crie um campo do auto numeração, depois faca uma consulta que pegue somente o intervalo que deseja atualizar e faz um update nos valores null repassando o valor desejado.

Tambmém não sou bom nisso, mas creio que esse link possa lhe ajudar. http://dev.mysql.com/doc/refman/5.0/en/create-trigger.html

Já deu uma olhada nisto: http://dev.mysql.com/doc/refman/5.5/en/tim...ne-support.html Pode ser que lhe ajude.

Tente utilizar o distinct row para fazer isso para você.

Aquele select no insert vocÊ tá pegando de qual tabela? (informe tambem qual erro esta dando.

Pelo que vi no seu código você está comparando uma data com uma hora. $sql = mysql_query("select * from avisos WHERE str_to_date(classExpira, '%Y/%m/%d') <= 'curdate()' "); Assim vocÊ compara sua data com a data do sistema.