MrMALJ

Bom me parece que a solução passada pelo Elber está correta, o que falta é implementa-la para seu bd, eu faria isso mais tenho que entregar uma aplicação de calculo com urgência e não toh podendo parar, só estou entrando pra ver os tópicos estão OK. Mais assim que terminar aqui eu tenta ver o seu!

Veja isso só ocorre se as tabelas estiverem em outro banco, dai seria necessário você informar onde está a origem das tabelas!

Fera tenha em mente que o CD é somente para leitura, por exemplo mesmo que você copie sua aplicação (MDB ou MDE) para uma pasta no seu HD apartir de um CD essa aplicação ainda irá permanecer com o atributo de leitura na sua propriedade, mais caso queira utilizar tudo apartir do CD, ele teria que ser RW e estar sempre aberto e formatado!

Crie um procedimento que verifique em vendas se este atendimento já existe, se existir mova o ponteiro para este registro senão abra um novo registro de venda e transfira o número do atendimento para a nova venda (forms!vendas!atendeVendas.value=atendimento)...

Resolveu?

Fera acho que deve haver sim um modo de fazer isso que você mencionou, acho que usando APIs mais nem posso dizer qual delas pois nunca fiz isso, mais vou dar uma pesquisada se eu achar algo eu posto aqui e espero que se conseguir algo tambem coloque aqui paara quem vier a prcisar!

Fera seguinte eu tive que fazer algo semelhante mais no meu caso para busca de processos, então eu criei uma caixa de texto não acoplada onde eu informo o numero e ocultei a caixa codProcesso e toda que vez que digito um processo diferente já faz a validação e quando encontra ele move para o registro encontrado veja a seguir: If Not IsNull(DLookup("[numero]", "procExiste")) Then Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[numero]='" & Me.tstProc & "'" Me.Bookmark = rs.Bookmark Else Me.numero.Value = Me.tstProc End If Acho que no seu caso poderia ficar mais ou menos assim: If Not IsNull(DLookup("[REF]", "PRODUTOS", "[REF]=" & Me.REFtxt)) Then Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[ref]='" & Me.reftxt & "'" Me.Bookmark = rs.Bookmark Else Me.ref.Value = Me.reftxt End If Bom imaginando a minha solução, eu ocultaria a caixa de texto REF e criaria uma não acoplada "reftxt" acho que isso resolve, confirme pra nós!

Elber a clausula LIKE serve para usar string com caracteres globais, ou seja se no caso eu quisesse todos registros que iniciassem com a letra "a" faria assim: ..."[campo_tabela] Like 'a*'") ou outra forma que fosse necessária para meu processo.

Fera acho que o artigo no link abaixo lhe ajudará! http://www.macoratti.net/mult_vb.htm Num esqueça de confirmar ok!

Fera tenta entrar em contato com o Diego ou com o Dark eu estou sem o exemplo e sem tempo para fazer outro... a não ser que você queira esperar eu terminar o projeto que estou envolvido!

Fera num consegui entender exatamente o que você tá querendo, tá meio confuso, ultimamente toh meio sem tempo tenho alguns projetos pra entregar mais dá uma melhorada ou melhor uma exclarecida na sua explicação que assim que tiver tempo eu ou outra pessoa vai lhe ajudar!

Se entendi o que deseja fazer acho que seu problema pode ser resolvido em tempo de execução de lançamento, ou seja fazendo uma validação imediatamente após se digitar a data de pagamento algo mais ou menos assim: dim dTst,mTst,aTst as variant dtst=day(me.datapagamento) mtst=Month(me.datapagamento) atst=Year(me.datapagamento) if atst>1 and mtst>=6 then me.data_limite.value=DateValue("1/6" & Str(atst)) end if Bom a ideia seria essa com isso espero que você faça as devidas adequações a seu sistema

Fera dá uma lida no conteúdo do link abaixo: http://office.microsoft.com/pt-br/access/HP010321601046.aspx

DLookup("[DESCRIÇAO]", "CADMAT", "[COD_MATL] ='" & me.COD_MATL & "'")

Sinceramente não vejo necessidade de 2 tabelas, eu já fiz alguns sistemas semelhantes e nunca precisei de 2 tabelas, aliás acho que o primeiro que fiz tentei utilizar mais ficou bem melhor num só, mais ai quem escolhe se vai usar ou não é você!

ummmm Bom esse Justificada é uma campo? Que tipo de dados ele armazena? Se puder detalhar melhor poderemos lhe ajudar, pois assim tá meio vago, pois a duvida fica num campo que pode ser Sim/Não ou ele tem outro formato... ele armazena valores nulos, numeros, texto, ou verdadeira/falso?

Crie uma consulta utilizando o comando sql TOP (procure por exemplos aqui no forum) e utilize o assistente de relatório do próprio access ele fará isso pra você!

Aconselho você a criar um subtabela pra fazer a movimentação dos produtos e sempre que precisar, realizar os calculos, somando todas as entradas e subtraindo pela soma das saidas, isso deixaria seu saldo sempre correto

Fera como eu disse anteriormente se eu precisasse pegar o valor dou ultimo código para adicionar+1, não seria exatamente o que iria precisas, visto que por exemplo, quando você digitasse o primeiro produto "CE" então ele iria gerar um CE001 certo? Então no proximo eu iria buscar o ultimo registro de "CE" que teria o código "CE001" então novamente iria forçar a mascara e iria ficar assim "CECE001001" ou seja não ia haver na verdade um acrescimo na códificação do produto, da forma que deixei isso se torna possivel! Claro que podem haver outras formas de se fazer isso, mais agora foi só o que me veio na cabeça. t+ ps.: Que precisa de algum help adicional mande uma MP para o brunocasado....

Fera fiz uma analise da funcionalidade do que fiz no exemplo anterior e vi que ao se fazer uma busca pelo código do produto poderia haver retundância já que posso ter vários produtos com o número "001" então o que afiz foi seguinte criei um código de exibição que na verdade será a identificação do produto e o campo numérico ficaria apenas como suporte para auxiliar na alimentação desse novo campo que irá servir para buscas e até mesmo associações de tabelas, e dessa forma acho que finalmente seu problema foi resolvido, por favor confirme MrMALJ.zip

Fera eu fiz um exemplo com o que pensei e disse no comentário anterior ou seja não estou guardando as letras junto com o código, isso a principio resolve, mais para você ter uma ideia de como concatenar isso depois deixei um exemplo de relatório também... Agora estou só aguardando sua resposta pra mim dar esse tópico como resolvido! MrMALJ.zip

Catarina sinceramente não conheço essa função "ISE", e nem consegui entender bem o que realmente deseja obter!

Onde você está reazando este calculo, num formulário, numa consulta ou num relatório? Mais a principio reveja a estrutura de sua tabela e verifique as validações que foram atribuidas a seus campos.

Fera dei uma testada aqui e a principio o uso da função STR para transformar o valor em string resolveria, mais logo me debati com outra questão que me fez pensar que em de você adicionar as letras na frente do código você poderia simples guardar o número e quando necessário mostrar concatenado os dois, pois do jeito que está depois que se cadastra um por exemplo "CE001", provavelmente seu proximo produto sairia "CECE001001", vendo dessa forma acho que seria muito melhor armazer o código do material separada da sua numeração, daí com poucas mução no código que já te passei você poderia utilizar sempre sem problemas!

Fera conforme combinado, estou postando o seu BD com essa dúvida solucionada (acredito eu), bom não esqueça de de dizer se resolver pra mim poder dar esse tópico com RESOLVIDO! Como você poderá ver utilizei o evento após atualizar do campo tipo para chamar uma consulta previamente criada pela função dlookup, depois incrementei 1 e concatenei com o tipo já formatado com os zeros. Tentei separar bem no evento pra talvez você poder melhor entender o que está sendo feito, agora acho que o restante você consegue fazer, ou pelo menos tentar. Ah sim o que o Elber falou é funcional vale a pena uma analise. MrMALJ.zip