MrMALJ

Ai amigo outra opção de download... http://www.4shared.com/file/5OAWSy6f/tstReciboMrMALJ.html

Amigo suas tabelas não estão normalisadas, por isso criei uma que não use caracteres especiais ou espaços no nome dos campos, nomeia de tstMALJ e nela tem os 3 campos alvos para inserção, copiei seu formulário SAIDA RECIBOS para SaidaRecibosMALJ e fiz algumas alterações para que eu pudesse fazer o exemplo para você. Bom agora acredito que você normalisando seu banco de dados, basta você adequar o que já fiz para o que você criar. No arquivo zipado que estou disponibilizando tem a imagem do teste que fiz para que vocÊ possa visualizar o resultado. Aguardo seu retorno para colocar resolvido no tópico. tstReciboMrMALJ.zip

Posta ai seu banco que podemos tentar ver o que está levando ao erro.

Daí é com você. Você criar um botão e colocar esse código pra ser executado quando esse botão for clicado. Como disse vocÊ vai definir quando isso vai acontecer.

Basta substituir pelos seus correspondentes qual a dificuldade em fazer isso?

Bom pelo que consegui enteder do que explicou alguma coisa assim dve funcionar bem na propriedade de evento após atualziar. if me.opc1= true then ..... o q tem de de ser exibido else .... oculte tudo end if if me.opc2= true then ..... o q tem de de ser exibido else .... oculte tudo end if

Utilize o IF para comparar o opção desejado e exiba e esconda os objetos conforme o que for escolhido, a mesma ideia da outra duvida sua.

Tipo fiz esse código rapidamente, mais vocÊ vai ter que adapta-lo dim i as integer dim strSql As String for i 1 to 100 Let strSql = "insert into suaTabela (data,vendedor,nrRecibo) values(" & suaData & ",'" & codVendedor & "','" & i & "')" DoCmd.RunSQL strSql next i Você pode substituir suaData pelo nome da caixa de texto que contem a data, codVendedor pelo objeto que tem o código e o i é número do recibo, daí você incrementa da forma que for mais conveniente para você.

Dessa forma que disse acho que num dá de fazer, pelo menos não que eu saiba. A dúvida inicial foi resolvida, vou colocar este tópico como resolvido.

Crie um botão que contenha uma linha de código como essa: DoCmd.OutputTo acOutputQuery, suaConsulta, acFormatXLS, "nomeDaPlanilha.xls", True Isso deve resolver, agurado seu retorno para colocar este tópico como resolvido.

Estando as combos invisíveis, basta que você utilize o IF e comparar a escolha e mostrar uma ou outra combo, algo assim na proprieade de evento após atualzar da combo defeitos: if me.defeito="gabinete" then me.suaCombo.visible=true me.outraCombo.visible=false else me.suaCombo.visible=false me.outraCombo.visible=true end if Simples né!?

Sabe fiquei curioso pra ver um sistema que precise de tantos campos assim, você pode postar ele pra g4ente ver?

Sim todas as restrições são possíveis, algumas vão precisar de um nível mais avançado de conhecimento, outras não o certo como o colega Leandro Abbade já mencionou é você conhecer a ferramenta no caso Access, e para isso utilize a busca do forum e encontre algumas apostilas muito boas e que com cereteza lhe serão muito úteis, após isso em dúvidas mas direcionadas o forum lhe ajudará sempre que possivel, vale lembrar que já existem muitas dúvidas respondidas em outros tópicos e vale uma busca pra ver se você não pode aproveitar as soluções já implementadas. No mais, seja bem vindo!

Fera ainda não consegui imaginar um sistema que requera tantos campo num unica tabela.

Bom como você que alterar os dado no formulário MAXIPOSTOAPURODIARIOTURNO001 e lá existe um botão SAIR, adicione a linha de comando lá, dessa forma garante que após as alterções o objeto do formulário MAXIPOSTO_RESUMO_DIARIO159 vai estar sempre atualizado. O código do botão deverá ficar assim: Private Sub Fechar_Click() On Error GoTo Err_Fechar_Click Forms!MAXIPOSTO_RESUMO_DIARIO159!Texto631.Value = Forms!MAXIPOSTOAPURODIARIOTURNO001!DIFERENÇA DoCmd.Close Exit_Fechar_Click: Exit Sub Err_Fechar_Click: MsgBox Err.Description Resume Exit_Fechar_Click End Sub

na propriedade evento "Apos atualizar" do obejto data que você altera coloque um codigo igual ao que coloquei no botão.

Amigo você não passou as infomrações corretas, pelo que pude observar vocÊ não está utilizando subformulário e sim fkormulário normais. O que fiz, quando você clicar no botão para abrir o formulário ele transporta o dado do form MAXIPOSTOAPURODIARIOTURNO001 para o MAXIPOSTO_RESUMO_DIARIO159 no campo que você disse. O link tem a modificação que fiz, você poderá observar que no campo onde vai ficar a diferença eu retirei a origemd o registro, ou seja ele vai ser atualizado sempre que você abrir o outro form (veja a linha de código que inclui no procedimento de evento do botão). http://www.4shared.com/file/IecVTxr2/Maxipostoa.html

Ok consegui baixar. Não encontrei o formulário maxiposto_apuro_diario159, veja se passou o nome correto, aproveite tambem para informar qual campo deseja pegar e para onde o valore tem que ir.... Passe o maximo possivel de infomraçãoes para que eu possa entender seu e tentar lhe ajudar melhor.

Na macro, ou na linha de comando que você faz a exportação você direciona o caminho para onde quer que seu arquivo seja salvo.

Fera upa no 4shared.

Eu aconselharia você a ter ao menos uma chave primária em alguma das tabelas. Eu sinceramente num consegui entender bem a sua explicação. Tipo tente distribuir as ideias e principalmente especifique qual versão do access você está utilizando. Por exemplo eu uso 2003.

Infelizmente esse servidor não abre aqui, mais como disse antes, para você transportar o valor de outro formulário, é necessário que o formulário onde tem os valores a ser trnsferido esteje aberto e claro que os formatos das caixas de textos sejam identicas para receber o valor.

Bred a dúvida inicial sua foi resolvida? Se sim por favor crie um novo tópico para outras dúvidas. Grato.

Tenha em mente que você quer um determinado objeto no seu subformulário seja preenchido com um valor que esteje no formulário principal, então supondo que esse valor esteje numa caixa de texto chamada txt1 e que o objeto no sub formulário seja uma caixa de texto chamada txt2 então para repassar o valor de uma para outra ficaria assim: me!seuSubForm!txt2.value=txt1 Bom acho que isso deve resolver sua duvida.

Se o formulário não estiver aberto, e caso de você tentar usar o dlookup() para buscar e trazer os dados pretendidos.