MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Criar um bloco de notas através de comando

    Compartilhe

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    Registrado : 09/11/2012

    [Resolvido]Criar um bloco de notas através de comando

    Mensagem  =>Nois em Seg 15 Fev 2016, 16:55

    boa tarde!

    é possível criar um bloco de notas direto do vba do access?

    abrir, executar, deletar ja vi mais gerar um arquivo não tenho ideia como faço.

    (criar em branco mesmo, definindo um nome do mesmo)


    obrigado!


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    Registrado : 15/03/2013

    Re: [Resolvido]Criar um bloco de notas através de comando

    Mensagem  ahteixeira em Ter 16 Fev 2016, 15:23

    Olá Lander Matos,
    Com o código abaixo acho que faz o que pretende, será ajustar, veja:

    Código:
    'Alvaro Teixeira 2016 para MaximoAccess
    Dim strFicheiro As String

        strFicheiro = Application.CurrentProject.Path & "\exportacao.txt"       'caminho e ficheiro

        Open strFicheiro For Output As #1                                       'abrir ficheiro para escrita
            Print #1, "Olá, Bons estudos com o MaximoAccess"                                              'escrever se necessário
        Close #1                                                                'fechar ficheiro

        'pergunta se que ver no notepad
        If MsgBox("Deseja ver o ficheiro no Notepad?", vbYesNo + vbQuestion + vbDefaultButton2, "") = vbYes Then
            Call Shell("NOTEPAD.EXE " & strFicheiro, vbNormalFocus)
        Else
            MsgBox "Ficheiro criado em " & strFicheiro, vbMsgBoxHelpButton, ""
        End If

    Segue o meu teste.
    Abraço
    Anexos
    CriarTxt_AbrirNotepad.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (16 Kb) Baixado 18 vez(es)

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    Registrado : 09/11/2012

    Re: [Resolvido]Criar um bloco de notas através de comando

    Mensagem  =>Nois em Ter 16 Fev 2016, 17:55

    cheers Muito bem! obrigado


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3217
    Registrado : 15/03/2013

    Re: [Resolvido]Criar um bloco de notas através de comando

    Mensagem  ahteixeira em Qua 17 Fev 2016, 18:40

    Olá Lander Matos,
    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: Sex 09 Dez 2016, 13:27