Ir para conteúdo
Fórum Script Brasil

mrfg2000

Membros
  • Total de itens

    40
  • Registro em

  • Última visita

Sobre mrfg2000

Últimos Visitantes

2.210 visualizações

mrfg2000's Achievements

0

Reputação

  1. olá amigo. vou tentar ajudar . segue abaixo um código que utilizo ... pelo que eu vi em seu print ... você não esta fazendo uma busca no seu banco de dados para validar se o usuário digitado existe no banco. no exemplo abaixo minha aplicação é dentro do excel mas meu banco de dados é em access .. veja o que você consegue aproveitar e adaptar em seu código. 'Carregar o furmulário de login assim que abre o arquivo Private Sub Workbook_Open() ULogin.Show End If após abrir o formulário eu faço a validação no banco Private Sub Login_Click() If TextBox1.Value <> Empty And TextBox1.Value <> "" And TextBox2.Value <> Empty And TextBox2.Value <> "" Then 'Conectando banco de dados Dim cn As ADODB.Connection Set cn = New ADODB.Connection With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & ActiveWorkbook.Path & "\BANCO.MDB;" .Properties("Jet OLEDB:Database Password") = "123" .Open End With 'Abrindo a tabela do banco de dados Set rs = New ADODB.Recordset StrSql = "Select * from CadUsuarios where usuario = '" & UCase(TextBox1.Value) & "' and senha = " & TextBox2.Value rs.Open StrSql, cn, adOpenKeyset, adLockOptimistic ' Todos os registros da tabela" If Not rs.EOF Then 'se encontrou Unload Me Set ULogin = Nothing Dim CodUsuario As Integer Sheets("menu").Range("A1").Value = CInt(rs.Fields("Código")) Sheets("menu").Range("B1").Value = rs.Fields("Nome") rs.Close 'fecha a tabela Set rs = Nothing Else MsgBox "Usuário e Senha não localizado...", vbCritical, ":::..Aviso..:::" TextBox1.Value = Empty TextBox2.Value = Empty Sheets("menu").Range("A1").Value = Empty Sheets("menu").Range("B1").Value = Empty TextBox1.SetFocus rs.Close 'fecha a tabela Set rs = Nothing End If cn.Close Set cn = Nothing End If End Sub e o botão Sair 'Botao Sair Private Sub Sair_Click() Unload Me Set ULogin = Nothing ThisWorkbook.Saved = True ThisWorkbook.Close Application.Quit End Sub Estude o código acima e veja como pode ser útil em sua necessidade. Espero ter ajudado . Abraços.
  2. mrfg2000

    SomarProdutos em VBA

    Saudações amigos deste maravilhoso fórum. Primeiramente obrigado por ler esse tópico. Preciso de uma ajuda , pois me deparei com a seguinte situação. Existe uma função no excel chamada subtotal(9;xxx:xxx) , para fazer a soma apenas dos valores que as linhas não estejam ocultas por Filtro. já a função somarprodutos(xxx:xxx) ele faz a multiplicação de uma coluna com a outra coluna ... não precisando multiplicar linha por linha coluna por coluna. porem ele faz a multiplicação das linhas filtradas também incluindo as linha ocultas por filtro. Teria como fazer uma função em VBA igual a função somarprodutos só que respeitando o filtro ???? ou seja multiplicando apenas as colunas visiveis e desconsiderando as linhas ocultas por filtro ? Para ajudar segue um arquivo em nexo como modelo veja que ele não respeita os filtro. Obrigado
  3. Bom dia amigos gostaria de uma ajudinha Gostaria de imprimir o conteúdo do meu listview para impressora. Esta dando erro no comando Printer.Print estou tentando utilizar o código abaixo ... mas esta dando erro ... alguém poderia me ajudar por favor: For i = 1 To ListView4.ColumnHeaders.Count Printer.Print Tab(20); ListView4.ColumnHeaders(i).Text; Next Printer.Print Printer.Print Dim item As ListItem For Each item In ListView1.ListItems Printer.Print Tab(20); item.Text; For i = 1 To ListView1.ColumnHeaders.Count - 1 Printer.Print Tab(20); item.SubItems(i); Next Printer.Print Next
  4. olá amigos ... fica aqui como solucionei o problema ... desta forma todos poderão compartilhar os conhecimentos. meu muito obrigado a todos. obs: minha aplicação esta em excel e meu banco esta em access eu rodo uma macro do excel , que executa uma macro do access... o nome da macro dentro do acess neste caso chamava "Mortalidade" obs: tem que habilitar dentro do VBA > Ferramentas > Referência > microsoft Access 14.0 object library. Sub ChamarMacroAccess() Dim sCaminho As String Dim obj As Object Dim appObj As Object sCaminho = "ActiveWorkbook.Path & "\BANCO.MDB"" Set appObj = CreateObject("Access.Application") 'A linha de baixo é opcional appObj.Visible = True appObj.OpenCurrentDatabase sCaminho appObj.Run "Mortalidade" appObj.Quit End Sub Obrigado amigos.
  5. bom dia amigos deste respeitado forum. Estou tentando utlizar essa macro de dentro do excel para rodar uma macro de dentro do access mas não esta dando certo... alguém poderia me ajudar a desvendar esse problema... Sub AccessMacro() Dim A As Object Set A = CreateObject("Access.Application") A.Visible = False A.OpenCurrentDatabase (ActiveWorkbook.Path & "\BANCO.MDB") A.DoCmd.RunMacro "RelMortalidade", 0 End Sub obs: "RelMortalidade" é o nome da macro que eu tenho dentro do access que estou tentando excultar...
  6. bom dia amigos Estou criando uma rotina para copiar o arquivo mscomct2.ocx da pasta atual para pasta \windows\system32 até aqui tudo beleza funciona perfeitamente. porém quando vou registar ele com o CMD como administrador , ele esta dando um erro .. e não registra o componente ActiveX ... alguém poderia por favor me ajudar neste problema... desde já antecipo agradecimentos. o problemas esta na seguinte linha >> Call Shell("C:\WINDOWS\system32\regsvr32.exe mscomct2.ocx /user:administrator cmd.exe") Sub CopiarArquivos_Registrar() Dim fso Dim origem As String, destino As String origem = ActiveWorkbook.Path 'mude para a pasta de origem destino = "C:\windows\system32\" 'mude para a pasta de destino Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next If Not fso.FolderExists(origem) Then MsgBox origem & " Não é uma pasta válida.", vbInformation, "Aviso" ElseIf Not fso.FolderExists(destino) Then MsgBox destino & " Não é uma pasta válida.", vbInformation, "Aviso" Else fso.CopyFile (origem & "\*.ocx"), destino ' Mude "\*.*" para "\*.xls" para mover somente arquivos Excel End If If Err.Number = 53 Then MsgBox "Arquivo não encontrado" Call Shell("C:\WINDOWS\system32\regsvr32.exe mscomct2.ocx /user:administrator cmd.exe") End Sub
  7. Boa noite amigo Benzadeus ... Agradeço novamente pelo seu empenho e ajuda na solução desta dúvida ... Agraço-lhe imensamente. Abraços
  8. Boa noite aos estimados amigos deste forum. preciso de uma ajuda de vocês. tenho um Userform com vários componentes + ou - uns 50 (Textbox,Combobox,buttonoptions) gostaria de mudar a cor de fundo (background) do componente ao receber o foco, e ao sair voltar a cor original (branco) porém não gostaria de fazer isso individualmente em cada textbox, combobox, buttonoptions. Existe alguma maneira de saber o nome do componente ativo para fazer isso? ou alguma outra solução para este problema ? Sem mais agradeço a todos antecipadamente.
  9. Resolvido ... Muito Obrigado amigo.
  10. Bom dia amigos. Preciso de uma ajuda novamente em VBA em A1 tenho DATA INICIAL 03/06/2012 em B1 tenho HORA SAÍDA 09:50:00 em C1 tenho DATA CHEGADA 04/06/2012 em D1 Tenho HORA CHEGADA 22:10:00 a questão é quantas horas demorou essa viagem visto que a data e hora estão em campos separados... Antecipo respeitosamente agradecimentos.
  11. Bom dia amigo ... Muito obrigado pela sua ajuda ... Deu certinho aqui.. atendendo minha necessidade...
  12. Boa tarde Amigos deste Respeitado Forum. Peço as vocês uma ajuda. Preciso descobir qual a quantidade de dias de um determinado mes, porém não estou conseguindo obeter esse número, pois estou tentando da seguinte forma. sub Dias mes = 2 DiasNoMes = DateSerial(Year(CInt(2012)), CInt(Month(mes)) + 1, 1) - DateSerial(Year(CInt(2012)), CInt(Month(mes)), 1) msgbox Diasnomes end sub esta me retornando que "Fevereiro de 2012" tem 31 dias ... Esta errado ... Poderiam por favor me ajudarem nessa questão ... Antecipo cordialmente agradecimentos aos amigos da casa.
  13. Olá amigo Benzadeus... Obrigado pela sugestão acima mencionado.... este atendeu exatamente minha necessidade. Muito obrigado mesmo.
  14. Olá amigo Benzadeus... Agradeço-lhe pelos prestimos em solucionar este problema ... Obrigado pela ajuda, deu certinho , atendendo minha necessidade. Espero que outros amigos colaboladores/Membros possas ler e tirar proveito desse tópico, pois um dia poderá ser útil. Sem mais muito obrigado.
  15. Olá amigos desse forum... Antecipo a todos agradecimentos por ler este tópico. Preciso de uma ajuda de vocês. na coluna A da linha 1 a linha 500 tenho vários valores referente a várias notas fiscais de compra de um determinado fornecedor Exemplo: A1 = 125.35 A2 = 33.50 A3 = 1550.35 A4 = 78.89 A5 = 54.66 A6 = 99.35 A7 = 78.99 E assim por diante... a questão é ... tenho um boleto a pagar com um valor de r$ 258.90 quero saber dentro desta lista , quais valores somados dá esse total de 258.90... e pintar esses valores de vermelho. no exemplo acima seria : A1 + A4 + A5 OU 125.35 + 78.89 + 54.66 mas a macro que irá fazer a combinação entre esses valores e me mostrar quais valores são. eu informaria apenas o valor inicial. acho que é isso. Obrigado amigos se puderem me ajudar...
×
×
  • Criar Novo...