Ricmendes

Bom dia Pessoal! Gostaria de ajuda de vocês se possível. Estou com uma planilha de um edital que tem um total de 100.000,000. Nesta planilha tem 3 colunas com nome, nota e valor da proposta, no qual a classificação primeiro é pelas maiores notas, com base nisso gostaria criar um filtro, uma macro ou formulá. terai algum jeito de fazer isso automaticamente?

Olá pessoal, Estou precisando da ajuda de vocês, estou com uma planilha no excel com alguns dados. Nome Endereço Data de Nascimento Email. Todo final de mes precisamos enviar um email para pessoas cadastradas, só que todos mês a mudança de pessoal, então minha duvida é. Tem como criar uma macro que leia toda coluna de email e automaticamente abra o Outlook com todos os contatos para envio do email? Desde já agradeço atenção de todos

Olá pessoal!! Estou com um probleminha tenho um Bd que estou faz, e nele tenho 3 relatorios (Relcadastro, Relseguro e Relvagas) e queria ter uma caixa de combinação que pudesse me da a opção de abrir esses relatorios, procurei alguns exemplos e não consegui obter exito. Então queria ter uma ajuda de vocês. desde já agradeço atenção de todos.

Consegui esse código abaixo, quando faço quaquer modificação e peço para salvar tá dando tudo certo. Private Sub botatualizar_Click() Dim iBook iBook = Me.Bookmark DoCmd.RunCommand acCmdRefresh DoCmd.RunCommand acCmdSaveRecord Me.Bookmark = iBook End Sub Mas fiz um teste e e criei um registro sem digitar nada e ao salvar/atualizar deu o seguinte erro: aparece uma mensagem nenhum registro atual iBook = Me.Bookmark

Olá a todos! Criei um um botão "Atualizar/Salvar" e continuar no mesmo registro. e tb criei uma função que quando chamo da o seguinte erro: Tipos Incompativeis. O botão ficou assim: Private Sub botatualizar_Click() Call atualizar End Sub e a função ficou assim: Function atualizar() On Error GoTo atualizar_Err Dim iBook As Integer iBook = Me.Bookmark DoCmd.RunCommand acCmdRefresh DoCmd.RunCommand acCmdSaveRecord Me.Bookmark = iBook atualizar_Exit: Exit Function atualizar_Err: MsgBox Error$ Resume atualizar_Exit End Function Gostaria se possivel alguém me ajudasse. Desde já agradeço atenção.

Mas nos outros programas do office na hora da impressão consigo visualizar a impressora, só não aparece no bd de fiz.

Bom dia a todos, volto aqui ao fórum pra pedir ajuda de vocês. Estou com bd todo certinho, mas estou com um problema. na hora de imprimir os relatórios, aparece quase todas as impressoras, menos uma HP laser monocromática que tenho instalada. Queria saber como resolver esse problema, já que essa impressora é a principal. desde já agradeço atenção.

Olá tentei adaptar pro meu formulario, mas sempre que digito o nome aparece só o nome, e os outros dados do formulario ficam em branco. porque?

Por exemplo, no form tem uma tbldados (nome, rg, cpf) ex. no forma criei um botão localizar e coloquei o código acima ao clicar. então queria q ao clicar no botão abrisse uma caixa para eu digitar o nome e ao dar OK fosse pro registro.

Olá, consegui um código na internet, mas não deu certo, sempre dando erro, mas se alguém puder analizar o código seria muito bom. Private Sub SeuBotao_Click() Dim a As String Dim strSQL As String Dim xlocalizar As Variant xlocalizar = InputBox("Qual o Nome que deseja procurar?", "Procura por Nome") strSQL = "SELECT * FROM SuaTabela WHERE Codigo=" & xlocalizar & "" Me.Form.RecordSource = strSQL End Sub

Isso mesmo, mas acabei resolvendo com om ex moderador. de qualquer jeito muito obrigado. Resolvido

Olá Ycegui, fiz do mode que você me indicou, mas ao fazer o formulario, não esta saindo correto, não sei se foi nas relações entre tabelas ou na hora de fazer o formulario. se não for pedir muito poderia analizar o banco q vou postar agora? Quero saber onde estou errando. há, já cadastrei os departamentos eu seus deteminado campus. assim só falta fazer o teste com um formulário. http://www.4shared.com/document/d8oEJXWq/Abc_-_Cpia.html

Olá pessoal, estou com um grande problema no access, derrepente em todos os arquivos as opções da barra ferrementa (folha de propriedade e adicionar campos existentes) ficaram desabilitadas, clico mas não abre nada. já desinstalei e reinstalei mais nada. Quem puder me ajuda ficarei muito grato Richard

Oi Yceguy, tentei faz do jeito q me recomendou, mas acabei não conseguindo, criei até outro banco ma não deu certo. se você puder analisar o banco q estou postando agradeço. http://www.4shared.com/file/y8faiZkQ/teste2.html As caixas ficarias assim ao escolher uma das opções da caixa campus e escolhe-se uma das opções a caixa departamento me daria as seguintes opções como no exemplo. Campus / Departamento Campus I DEDC, DCV, DCH Campus II DCH, DCHT Campus III DCV, DCH seria assim.

Olá Pessoal, venho aqui mais uma vez pedir ajuda de vocês. estou com bd com as seguintes tabelas: Tabcampus: Campus (Campus I, campus II, campus III até X), tabdepartamentos: Departamento (DCV, DCET, DEDC, DCST) e tabteste. dentro da tabteste tem dois campos (Campus e Departamento) que pegam dados de das duas outras tabelas. então meu problema é: Ex: gostaria ao selecionar a opção "campus I" de campus, me desse a oção de escolher a opção DCV e DCET, Campus II (DEDC e DCTS). abaixo segue o link do bd caso não tenha sido muito claro na minha duvida. muito grato a todos pela atenção. http://www.4shared.com/file/Lfq4CTjp/Teste_2.html Desde já agradeço atenção

Mais uma vez queria agradecer ajuda de vocês. esse exemplo me ajudou muito. Obrigado. Resolvido

Olá, tentei fazer do modo q me disse, mas parece esse erro: If Me.textBoxSenha = DLookup("senha", "tblUsuarios", "usuario = '" & Me.textBoxUsuario & "'") Then Continua dando erro. A tabela tablusuarios, campos: usuario e senha o código ficou assim: Private Sub entrar_Click() If IsNull(Me.textBoxUsuario) Or Me.textBoxUsuario = "" Then MsgBox "DIGITE O NOME DO USUÁRIO", vbOKOnly, _ "Dados Necessários" Me.textBoxUsuario.SetFocus Exit Sub End If If IsNull(Me.textBoxSenha) Or Me.textBoxSenha = "" Then MsgBox "DIGITE A SENHA", vbOKOnly, _ "Dados Necessários" Me.textBoxSenha.SetFocus Exit Sub End If If Me.textBoxSenha = DLookup("senha", "tblUsuarios", "usuario = '" & Me.textBoxUsuario & "'") Then Usuario = Me.textBoxUsuario.Value Dim WTIPO As String WTIPO = DLookup("usuario", "[senha]=" & Me.textBoxUsuario.Value) If WTIPO = "ADMIN" Then DoCmd.Close acForm, "tablusuarios", acSaveNo DoCmd.OpenForm "MENUADMIN" ElseIf WTIPO = "USUARIO" Then DoCmd.Close acForm, "tablusuarios", acSaveNo DoCmd.OpenForm "formdados" End If Else MsgBox "SENHA INVÁLIDA! TENTE NOVAMENTE", vbOKOnly, _ "Entrada Inválida!" Me.textBoxSenha.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 aparece o Erro: If Me.textBoxSenha = DLookup("senha", "tblUsuarios", "usuario = '" & Me.textBoxUsuario & "'") Then

Olá Pessoal, Estou criando um formulário e gostaria q tivesse login e senha para segunrança do banco, pesquisei no fórum achei alguns exemplos, mais acabei não conseguindo fazer, então pesso ajuda de vocês. segue baixo o link do banco para quem puder me ajudar. http://www.4shared.com/file/Tmzu0Vw1/Login.html Desde já agradeço atenção de todos.

Bom dia Iceguy, mais uma vez queria agradecer sua atenção. consegui resolver. valeu Resolvido

Olá, venho mais uma vez ao fórum pedir ajuda de vocês. tenho uma consulta "Cons_Est_Geral"(que contem o critério contar "Quantidade: Escolaridade"), assim gostaria de criar uma uma caixa de texto que tivesse a subtração do dessa consulta por um numero (ex:360). desde já agradeço atenção

Olá, mais uma vez queria agradecer a todos que me ajudaram no meu problema com o access. Resolvido

Olá Iceguy, talvez não tenha sido claro na minha duvida, assim estou postando o bd para ser analisado. http://www.4shared.com/file/PrXAarvi/Bd_teste.html se puderem ver nas cons_campus ela esta com critério "campus I", e tem 2 registros do do "campus I" um com médio e outro superior, mas ao usar o critério (campus III - Juazeiro) ele sai em branco.

Olá Bom dia! Pessoal, estou com um probleminha. Estou com bd que existe uma combo Escolaridade com as opções (Nivel Médio e Superior) e outro combo Campus (Campus I, Campus II até XIV) fiz a consulta contando os dados apenas de escolaridade até ai deu tudo certo tudo certo, mas ao fazer um consulta com o resultado de Escolaridade (contar) e campus, utilizando critério por campus está saindo vazia. isso sempre acontece quando a consulta só consta um dado de escolaridade. Gostaria de uma ajuda. Desde já agradeço atenção.

Valeu, muito obrigado mesmo por ter me ajudado no meu problema. :rolleyes: Resolvido

Olá, fiz um exemplo do q você me mandou, mas deu alguns erros no banco. então se não for encomodo estou mandando pra vocês darem uma analisada. grato pela atenção http://www.4shared.com/file/rC-8v1Wn/vencimento.html