Raphael Souza
-
Total de itens
13 -
Registro em
-
Última visita
Posts postados por Raphael Souza
-
-
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 Subdetalhe: 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.
-
Se o form é baseado numa consulta é bem presumo que o registro na tela seja já filtrado com o recebimento que deseja, dessa forma as alteração nos objetos deveriam refletir diretamente tabela sem precisar de botões, mais se for crie um acSave (salvar/gravar) utilizando o próprio assistente de botões.
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 tarde,Tente:
Docmd.close
docmd.openform me
Bom trabalho,
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.
Parcelas - Divisão de registro já existente
em Access
Postado
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.