Jump to content
Fórum Script Brasil

frata

Membros
  • Content Count

    155
  • Joined

  • Last visited

Community Reputation

0 Neutro

About frata

Recent Profile Visitors

1566 profile views
  1. Private Sub Form_Load() If Time > #05:00:00 PM# Then MsgBox "Este terminal está programado para desligar após às 5 horas", , "" Shell "shutdown -r -t 00"
  2. frata

    vba compatibilidade

    Descobri sozinho como resolver o problema. É simples! Basta abrir a versão antiga e exportar o Userform; em seguida abra a versão superior e importe o Userfor. Sempre usando a interface do VBA.
  3. frata

    vba compatibilidade

    Prezados colegas: Fiz uma planilha em excel 2000 que usa alguns códigos VBA e dois Useforms. Porém quando rodo a planilha numa versão superior os useforms não aparecem. Será um problema de compatibilidade? Fico no aguardo. Obrigado!
  4. Obrigado! Ajudou sim!! Valeu!!!!
  5. caros colegas! Preciso de um código com o qual eu dou um clique duplo na linha do listview e abra meu formulário com os dados desa linha carregados. Será que alguém sabe como faço isso? Obrigado!!
  6. frata

    Timer no VBA

    Bom dia, galera!!! Preciso colocar um Timer num formulário VBA para ele abrir por um período de 2 segundos. Em VB é muito fácil criar isso, mas descobri que o VBA não tem o Timer. Será que dá para criar isso com um código?? Obrigado!!
  7. Grande Kuroi:

    Você já me salvou diversas vezes, e pode me salvar mais uma vez. Tenho o código abaixo que abre uma determinada pasta no Windows; até aí tudo bem, mas preciso de um código para depois fechar essa mesma página. HELP!!! Obrigado, uma vez mais. Grande abraço.

    Shell "explorer /n,C:\MinhaPasta", vbNormalFocus

  8. Prezados colegas: Preciso de um código que feche uma pasta específica do Windows. Eu dou o caminho e se a pasta estiver aberta ela será fechada via código. Será que alguém sabe como desenvolver isso??? Antecipadamente agradeço a todos. Grande abraço. Frata.
  9. Prezado Kuroi, boa noite!

    Como você já me "salvou" diversas vezes, é que resolvi te pedir um socorro novamente. Abaixo estou enviando um código que era de um cadastro de receitas de culinária, e eu estou adaptando-o para cadastro de clientes. O que acontece? O programa anterior não aceita campos nulos, mas o atual, por ser um cadastro deve aceitar campos nulos. Gostaria de saber como modifico isso. O banco que estou usando é um Access. Antecipadamente agradeço pela sua atenção e gentileza. Frata.

    Ah, só mais uma coisinha, eu até modifiquei a parte do código que avisa que existem campos vazios, mas aí dá erro quando vai salvar. Brigaduuuuuuuuu..!!!

     

     

    'declarando os objetos necessários
    'command e recordset para interagir com o  BD
    'e declarando variavel para utilizar msgbox
    Dim cmd As New ADODB.Command
    Dim rs As New ADODB.Recordset
    Dim vinfo As Integer
    'chamando a sub que carrega a lista com os dados do BD
    Private Sub Form_Load()
    preenche_list

    End Sub

    'descarregando os objetos command e recordset quando
    'fechar o form e limpando os arquivos temp criados
    Private Sub Form_Unload(Cancel As Integer)
    Set cmd = Nothing
    Set rs = Nothing
    Set cnnreceitas = Nothing

    If Dir("c:*.tmp") <> "" Then
    On Error Resume Next
    Kill "c:*.tmp"
    End If

    End Sub

    'quando der duplo click na lista
    'filtra as informações no BD e joga nos campos
    'para alterar
    Private Sub List_receitas_DblClick()
    With cmd
        .ActiveConnection = cnnreceitas
        .CommandType = adCmdText
        .CommandText = "select * from receitas"
    Set rs = .Execute
    End With
    With rs
        .Filter = " receita like '" & List_receitas.Text & "'"
        Frame_cadastro.Visible = True
        Frame_Localizar.Visible = False
        Toolbar1.Visible = False
        Toolbar2.Visible = True
        travar_campos
        Text_cod = !cod
        Text_receita = !receita
        Text_ingredientes = !ingredientes
        Text_preparo = !preparo
        Text_email = !email
    End With
    End Sub

    'codigo que faz a busca na List quando é digitado
    'na text
    Private Sub Text1_Change()
    On Error GoTo trataerro

    With cmd
        .ActiveConnection = cnnreceitas
        .CommandType = adCmdText
        .CommandText = "select * from receitas"
        Set rs = .Execute
    End With
    With rs
        .Filter = " receita like '%" & Text1.Text & "%'"
        If .BOF And .EOF Then
        MsgBox ("Sequencia de caracteres não encontrado na lista")
        Else
        List_receitas = rs!receita
        End If
    End With

    trataerro:

    With Err
    If .Number <> 0 Then
    .Number = 0

    End If
    End With

    End Sub

    'faz as alterações entre as toolbar e os frames
    Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1
        Toolbar1.Visible = False
        Toolbar2.Visible = True
        Frame_cadastro.Visible = True
        Frame_Localizar.Visible = False
        Case 2
        Frame_Localizar.Visible = True
        Text1.Text = ""
        
        
    End Select
    End Sub

    'chama os procedimentos de gravar, inserir ou retornar
    'para o outro frame
    Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)

  10. frata

    Null

    Prezados colegas: Segue abaixo um código que quando vai salvar no banco de dados um Access ele pede que todos os campos do formulário estejam preenchidos. Será que alguém sabe como modificar isso. Obrigado! 'declarando os objetos necessários 'command e recordset para interagir com o BD 'e declarando variavel para utilizar msgbox Dim cmd As New ADODB.Command Dim rs As New ADODB.Recordset Dim vinfo As Integer 'chamando a sub que carrega a lista com os dados do BD Private Sub Form_Load() preenche_list End Sub 'descarregando os objetos command e recordset quand
  11. frata

    Campos nulos

    Prezados colegas. Estou tentando adaptar um código, de cadastro de receitas para cadastro de clientes, e decorre que no código anterior não aceita campos nulos para serem inseridos no BD, mas no programa atual de clientes, é necessário que apenas os dois primeiros campos não possam ser nulos, que seriam "nome" e "endereço". Será que alguém sabe como resolver isso. Antecipadamente agradeço. Frata Estou postando o código abaixo. 'declarando os objetos necessários 'command e recordset para interagir com o BD 'e declarando variavel para utilizar msgbox Dim cmd As New A
  12. frata

    Formulário

    Prezados colegas: Estou precisando que o meu formulário ao abrir fique posicionado em cima do relógio do windows; eu já fiz isso uma vez, mas não lembro mais como desenvolver esse código. Será que alguém poderia me dar uma dica? Antecipadamente agradeço pela atenção e gentileza de todos. Frata
  13. frata

    Abrindo PDF

    Prezados colegas: Desenvolvi um navegador que funciona perfeitamente bem. Porem descobri que se a página que estou navegando for um PDF ela só abre se na máquina eu tiver instalado o Adove Reader na versão 10.0.0 já verifiquei que em máquinas onde está instalada a versão 10.1.9 do Adove Rider, a página não carrega. Será que alguém sabe me dizer porque isso ocorre? Não posso solicitar que os usuários atualizem o Adove para baixo. Segue abaixo o código que estou usando: If Form1.Text1 = "15414.002878/2012-37" Then Form3.Show Form3.WebBrowser1.Navigate "http://
  14. Desenvolvi um navegador que funciona muito bem. Porém agora, descobri por acaso, que ele não abre páginas com PDF, ou melhor até abre, mas só se na máquina estiver instalado o Adobe na versão 10.0.0; nas máquina com a versão 10.1.3 a página com extensão PDF não abre e ainda dá erro. E o pior é que não posso mandar o usuário atualizar para baixo. Será que alguém tem alguma coisa a dizer em relação a esse mistério..???? Segue abaixo o código: Obs.: estou usando o componente WebBrowser. Form1.Show Form1.wbrDesiredURL.Navigate "http://www.sulamerica.com.br/capitalizacao/cgs/CG_15
  15. Oi, Obrigado pelo seu comentário, mas acho que me expressei mal. Este código é para abrir endereços da web e não na minha máquina, e aliás funciona muito bem; menos para PDF. Hoje descobri por acaso que é necesário que se tenha na máquina o Adobe versão 10.0.0 e nas versõe acima desta não abre. Isso é, na realidad, um complicador porque não posso mandar o usuário atualizar para baixo. Será que existe alguma outra solução? Obrigado. Frata.
×
×
  • Create New...