Raphael Souza

Tenho a tabela seguinte: DIVATIVA NUMDIV, NOMECONT, ENDCONT, VLRINIC, VLRCOR, SELIC, MULTA, JURO, CODBARRAS, LINHADIGIT, DTEMISS, DTVENC, DTPGTO. Esses campos estão preenchidos previamente. O que eu gostaria de fazer é o seguinte: Quando clico em NUMDIV, abre-se um formulário para, entre outras coisas definir, o nº de parcelas em que aquele registro será dividido. Após escolher a quantidade de parcelas, aparecerá uma MSGBOX perguntando se desejo imprimir os boletos, a resposta é sim, ele imprime o n] de boletos correspondentes à quantidade de parcelas escolhidas. Obs.: Todos os boletos tem data de vencimento do ultimo dia de cada mês. Desde já agradeço a compreensão e a ajuda prestada.

A questão é justamente como fazer para popular essa outra tabela.... Como ficaria o código no formulário...

Tenho uma tabela com diversos campos e já tenho registros nela. Gostaria de saber um modelo para parcelar em até 10x (ou mais) esses registros, criando assim uma espécie de boleto com datas já demarcadas para 30 dias.... Obs: O problema é que terei que usar registros já existentes, abrindo-os com um formulário que me dará a opção de parcelar em algumas vezes e após isso ele já me dará a opção de imprimir as parcelas referentes aquele registro que acabei de utilizar... Criarei um campo na tabela chamado NUMPARC que definirá a quantidade de parcelas em que o registro foi divido. Desde já agradeço a compreensão e ajuda prestada. Atenciosamente...

Tenho um Form com 3 campos: INSCRICAO, VALOR, CODBARRA. Ao sair de VALOR ele automaticamente calcula o CODBARRA. A questão é que são 375 registros para se fazer todos os cálculos dos registros, lembrando que cada INSCRICAO tem um VALOR que gerará seu prórpio CODBARRA. Gostaria de poder automatizar esse processo, pois para ele funcionar tenho que ir clicando em "next" em cada registro, e seria bastante interessante que o form fizesse isso por mim. Tentei o DoCmd.GoToRecord , , acNext quando VALOR perder o foco, mas está dando erro. Será de sintaxe, ou temos alguma forma mais eficiente de fazer isso? Desde já agradeço a atenção prestada.

Bom Dia, A dúvida é a seguinte: Tenho um formulário baseado em 3 tabelas, e costaria de colocar uma macro no evento "Ao Carregar" em que abrisse uma inputbox que pesquisasse o dado inserido em um dos campos de uma tabela, e trouxesse o resultado pro form. Mais especificamente: Um form com vários campos de 3 tabelas distintas, um dos campos é o "chave", o campo INSCRICAO, gostaria de afzer o seguinte: ao carregar o form se abrisse uma inputbox (como se faz quando se baseia algo em uma consulta qualquer) que me pedisse o dado desse campo, ao preenchê-lo ele preencheria todos os outros campos vinculados à esse registro. Desde já agradeço a ajuda e atenção de todos.

Bom dia, já achei a linha de código que eu queria é so criar um botão ou qualquer outra funcionalida de que deseja e colocar o seguinte procedimento de evento: DoDmd.Output To acOutputReport, "Nome do Relatório", PDF esse comando vai abrir uma caixa de diálogo como o "salvar como..." do windows, mas como já disse antes, só terá funcionalidade se usar com o suplemento que a MicroSoft dispõe (http://www.microsoft.com/downloads/details...splaylang=pt-br). Este tópico pode ser considerado como resolvido!

Olá... Gostaria que alguém me informasse como se usa essas funções, pra que servem, e onde posso encontrar apostilas ou artigos a respeito desses itens do VBA que eu particularmente não conheço. Qualquer informação será bastante apreciada.....

Cara, você pode usar o seguinte.... crie uma tabela com os campos, senha, usuario, tipo de usuário e dapte o seguinte código da forma que achares melhor: Private Sub LOGIN_Click() If IsNull(Me.Combinação13) Or Me.Combinação13 = "" Then MsgBox "DIGITE O NOME DO USUÁRIO", vbOKOnly, _ "Dados Necessários" Me.Combinação13.SetFocus Exit Sub End If If IsNull(Me.Texto16) Or Me.Texto16 = "" Then MsgBox "DIGITE A SENHA", vbOKOnly, _ "Dados Necessários" Me.Texto16.SetFocus Exit Sub End If If Me.Texto16.Value = DLookup("LOGIN", "LOGIN", "[IDUSER]=" & Me.Combinação13.Value) Then IDUSER = Me.Combinação13.Value Dim WTIPO As String WTIPO = DLookup("TIPOUSUARIO", "LOGIN", "[IDUSER]=" & Me.Combinação13.Value) If WTIPO = "ADMIN" Then DoCmd.Close acForm, "LOGIN", acSaveNo DoCmd.OpenForm "MENUADMIN" ElseIf WTIPO = "USUARIO" Then DoCmd.Close acForm, "LOGIN", acSaveNo DoCmd.OpenForm "MENUSER" End If Else MsgBox "SENHA INVÁLIDA! TENTE NOVAMENTE", vbOKOnly, _ "Entrada Inválida!" Me.Texto16.SetFocus End If intLogonAttempts = intLogonAttempts + 1 If intLogonAttempts > 3 Then MsgBox "VOCÊ NÃO TEM ACESSO A ESTE BANCO DE DADOS. POR FAVOR CONTATE O ADMINISTRADOR.", _ vbCritical, "Acesso Restrito!" Application.Quit End If End Sub detalhe: na tela de login tenho uma combobox com o nome do user, o campo pra digitar a senha e o boão de login. veja....http://www.4shared.com/file/115817146/9d250208/Login.html

Bom dia a todos, Instalei o seguinte suplemento http://www.microsoft.com/downloads/details...splaylang=pt-br no Office aqui do trabalho e o que eu gostaria era de saber como faço para implantar em meu banco de dados um botão de comando que exporta o relatório escolhido em formato pdf. O centro da questão é: como ficaria o código do procedimento de evento para essa função? Desde já muito obrigado

Olá Gostaria de saber como posso fazer o seguinte... Tenho um sistema, e ele tem uma tela de logiin, e uma tabela com usuáriuos e senha. O que eu gostaria era que toa vez que algum usuário logasse no sistema a data e a hora ficasse registrada em uma tabela, e ao clicar no botão de logoff a data e horário de saída também ficasse registrado nessa tabela.... Obs....gostaria de usar uma tabela p/ ca da usuário nessa empreitada... Desde já agradeço a ajuda, conselhos e exemplos aqui prestados.

Isso já foi até cogitado, mas o objetivo é abrir a INPUTBOX que existe ao se abrir a Consulta. Exmp....Ao abrir a consulta ela pede o nº do recebimento, para poder colher os dados da tabela e alimentar os campos do formulário com os dados de contribuinte, valor a recolher e outros,....o objetivo é que ao se clicar no botão "NOVA LIQUIDAÇÃO" ele "abra" novamente a INPUTBOX que pede o nº do recebimento. Boa dica: Fiz isso.... Private Sub NewReg_Click() DoCmd.Close DoCmd.OpenForm Me End Sub Mas ao clicar aparece a seguinte mensagem: Erro em tempo de execução '2498' A expressão que você inseriu corresponde ao tipo de dados errado para um dos argumentos. E delimita esse campo: DoCmd.OpenForm Me

Olá Tenho um sistema em access e pus nele uma tela de login, até aí beleza. Meu problema é o seguinte: Estou precisando de um form pra atualizar o cadastro de usuários e até mesmo pra trocar as senhas se necessário. Minha tabela login tem os seguintes campos: IDUSER, USER, LOGIN (senha do usuário) , TIPOUSUARIO (define o nível de acesso). Estava usando o seguinte código, mas ele não atualiza a tabela: ""( meu form de alterar senha tem 4 campos, txtUsuario corresponde ao USER da tabela, txtAnterior ao LOGIN, txtNova e txtConfirma são os campos onde digito e re-digito a senha nova" Private Sub txtUsuario_Exit(Cancel As Integer) If Nz(txtUsuario, "") = "" Then Cancel = True Else txtAnterior.Locked = False txtAnterior.Enabled = True txtAnterior.SetFocus txtUsuario.Locked = False txtUsuario.Enabled = True End If End Sub Private Sub txtUsuario_NotInList(NewData As String, Response As Integer) MsgBox "USUÁRIO NÃO ESTÁ CADASTRADO!." txtUsuario = "" End Sub Private Sub Form_Error(DataErr As Integer, Response As Integer) If DataErr = 2237 Then Response = acDataErrContinue End If End Sub Private Sub txtAnterior_Exit(Cancel As Integer) Dim xBusca As Variant xBusca = DLookup("[LOGIN]", "LOGIN", "[LOGIN] = '" & txtAnterior & "' and [uSER] ='" & txtUsuario & "'") If Nz(xBusca, "") <> txtAnterior Then Cancel = True MsgBox "SENHA INVÁLIDA" Else txtNova.Locked = False txtNova.Enabled = True txtConfirma.Locked = False txtConfirma.Enabled = True txtUsuario.Locked = True txtUsuario.Enabled = False txtNova.SetFocus txtAnterior.Locked = True txtAnterior.Enabled = False End If End Sub Private Sub txtNova_Exit(Cancel As Integer) If Nz(txtNova, "") = "" Then Cancel = True End If End Sub Private Sub txtConfirma_Exit(Cancel As Integer) Dim ErrorPass As Integer ErrorPass = 0 If Len(txtConfirma) < 5 Then ErrorPass = 1 End If If txtConfirma <> txtNova Then ErrorPass = 2 End If If txtConfirma = txtAnterior Then ErrorPass = 3 End If If txtConfirma = txtUsuario Then ErrorPass = 4 End If If InStr(txtConfirma, txtUsuario) > 0 Then ErrorPass = 5 End If Select Case ErrorPass Case 0 MsgBox "NOVA SENHA ATUALIZADA COM SUCESSO! O SISTEMA SERÁ REINICIADO" Case 1 MsgBox "SENHA TEM QUE TER NO MÍNIMO 5 DÍGITOS." Case 2 MsgBox "SENHA INVÁLIDA! DIGITE DE NOVO." Case 3 MsgBox "NOVA SENHA É IGUAL À ANTERIOR, DIGITE UMA SENHA DIFERENTE." Case 4 MsgBox "SENHA É IGUAL AO USUÁRIO! DIGITE UMA SENHA DIFERENTE." Case 5 MsgBox "" End Select If ErrorPass > 0 Then txtConfirma = "" txtNova = "" Else txtNova.Locked = True txtConfirma.Locked = True DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE LOGIN SET LOGIN = [txtNova] " _ & "WHERE ([LOGIN]![uSER] = txtUsuario)" DoCmd.SetWarnings True End If DoCmd.Quit End Sub Como sempre, desde já agradeço a colaboração, atençã e ajuda de todos.

Bom dia a todos, Trabalha na seção de tributos da Prefeitura, e estamos informatizando alguns processs, implementando um BD em Access, e uma das coisas que ele faz é gerar guias de pagamento. O problema esá no seguinte: existe um form denominado "LIQUIDAÇÕES", para dar baixa das guias pagas, colocamos um botão nele de "NOVA LIQUIDAÇÃO", onde o objetivo é evitar ter que se fechar o form e abrir de novo. Toda vez que se abre o form ele pede o nº da guia e depois preenche os campos com as informações da tabela, só restando ao operador colocar o valor pago e a data de pagamento. A dúvida é a seguinte, como fazer esse botão "NOVA LIQUIDAÇÃO" salvar as alterações feitas e abrir novamente a caixa que pede o nº do recebimento. => Obs. O form é baseado numa consulta. Desde já agradeço a ajuda e atenção prestadas.