Ir para conteúdo
Fórum Script Brasil

rafaelsetti

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    16

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por rafaelsetti

  1. erro codigo

    em ASP

    Postado

    bom dia, por favor alguém poderia me ajudar com este código ?

    <%
    sub abreconexao
    const cntCaminho="C:\serieweb\ecommerce\database\editora.mdb"
    Set conEditora=Server.CreateObject("ADODB.Connection")
    ConEditora.Open "provider=microsoft.jet.oledb.4.0;data source="&cntCaminho&";"
    end sub
    sub fechaconexao
    conEditora.close
    set conEditora=nothing
    end sub
    %>

    <%
    OPTION EXPLICIT
    %>
    <!--#INCLUDE FILE="CONEXAO.INC"-->
    <%
    RESPONSE.EXPIRES=0
    DIM ConEditora
    dim categoria,numlivros,rstcat, STRCAT, NUMCAT,STRDATA, RSTDATA, datainicial,DataFinal,STRNREGISTROS, RSTNREGISTROS 
    DIM STRLIVROS, RSLIVROS
    CALL abreconexao
    STRDATA="SELECT MAX (DTLANC) AS TOPDATA FROM LIVROS "
    set RSTDATA = CONEDITORA.EXECUTE(STRDATA)
    DataFinal=RSTDATA.fields("TOPDATA")
    datainicial=((DataFinal-30))
    STRNREGISTROS="SELECT COUNT (ISBN) AS NUMLIVROS FROM LIVROS "
    STRNREGISTROS = STRNREGISTROS & "WHERE LIVROS.DTLANC >=#" & DATAINICIAL & "#"
    set RSTNREGISTROS = CONEDITORA.EXECUTE(STRNREGISTROS)
    strLivros = "SELECT * "
    strLivros = strLivros & "FROM Livros "

    strLivros = strLivros & "INNER JOIN Categorias "

    strLivros = strLivros & "ON livros.codCategoria = Categorias.codCategoria "

    strLivros = strLivros & "WHERE livros.dtLanc BETWEEN #" & dataInicial & "# and #" & dataFinal & "#  "

    strLivros = strLivros & "ORDER BY livros.dtLanc desc"


    Set rsLivros = CONEDITORA.Execute(strLivros)
     

    STRCAT="SELECT * "
    STRCAT = STRCAT & "FROM CATEGORIAS "
    STRCAT = STRCAT & "ORDER BY CATEGORIA ASC "
    set rstcat = CONEDITORA.EXECUTE(STRCAT)


    %>

     

    Obrigado,

  2. bolão brasileirão

    em VBA

    Postado · Editado por rafaelsetti

    boa tarde, gostaria de saber como faço uma fórmula que calcule a pontuação dos resultados do bolão como:
    Apenas vitória de um dos time ou empate no jogo - 5 ptos
    Acertar vitória ou derrota de um time com acerto de um deles - 8 ptos
    Acertar o placar exato - 10 ptos

    E transferir esta planilha para uma outra a classificação de todos os participantes em ordem decrescente de pontos.



    obrigado,

    rafael

  3. Erro variavel with

    em VBA

    Postado

    Boa noite, tem como detectar o erro que não consigo encontrar de váriavel with neste código ?? poderiam me ajudar ??
    Obrigado,
    Rafael
    Sub altera()
    Dim PERGUNTA, PERGUNTA2, PERGUNTA3, PERGUNTA4, PERGUNTA5, PERGUNTA6, PERGUNTA7, DECISAO, DECISAO2, DECISAO3, DECISAO4, DECISAO5, DECISAO6, DECISAO7
    Dim OL As Outlook.Application
    Dim olAppt As TaskItem
    Dim NS As Outlook.Namespace
    Dim colItems As Outlook.Items
    Dim olApptSearch As TaskItem
    Dim r As Long, sSubject As String, sBody As String
    Dim dStartDate As Date, dDueDate As Date
    Dim sSearch As String, bOLOpen As Boolean
    Dim s As Worksheet
    On Error Resume Next
    Set OL = GetObject("Outlook.Application")
    bOLOpen = True
    If OL Is Nothing Then
    Set OL = CreateObject("Outlook.Application")
    bOLOpen = False
    End If
    Set NS = OL.GetNamespace("MAPI")
    Set colItems = NS.GetDefaultFolder(olFolderTasks).Items
    PERGUNTA = "DIGITE O ASSUNTO:"
    DECISAO = InputBox(PERGUNTA)
    PERGUNTA2 = "DIGITE O DATA INICIO:"
    DECISAO2 = InputBox(PERGUNTA2)
    PERGUNTA3 = "DIGITE O HORA INICIO:"
    DECISAO3 = InputBox(PERGUNTA3)
    PERGUNTA4 = "DIGITE O HORA TÉRMINO:"
    DECISAO4 = InputBox(PERGUNTA4)
    PERGUNTA5 = "DIGITE O LOCAL:"
    DECISAO5 = InputBox(PERGUNTA5)
    PERGUNTA6 = "DIGITE A CATEGORIA:"
    DECISAO6 = InputBox(PERGUNTA6)
    PERGUNTA7 = "DIGITE O CORPO DA MENSAGEM:"
    DECISAO7 = InputBox(PERGUNTA7)
    For r = 2 To 5
    If Len(Worksheets("Outlook").Cells(r, 1).Value) = 0 Then GoTo NextRow
    If DECISAO <> "" Then
    If Worksheets("Outlook").Cells(r, 1).Value = Texttitulo Then
    Worksheets("Outlook").Cells(r, 1).Value = DECISAO
    sSubject = Worksheets("Outlook").Cells(r, 1).Value
    End If
    If DECISAO2 <> "" Then
    Worksheets("Outlook").Cells(r, 2).Value = DECISAO2
    dStartDate = Worksheets("Outlook").Cells(r, 2).Value
    Worksheets("Outlook").Cells(r, 4).Value = DECISAO2
    dDueDate = Worksheets("Outlook").Cells(r, 4).Value
    End If
    If DECISAO3 <= "23:59" Then
    Worksheets("Outlook").Cells(r, 3).Value = DECISAO3
    dStartTIME = Worksheets("Outlook").Cells(r, 3).Value
    End If
    If DECISAO4 < "23:59" Then
    Worksheets("Outlook").Cells(r, 5).Value = DECISAO4
    dDueTIME = Worksheets("Outlook").Cells(r, 5).Value
    End If
    If DECISAO6 <> "" Then
    Worksheets("Outlook").Cells(r, 6).Value = DECISAO6
    dCATEGORIES = Worksheets("Outlook").Cells(r, 6).Value
    End If
    If DECISAO5 <> "" Then
    Worksheets("Outlook").Cells(r, 7).Value = DECISAO5
    dLOCATION = Worksheets("Outlook").Cells(r, 7).Value
    End If
    If DECISAO7 <> "" Then
    Worksheets("Outlook").Cells(r, 8).Value = DECISAO7
    dBODY = Worksheets("Outlook").Cells(r, 8).Value
    End If
    End If
    sSubject = Worksheets("OUTLOOK").Cells(r, 1).Value
    dStartDate = Worksheets("OUTLOOK").Cells(r, 2).Value
    dDueDate = Worksheets("OUTLOOK").Cells(r, 4).Value
    dStartTIME = Worksheets("OUTLOOK").Cells(r, 3).Value
    dDueTIME = Worksheets("OUTLOOK").Cells(r, 5).Value
    dLOCATION = Worksheets("OUTLOOK").Cells(r, 6).Value
    dCATEGORIES = Worksheets("OUTLOOK").Cells(r, 7).Value
    dBODY = Worksheets("OUTLOOK").Cells(r, 8).Value
    sSearch = "[subject] = " & sQuote(sSubject)
    Set olApptSearch = colItems.Find(sSearch)
    'If olApptSearch Is Nothing Then
    ' Set olAppt = OL.CreateItem(olTaskItem)
    ' olAppt.subject = sSubject
    ' olAppt.StartDate = dStartDate
    ' olAppt.DueDate = dDueDate
    'olAppt.StartTime = dStartTIME
    'olAppt.DueTIME = dDueTIME
    'olAppt.Location = dLOCATION
    'olAppt.Categories = dCATEGORIES
    'olAppt.Body = dBODY
    'olAppt.Close olSave
    'End If
    If RESP <> "1" Then
    Set olApptSearch = colItems.Find(sSearch)
    If olAppt.subject = Texttitulo Then
    Set olAppt = OL.updateitem(olTaskItem)
    olAppt.subject = sSubject
    olAppt.StartDate = dStartDate
    olAppt.DueDate = dDueDate
    olAppt.StartTime = dStartTIME
    olAppt.DueTIME = dDueTIME
    olAppt.Categories = dCATEGORIES
    olAppt.Location = dLOCATION
    olAppt.Body = dBODY
    olAppt.Close olSave
    End If
    End If
    NextRow:
    Next r
    If bOLOpen = False Then OL.Quit
    End Sub

  5. EXIBIR ARQUIVO WORD PELO NOME DO CLIENTE DO BD ACCESS

    em VBA

    Postado

    boa noite,

    Gostaria de uma ajuda.. Através de uma consulta do sistema do vba pelo textbox textcliente ele busque um arquivo .doc em uma pasta um relatório do paciente e se não tiver abrir um documento em branco e salvar com o nome do cliente do novo registro na mesma pasta.


    Dá para fazer, consegui pegar alguns códigos de word aqui, mas todos dão erro.


    Obrigado,

    Rafael

  6. ordenar uma listview pelo campo hora

    em VBA

    Postado

    A ordem da classificação é: primeiro: data - depois hora depois - data_prox_agendamento depois hora_prox_agendamento..

    Segue abaixo o código fonte.

    Obrigado,

    Rafael

    Private Sub Textpesquisanome_Change()
  Dim nConn As New ADODB.Connection
   Dim DB As Database
   
   Dim nConn2 As New ADODB.Connection
    Dim BANCO As New ADODB.Recordset
    Dim BANCO1 As ADODB.Recordset
    Dim SQL As String
    Dim SQL2 As String
    Dim Count

    Dim nConectar As String
    Dim nConectar2 As String
    'Endereço e nome do banco de dados       * habilite o provedor de acordo c/ sua versao:
   ' nConectar = "Provider=Microsoft.Jet.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\base.mdb"
    nConectar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\\CARLOSSETTI-PC\C\REAL FEET\DATABASE\REALFEET.MDB"
    nConn.ConnectionString = nConectar
    nConn.Open
    nConectar2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "\\CARLOSSETTI-PC\C\REAL FEET\DATABASE\REALFEET.MDB"
    nConn2.ConnectionString = nConectar2
    nConn2.Open
 Set BANCO1 = New ADODB.Recordset
  BANCO1.Open ("AGENDAMENTO"), nConn2
Dim i As Integer

i = 0

Me.Listview1.ListItems.Clear
    Me.Listview1.ColumnHeaders.Clear
    Me.Listview1.View = lvwReport
    Me.Listview1.Gridlines = True
 Listview1.ColumnHeaders.Clear
 Me.Listview1.ColumnHeaders.Add , , "", 0
    Me.Listview1.ColumnHeaders.Add , , "OS", 60, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "DATA", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "HORA", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "CLIENTE", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "FONE1", 120, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "FONE2", 120, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "RAMAL", 120, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "E-MAIL", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "SERVIÇO", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "PROFISSIONAL", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "DATA_PROX_CONSULTA", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "HORA_PROX_CONSULTA", 170, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "E-MAIL CONFIRMAÇÃO DE CONSULTA", 300, lvwColumnCenter
    Me.Listview1.ColumnHeaders.Add , , "E-MAIL CONFIRMAÇÃO DE RETORNO", 300, lvwColumnCenter
 'Aqui é nossa busca pelo que digitammos
'A busca pode ter qualquer parametro desde que lhe atenda
Dim CADASTRO(1 To 15)

            CADASTRO(1) = UCase(Me.TextFILTROPROF.Text)
            TextFILTROPROF.Text = CADASTRO(1)
            CADASTRO(2) = UCase(Me.Textcliente2.Text)
            Textcliente2.Text = CADASTRO(2)
If TextFILTROPROF.Text = Null Then

MsgBox "CAMPO DE PESQUISA PARA AGENDA: PROFISSIONAL ESTÁ EM BRANCO"
End If
If textboxfiltro.Text = Null Then
MsgBox "CAMPO DE PESQUISA PARA AGENDA: DATA ESTÁ EM BRANCO"
End If
SQL = "SELECT OS,NOME,DATA,HORA,fone1,fone2,RAMAL,EMAIL,SERVICO,PROFISSIONAL,DATA_PROX_AGENDAMENTO,HORA_PROX_AGENDAMENTO,consulta,retorno,PRONTUARIO FROM [AGENDAMENTO]"
    SQL = SQL & " WHERE [DATA] = '" & textboxfiltro & "'  OR [DATA_PROX_AGENDAMENTO]='" & textboxfiltro & "'"
    SQL = SQL & " AND [PROFISSIONAL]= '" & TextFILTROPROF & "' OR [DATA] = '" & textboxfiltro & "'  OR [DATA_PROX_AGENDAMENTO]='" & textboxfiltro & "'"
    
    'sql2 = "SELECT OS,NOME,DATA,HORA,TELRES,TELCEL,TELCOM,RAMAL,EMAIL,SERVICO,PROFISSIONAL,DATA_PROX_AGENDAMENTO,HORA_PROX_AGENDAMENTO,OBSERVACAO,PRONTUARIO FROM [AGENDAMENTO]"
    'sql2 = sql2 & " WHERE [DATA_PROX_AGENDAMENTO] = '" & TextBOXFILTRO & "'"
    'sql2 = sql2 & " AND [PROFISSIONAL]= '" & TextFILTROPROF & "'"
    
    Set BANCO = New ADODB.Recordset
    
    BANCO.Open SQL, nConn
   i = 1
   'banco1.Open sq2, nConn2
   
   'Count = BANCO1.RecordCount
   'BANCO1.MoveFirst
    'Set DB = OpenDatabase("\\CARLOSSETTI-PC\C\REAL FEET\DATABASE\REALFEET.MDB")
    'Set BANCO = DB.OpenRecordset("AGENDAMENTO")
'BANCO.MoveFirst
While Not BANCO.EOF
If TextFILTROPROF <> "" And textboxfiltro <> "" And Textcliente2 = "" Or TextFILTROPROF = "" And textboxfiltro <> "" And Textcliente2 = "" Then
Set LI = Listview1.ListItems.Add(Text:=BANCO("OS"))
If (BANCO("DATA") = textboxfiltro.Text Or BANCO("DATA_PROX_AGENDAMENTO") = textboxfiltro.Text) Or (BANCO("DATA") = textboxfiltro.Text Or BANCO("DATA_PROX_AGENDAMENTO") = textboxfiltro.Text) And BANCO("PROFISSIONAL") = TextFILTROPROF.Text Then

If BANCO("os") <> "" Then


LI.ListSubItems.Add Text:=BANCO("OS")


End If

If BANCO("data") <> "" Then

LI.ListSubItems.Add Text:=BANCO("DATA")

End If
If BANCO("hora") <> "" Then

LI.ListSubItems.Add Text:=BANCO("HORA")

End If
If BANCO("nome") <> "" Then


LI.ListSubItems.Add Text:=BANCO("NOME")

End If
If BANCO("FONE1") <> "" Then

LI.ListSubItems.Add Text:=BANCO("FONE1")

End If
If BANCO("FONE2") <> "" Then

LI.ListSubItems.Add Text:=BANCO("FONE2")

End If
If BANCO("ramal") <> "" Then

LI.ListSubItems.Add Text:=BANCO("RAMAL")

End If
If BANCO("email") <> "" Then

LI.ListSubItems.Add Text:=BANCO("EMAIL")

End If
If BANCO("servico") <> "" Then

LI.ListSubItems.Add Text:=BANCO("SERVICO")

End If
If BANCO("profissional") <> "" Then

LI.ListSubItems.Add Text:=BANCO("profissional")

End If
If BANCO("data_prox_agendamento") <> "" Then

LI.ListSubItems.Add Text:=BANCO("data_prox_agendamento")

End If
If BANCO("hora_prox_agendamento") <> "" Then

LI.ListSubItems.Add Text:=BANCO("hora_prox_agendamento")

End If
If BANCO("CONSULTA") <> "" Then

LI.ListSubItems.Add Text:=BANCO("CONSULTA")

End If
If BANCO("RETORNO") <> "" Then

LI.ListSubItems.Add Text:=BANCO("RETORNO")

End If

End If
Listview1.


Dim item As ListItem
 

'Aqui estamos acessando e definindo cada subitem

'Define o formato de visao como Report
Listview1.View = lvwReport



i = i + 1
BANCO.MoveNext

End If
Wend

 

'Aqui estamos acessando e definindo cada subitem

'Define o formato de visao como Report
Listview1.View = lvwReport




    
    
    
        Call TiraAcento2(linha)
While Not BANCO1.EOF
If TextFILTROPROF = "" And textboxfiltro = "" And Textcliente2 = BANCO1("NOME") Then
Set LI = Listview1.ListItems.Add(Text:=BANCO1("OS"))
If BANCO1("os") <> "" Then


LI.ListSubItems.Add Text:=BANCO1("OS")


End If

If BANCO1("data") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("DATA")

End If
If BANCO1("hora") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("HORA")

End If
If BANCO1("nome") <> "" Then


LI.ListSubItems.Add Text:=BANCO1("NOME")

End If
If BANCO1("FONE1") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("FONE1")

End If
If BANCO1("FONE2") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("FONE2")

End If
If BANCO1("ramal") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("RAMAL")

End If
If BANCO1("email") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("EMAIL")

End If
If BANCO1("servico") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("SERVICO")

End If
If BANCO1("profissional") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("profissional")

End If
If BANCO1("data_prox_agendamento") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("data_prox_agendamento")

End If
If BANCO1("hora_prox_agendamento") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("hora_prox_agendamento")

End If
If BANCO1("CONSULTA") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("CONSULTA")

End If
If BANCO1("RETORNO") <> "" Then

LI.ListSubItems.Add Text:=BANCO1("RETORNO")

End If
End If
BANCO1.MoveNext
Wend
CommandButton4.Enabled = False
CommandButton5.Enabled = False
CommandButton6.Enabled = False
CommandButton7.Enabled = False
CommandButton12.Enabled = False
CommandButton15.Enabled = False

nConn.Close
    Set BANCO = Nothing
    Exit Sub


End Sub

  9. PESQUISAR CEP PELA INTERNET SEM USAR O INTERNET EXPLORER

    em VBA

    Postado

    Este é o código de inclusão de cliente. Mas antes deste código preciso de um outro código de busca de endereço, numero, bairro, cidade, uf sem usar internet explorer, sendo o campo a informar o cep é o textcep.
    Obrigado,
    Rafael
    Private Sub CommandINCLUIR_Click()
    Dim BD As Database
    Dim dt As Recordset
    Dim CADASTRO(1 To 15)
    CADASTRO(1) = UCase(Me.TextCLIENTE.Text)
    CADASTRO(2) = UCase(Me.TextRG.Text)
    CADASTRO(3) = UCase(Me.TextCPF.Text)
    CADASTRO(4) = UCase(Me.TextDATA.Text)
    CADASTRO(5) = UCase(Me.TextENDERECO.Text)
    CADASTRO(5) = UCase(Me.TextENDERECO.Text)
    CADASTRO(6) = UCase(Me.TextN.Text)
    CADASTRO(7) = UCase(Me.TextBAIRRO.Text)
    CADASTRO(8) = UCase(Me.ComboCIDADE.Text)
    CADASTRO(9) = UCase(Me.ComboUF.Text)
    CADASTRO(10) = UCase(Me.TextCEP.Text)
    CADASTRO(11) = UCase(Me.TextTELRES.Text)
    CADASTRO(12) = UCase(Me.TextTELCEL.Text)
    CADASTRO(13) = UCase(Me.TextTELCOM.Text)
    CADASTRO(14) = UCase(Me.TextRAMAL.Text)
    CADASTRO(15) = LCase(Me.TextEMAIL.Text)
    CADASTRO(16) = LCase(Me.textcompl.Text)
    If Len(Me.TextCLIENTE) = 0 Then
    MsgBox "VOCÊ NÃO DIGITOU NENHUM NOME PARA INCLUSÃO", vbCritical, "CADASTRO DE CLIENTES"
    Else
    Carrega_imagem_Click
    Set BD = OpenDatabase("\\SERVIDOR\real feet\database\realfeet.mdb")
    Set rs = BD.OpenRecordset("cliente")
    If Me.Textcod.Text = "" Then
    MsgBox "INSIRA UM CÓDIGO DE CLIENTE VÁLIDO"
    Me.Textcod.SetFocus
    Exit Sub
    End If
    ' os campos na tabela já estão criados, DataNascimento e CodigoPostal
    ' falta somente os textboxes rerentes a eles e adicionar abaixo no código (rs.DastaNscimento e rs.CodigoPostal)
    Call TiraAcento2(TextCLIENTE.Text)
    While Not rs.EOF
    'adicione os ítens a ser criados aqui!!!!!!!
    If rs!codigo = Me.Textcod.Text Then
    MsgBox ("CÓDIGO DE CLIENTE JÁ CADASTRADO")
    resp = 1
    GoTo FIM2
    End If
    If rs!NOME = Me.TextCLIENTE.Text Then
    MsgBox ("NOME DE CLIENTE JÁ CADASTRADO")
    resp = 1
    GoTo FIM2
    End If
    rs.MoveNext
    Wend
    If resp <> 1 Then
    rs.AddNew
    rs!codigo = Me.Textcod.Text
    rs!NOME = CADASTRO(1)
    rs!RG = Me.TextRG
    rs!CPF = Me.TextCPF
    rs!DATANASCIMENTO = Me.TextDATA
    rs!endereco = CADASTRO(5)
    rs!N = Me.TextN
    rs!COMPL = Me.textcompl
    rs!BAIRRO = CADASTRO(7)
    rs!CIDADE = CADASTRO(8)
    rs!UF = CADASTRO(9)
    rs!cep = Me.TextCEP
    rs!FONE1 = Me.TextTELRES
    rs!FONE2 = Me.TextTELCEL
    rs!RAMAL = Me.TextRAMAL
    rs!Email = CADASTRO(15)
    rs!FOTO = Me.TextCAMINHOPATH
    rs.Update
    rs.Close
    BD.Close
    MsgBox ("DADOS INSERIDOS COM SUCESSO!"), vbInformation
    Call TiraAcento(rs!NOME)
    Me.Textcod = Null
    Me.TextCLIENTE = Null
    Me.TextRG = Null
    Me.TextCPF = Null
    Me.TextDATA = Null
    Me.TextENDERECO = Null
    Me.TextN = Null
    Me.textcompl = Null
    Me.TextBAIRRO = Null
    Me.TextCEP = Null
    Me.TextTELRES = Null
    Me.TextTELCEL = Null
    Me.TextRAMAL = Null
    Me.TextEMAIL = Null
    Me.ComboCIDADE = Null
    Me.ComboUF = Null
    Me.IMAGEFOTO.Picture = Nothing
    Me.TextCAMINHOPATH = Null
    Me.Textcod.SetFocus
    FIM2:
    End If
    GoTo FIM
    Exit Sub
    FIM:
    End If
    End Sub

  13. PESQUISAR CEP PELA INTERNET SEM USAR O INTERNET EXPLORER

    em VBA

    Postado

    BOA TARDE,

    TEM ALGUM CÓDIGO EM VBA PARA PESQUISA CEP (ENDEREÇO, N, BAIRRO, CEP, CIDADE, UF) SEM UTILIZAR O INTERNET EXPLORER, POIS PRECISO INSTALAR UM SOFTWARE EM UMA CLINICA E LÁ USA UM WINDOWS XP COMO NÃO DÃO MAIS SUPORTE PARA ESTE WINDOWS NECESSITA DE ATUALIZAÇÃO PARA O INTERNET EXPLORER PARA UTILIZAÇÃO DESTE RECURSO DO CÓDIGO QUE EU TENHO PARA ESTA PESQUISA QUE USA O INTERNET EXPLORER, NO 8 ELE NÃO RODA, PODEM ME AJUDAR COM OUTRO CÓDIGO ??? PARA PESQUISAR O CAMPO DA PESQUISA É TEXTCEP.TEXT.

    OBRIGADO,

    RAFAEL

  15. LISTBOX(LISTVIEW) COM DUAS CONDIÇÕES DE BUSCA (14 COLUNAS)

    em VBA

    Postado

    OBRIGADO PELA RESPOSTA, FUNCIONOU DIREITINHO O LISTVIEW. ESSE CÓDIGO DO TESTPRINT EU JÁ TINHA TENTADO OUTRA VEZ MAIS NÃO PASSOU,

    POSSO TIRAR OUTRA DÚVIDA SEM QUERER ABUSAR DA SUA BOA VONTADE ??? COMO EU INSIRO UMA IMAGEM DENTRO DO SUBITEM DO LISTVIEW É porque TENHO IMAGENS DE PÓS TRATAMENTO, O DO PRÓPRIO PACIENTE ANTES DO TRATAMENTO, E O DO PRONTUÁRIO QUE GOSTARIA DE COLOCÁ-LO. SE TIVER COMO DARIA PARA IMPRIMIR ESSA LISTVIEW COM ESSES DADOS EM PDF ??? OBRIGADO.

  16. LISTBOX(LISTVIEW) COM DUAS CONDIÇÕES DE BUSCA (14 COLUNAS)

    em VBA

    Postado

    BOA TARDE, ESTOU PRECISANDO CRIAR UM LISTBOX(LISTVIEW) NO VBA COM O REGISTRO NO ACCESS (TABELA AGENDAMENTO) SENDO QUE A BUSCA TEM QUE SE DIRECIONADA PELO CAMPO TEXTBOXFILTRO DO FORMULARIO QUE NA TABELA AGENDAMENTO TERIA QUE SER IGUAL A DATA OU DATA_PROX_AGENDAMENTO SE FOR IGUAL A UM DESSE CAMPOS LISTAR NO LISTBOX OS CAMPOS OS, NOME, DATA. HORA, TELRES,TELCEL,TELCOM,RAMAL,E.MAIL,SERVICO,PROFISSIONAL,DATA_PROX_AGENDAMENTO,HORA_PROX_AGENDAMENTO E OBSERVACAO.

    OUTRA DÚVIDA QUE EU TENHO É COMO ABRIR NO VBA UM ARQUIVO PDF E MANDÁ-LO IMPRIMIR DIRETO.

    OBRIGADO,

    RAFAEL

×
×
  • Criar Novo...