Uso de 'Null' inválido

Anônima
2009-09-25T21:17:13+00:00

Boa noite,

Estou começando a trabalhar com VBA e encontrei um problema que não consigo entender, minha macro é usada para fazer associação de campos de acordo com o usuário, tenho uma variável chamada filial_col, uma chamada dt_admissao_col e uma outra chamada tel_cel_col, sempre quando é feito a associação eu salvo um layout mas não consigo deixar a variavel como nulo e por isso impede que minha função consiga associar os campos!

Acho que vendo fica melhor de explicar.

Option Explicit Public g As Integer Public max_Col As Long Public max_Lin As Long Public operacao_col, codigo_filial_col, filial_col As Integer Public cep_col, cpf_col, matricula_col, rg_col, pis_col, num_col, numero_col As Integer Public descricao_centro_custo_col, centro_de_custo_col, ddd_res_col, tel_res_col As Integer Public ddd_com_col, tel_com_col, cod_mun_ibge_col, ddd_cel_col, tel_cel_col As Integer Public n_banco_col, n_agencia_col, n_cta_col, cns_col As Integer Public email_col, tipo_associado_col, orgao_emissor_col, relacao_dependencia_col, local_filial_col As String Public cargo_col, nome_col, sexo_col, nome_mae_col, estado_civil_col, bairro_col As String Public end_residencial_col, uf_col, cidade_col, tipo_logradouro_col, complemento_col As String Public dt_nascimento_col, dt_expedicao_col As Date Public dt_admissao_col As Date

Public a, b, c, d, e, f, h, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z, aa, ab, ac, ad, ae, af, ag, ah, ai, aj, ak, al, am, an, ao, ap, aq, ar As Long

Public Directory As String Dim fechando As String

Public Sub sbCarregaVariaveis() operacao_col = Null codigo_filial_col = Null filial_col = Null local_filial_col = Null nome_col = Null nome_mae_col = Null cpf_col = Null dt_nascimento_col = Null matricula_col = Null cargo_col = Null relacao_dependencia_col = "" sexo_col = Null centro_de_custo_col = Null descricao_centro_custo_col = Null dt_admissao_col = Null num_col = Null cep_col = Null tipo_associado_col = Null rg_col = Null orgao_emissor_col = Null dt_expedicao_col = Null estado_civil_col = Null cidade_col = Null email_col = Null pis_col = Null tipo_logradouro_col = Null end_residencial_col = Null complemento_col = "" bairro_col = "" 'num_col = null uf_col = Null ddd_res_col = Null tel_res_col = 0 ddd_com_col = Null tel_com_col = Null ddd_cel_col = Null tel_cel_col = 0 n_banco_col = Null n_agencia_col = Null n_cta_col = Null cns_col = 0 cod_mun_ibge_col = Null

Dim recordset As ADODB.recordset
Dim cn As ADODB.Connection
Dim rs As ADODB.recordset
Dim rsLayout As ADODB.recordset
Dim rsCmbDetalhe As ADODB.recordset
Dim cnLayout As ADODB.Connection
     
    Set cnLayout = New ADODB.Connection
    Set rsCmbDetalhe = New ADODB.recordset
    Set cn = New ADODB.Connection
With cn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & \_
    "Data Source=M:\CSO\Processos\Projetos                          \Aplicação\bd\_implantacao.mdb;"
    .Mode = adModeReadWrite
    .Open
End With

Set rsLayout = New ADODB.recordset
Dim nCodLayout As Integer

rsLayout.Open "TB_Layout_detalhe", cn, adOpenKeyset, adLockOptimistic, adCmdTable 'rsCmbDetalhe.Open "TB_Layout_detalhe", cn, adOpenKeyset, adLockOptimistic, adCmdTable

'rsLayout.Open "Select Cd_layout, Ds_campo_excel, Ds_campo_tabela from TB_Layout_detalhe where Ds_campo = " & nCodLayout, cnLayout, adOpenKeyset, adLockOptimistic

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "OPERACAO" Then
         operacao\_col = rsLayout("Ds\_campo\_tabela")
       End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "CODIGO FILIAL" Then
         codigo\_filial\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
 
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "FILIAL" Then
         filial\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "LOCAL FILIAL" Then
        local\_filial\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "NOME COMPLETO" Then
        nome\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "NOME MÃE" Then
         nome\_mae\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
 
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "CPF" Then
        cpf\_col = rsLayout("Ds\_campo\_tabela")
      End If
     rsLayout.MoveNext
   Loop
End If
     
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "DATA NASCIMENTO" Then
       dt\_nascimento\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
     
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "REGISTRO NA EMPRESA" Then
         matricula\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "CARGO NA EMPRESA" Then
         cargo\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
     
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "RELAÇÃO DEPENDENCIA" Then
         relacao\_dependencia\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
     
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "SEXO" Then
         sexo\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
         
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "CENTRO DE CUSTO" Then
         centro\_de\_custo\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
     
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "DESCRIÇÃO CENTRO DE CUSTO" Then
         descricao\_centro\_custo\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
     
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "DATA DE ADMISSÃO" Then
         dt\_admissao\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
     
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "NUMERO" Then
         num\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "CEP" Then
         cep\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
 
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "TIPO ASSOCIADO" Then
         tipo\_associado\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "RG" Then
         rg\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "ÓRGÃO EMISSOR" Then
         orgao\_emissor\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "DATA DE EXPEDIÇÃO" Then
         dt\_expedicao\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "ESTADO CIVIL" Then
         estado\_civil\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
 
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "CIDADE" Then
         cidade\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "EMAIL" Then
         email\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "PIS" Then
         pis\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

Dim lixo As Variant

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "TIPO LOGRADOURO" Then
         tipo\_logradouro\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "ENDEREÇO RESIDENCIAL" Then
         end\_residencial\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "COMPLEMENTO" Then
         complemento\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "BAIRRO" Then
         bairro\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

 'If rsLayout.RecordCount > 0 Then
 '  Do While Not rsLayout.EOF
 '     If rsLayout("Ds\_campo\_tabela") = "" Then
 '        num\_col = rsLayout("Ds\_campo\_tabela")
 '     End If
 '     rsCmbDetalhe.MoveNext
 '  Loop
 'End If
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "UF" Then
         uf\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "DDD RESIDENCIAL" Then
         ddd\_res\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "TEL RESIDENCIAL" Then
         tel\_res\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "DDD COMERCIAL" Then
         ddd\_com\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "TEL COMERCIAL" Then
         tel\_com\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "DDD CELULAR" Then
         ddd\_cel\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "TEL CELULAR" Then
         tel\_cel\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "N.º BANCO" Then
         n\_banco\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "N.º AGENCIA" Then
         n\_agencia\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "N.º CONTA" Then
         n\_cta\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "CNS" Then
         cns\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If
    
rsLayout.MoveFirst
If rsLayout.RecordCount > 0 Then
   Do While Not rsLayout.EOF
      If rsLayout("Ds\_campo\_tabela") = "CODIGO\_MUNICIPIO\_IBGE" Then
         cod\_mun\_ibge\_col = rsLayout("Ds\_campo\_tabela")
      End If
      rsLayout.MoveNext
   Loop
End If

rsLayout.Close

Set rs = Nothing 'fechando conecção, necessário cn.Close Set cn = Nothing

End Sub Private Sub cmbLayout_Change() Dim cnLayout As ADODB.Connection Dim rsCmbLayout As ADODB.recordset Set rsCmbLayout = New ADODB.recordset Dim rsCmbDetalhe As ADODB.recordset Set rsCmbDetalhe = New ADODB.recordset ' Dim value As String ListBox3.Clear Set cnLayout = New ADODB.Connection

' value = 1

' If TextBox1 <> Null Then With cnLayout .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=M:\CSO\Processos\Projetos \Aplicação\bd_implantacao.mdb;" .Mode = adModeReadWrite .Open End With Dim x As Integer Dim nCodLayout As Integer Dim strSql As String x = InStr(1, cmbLayout, "-", vbTextCompare) + 2 nCodLayout = CInt(Mid(cmbLayout, x, 10)) strSql = "Select Cd_layout, Nm_layout, Nr_linha_cabecalho from TB_Layout where Cd_layout = " & nCodLayout rsCmbLayout.Open "Select Cd_layout, Nm_layout, Nr_linha_cabecalho from TB_Layout where Cd_layout = " & nCodLayout, cnLayout, adOpenKeyset, adLockOptimistic If rsCmbLayout.RecordCount > 0 Then TextBox1 = rsCmbLayout("Nr_linha_cabecalho") End If

'Carrega Detalhe
rsCmbDetalhe.Open "Select Cd\_layout, Ds\_campo, Ds\_campo\_excel, Ds\_campo\_tabela from TB\_Layout\_detalhe where Cd\_layout = " & nCodLayout, cnLayout, adOpenKeyset, adLockOptimistic
If rsCmbDetalhe.RecordCount &gt; 0 Then
    Do While Not rsCmbDetalhe.EOF
        ListBox3.AddItem rsCmbDetalhe("Ds\_campo")
        rsCmbDetalhe.MoveNext
    Loop
End If

Dim nLayoutExcel As Integer nLayoutExcel = 0 rsCmbDetalhe.MoveFirst If rsCmbDetalhe.RecordCount > 0 Then Do While Not rsCmbDetalhe.EOF For i = 0 To (ListBox1.ListCount - 2) If rsCmbDetalhe("Ds_campo_excel") = Trim(ListBox1.List(i)) Then ListBox1.RemoveItem (i) nLayoutExcel = nLayoutExcel + 1 End If Next rsCmbDetalhe.MoveNext Loop End If

If ListBox3.ListCount <> nLayoutExcel Then MsgBox "Layout não corresponde ao arquivo selecionado.", vbOKOnly + vbInformation, "ATENÇÃO!!! Layou incorreto." End If

rsCmbDetalhe.MoveFirst If rsCmbDetalhe.RecordCount > 0 Then Do While Not rsCmbDetalhe.EOF For i = 0 To (ListBox2.ListCount - 2) If rsCmbDetalhe("Ds_campo_tabela") = Trim(ListBox2.List(i)) Then ListBox2.RemoveItem (i) End If Next rsCmbDetalhe.MoveNext Loop End If

rsCmbDetalhe.Close
rsCmbLayout.Close
cnLayout.Close

Call sbCarregaVariaveis

CommandButton3.Enabled = True CommandButton2.Enabled = True

End Sub

Public Sub CommandButton4_Click()

'CommandButton4.Enabled

Dim col As Long Dim cn As ADODB.Connection Dim rs As ADODB.recordset

Workbooks.Add

Set cn = New ADODB.Connection
With cn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & \_
    "Data Source=M:\CSO\Processos\Projetos                           \Aplicação\bd\_implantacao.mdb;"
    .Mode = adModeReadWrite
    .Open
End With

Set rs = New ADODB.recordset

With rs

Dim strextrair As String

'filtro para a consulta, buscando a query ou tabela no arquivo Access
'Src = "Select \*  " 'where item = 'Lease' --&gt; essa expressão possibilita fazer mais filtros ao longo das consultas"

strextrair = "SELECT implantacao_odonto.Código, implantacao_odonto.[CÓDIGO FILIAL], implantacao_odonto.FILIAL, implantacao_odonto.[LOCAL FILIAL], " & _ " implantacao_odonto.[REGISTRO NA EMPRESA], implantacao_odonto.[DATA DE ADMISSÃO], implantacao_odonto.[CARGO NA EMPRESA], implantacao_odonto.[CENTRO DE CUSTO], " & _ " implantacao_odonto.[DESCRIÇÃO CENTRO DE CUSTO], implantacao_odonto.[NOME COMPLETO], implantacao_odonto.[TIPO ASSOCIADO], implantacao_odonto.[RELAÇÃO DEPENDENCIA], " & _ " implantacao_odonto.NOME_DA_MAE, implantacao_odonto.DATA_NASCIMENTO, implantacao_odonto.PIS, implantacao_odonto.CPF, implantacao_odonto.RG, implantacao_odonto.[ÓRGÃO EMISSOR], " & _ " implantacao_odonto.[DATA DE EXPEDIÇÃO], implantacao_odonto.[ESTADO CIVIL], implantacao_odonto.SEXO, implantacao_odonto.[TIPO LOGRADOURO], implantacao_odonto.[ENDEREÇO RESIDENCIAL], " & _ " implantacao_odonto.NUMERO, implantacao_odonto.COMPLEMENTO, implantacao_odonto.BAIRRO, implantacao_odonto.CIDADE, implantacao_odonto.UF, implantacao_odonto.CEP, implantacao_odonto.[DDD_RESIDENCIAL], " & _ " implantacao_odonto.[TEL_RESIDENCIAL] , implantacao_odonto.[DDD_COMERCIAL], implantacao_odonto.[TEL_COMERCIAL], implantacao_odonto.[DDD_CELULAR], implantacao_odonto.[TEL_CELULAR], implantacao_odonto.email, " & _ " implantacao_odonto.n_banco , implantacao_odonto.n_agencia, implantacao_odonto.N_CONTA " & _ " FROM implantacao_odonto; where COD_IMPORTACAO = " & ncodimport

 cn.Execute strextrair

'Src = Src & "and Division = 'Brazil'" --&gt; essa expressão permiti fazer mais filtros além do já utilizado
.Open Source:=strextrair, ActiveConnection:=cn 'abrindo consulta

'colar os dados da consulta linha a linha
For col = 0 To rs.Fields.Count - 1
Range("a1").Offset(0, col).Value = rs.Fields(col).Name
Next
On Error Resume Next
Range("a1").Offset(1, 0).CopyFromRecordset rs
If Err = 429 Then
        Err = 0
Range("a1").Offset(1, 0).CopyFromRecordset rs
End If

End With

Set rs = Nothing
'fechando conecção, necessário
cn.Close
Set cn = Nothing

'Windows("aplicativo\_de\_implantacao.xls").Close

End Sub

Private Sub CommandButton6_Click() frmLayout.Show

End Sub

Private Sub exec_conf_Click() Application.ScreenUpdating = False Directory = frm_assoc_conf.TextBox2 'diretório onde estão os arquivos txt a serem buscados If Directory <> Null Or UCase(Right(Directory, 3)) = "XLS" Then Workbooks.Open Filename:=Directory Call UserForm

SpinButton1.Enabled = True

Else MsgBox "Não há planilha excel identificada para conferência." End If

End Sub

Public Sub exec_sair_Click() MsgBox "Tem centerza que deseja Sair?", vbOKCancel + vbCritical + 4096, "Sair"

'If Directory <> Null Then 'Windows(Directory).Close 'Else 'Unload Me 'End If For i = 1 To Application.Workbooks.Count Next Application.Quit

End Sub Public Sub fech()

End Sub Private Sub Frame2_Click()

End Sub

Private Sub Image1_Click()

End Sub

Private Sub Label12_Click()

End Sub

Private Sub Label16_Click()

End Sub

Private Sub ListBox4_Click()

End Sub

Private Sub rotulo1_Click() Dim text As String text = Application _ .GetOpenFilename("Text Files (*.xls), *.xls") If UCase(text) = "FALSO" Then Me.TextBox2 = "" Else: Me.TextBox2 = text End If End Sub

Private Sub CommandButton1_Click() CommandButton2.Enabled = True CommandButton3.Enabled = True CommandButton6.Enabled = True

ListBox3.AddItem (ListBox1.Object & " --&gt; " & ListBox2.Object)

If ListBox2.Object = "OPERACAO" Then
    ar = 0
    Do
    ar = ar + 1
Loop Until UCase(Cells(g, ar)) = ListBox1.Object
    operacao\_col = ar
ElseIf ListBox2.Object = "CODIGO FILIAL" Then
    a = 0
    Do
    a = a + 1
    Loop Until UCase(Cells(g, a)) = ListBox1.Object
    codigo\_filial\_col = a
ElseIf ListBox2.Object = "NOME COMPLETO" Then
    b = 0
    Do
    b = b + 1
Loop Until UCase(Cells(g, b)) = ListBox1.Object
    nome\_col = b
ElseIf ListBox2.Object = "RELAÇÃO DEPENDENCIA" Then
    c = 0
    Do
    c = c + 1
    Loop Until UCase(Cells(g, c)) = ListBox1.Object
    relacao\_dependencia\_col = c
ElseIf ListBox2.Object = "SEXO" Then
    d = 0
    Do
    d = d + 1
Loop Until UCase(Cells(g, d)) = ListBox1.Object
    sexo\_col = d
ElseIf ListBox2.Object = "CENTRO DE CUSTO" Then
    e = 0
    Do
    e = e + 1
Loop Until UCase(Cells(g, e)) = ListBox1.Object
    centro\_de\_custo\_col = e
ElseIf ListBox2.Object = "DATA DE ADMISSÃO" Then
    f = 0
    Do
    f = f + 1
Loop Until UCase(Cells(g, f)) = ListBox1.Object
    dt\_admissao\_col = f
ElseIf ListBox2.Object = "NUMERO" Then
    h = 0
    Do
    h = h + 1
Loop Until UCase(Cells(g, h)) = ListBox1.Object
    num\_col = h
ElseIf ListBox2.Object = "NOME MÃE" Then
    j = 0
    Do
    j = j + 1
Loop Until UCase(Cells(g, j)) = ListBox1.Object
    nome\_mae\_col = j
ElseIf ListBox2.Object = "CEP" Then
    k = 0
    Do
    k = k + 1
Loop Until UCase(Cells(g, k)) = ListBox1.Object
    cep\_col = k
ElseIf ListBox2.Object = "CPF" Then
    l = 0
Do
    l = l + 1
Loop Until UCase(Cells(g, l)) = ListBox1.Object
    cpf\_col = l
ElseIf ListBox2.Object = "CARGO NA EMPRESA" Then
    m = 0
    Do
    m = m + 1
Loop Until UCase(Cells(g, m)) = ListBox1.Object
    cargo\_col = m
ElseIf ListBox2.Object = "REGISTRO NA EMPRESA" Then
    n = 0
    Do
    n = n + 1
Loop Until UCase(Cells(g, n)) = ListBox1.Object
    matricula\_col = n
ElseIf ListBox2.Object = "DATA NASCIMENTO" Then
    o = 0
    Do
    o = o + 1
Loop Until UCase(Cells(g, o)) = ListBox1.Object
    dt\_nascimento\_col = o
ElseIf ListBox2.Object = "TIPO ASSOCIADO" Then
    p = 0
    Do
    p = p + 1
Loop Until UCase(Cells(g, p)) = ListBox1.Object
    tipo\_associado\_col = p
ElseIf ListBox2.Object = "RG" Then
    q = 0
    Do
    q = q + 1
Loop Until UCase(Cells(g, q)) = ListBox1.Object
    rg\_col = q
ElseIf ListBox2.Object = "ESTADO CIVIL" Then
    r = 0
    Do
    r = r + 1
Loop Until UCase(Cells(g, r)) = ListBox1.Object
    estado\_civil\_col = r
ElseIf ListBox2.Object = "CIDADE" Then
    s = 0
    Do
    s = s + 1
Loop Until UCase(Cells(g, s)) = ListBox1.Object
    cidade\_col = s
ElseIf ListBox2.Object = "EMAIL" Then
    t = 0
    Do
    t = t + 1
Loop Until UCase(Cells(g, t)) = ListBox1.Object
    email\_col = t
ElseIf ListBox2.Object = "PIS" Then
    u = 0
    Do
    u = u + 1
Loop Until UCase(Cells(g, u)) = ListBox1.Object
    pis\_col = u
ElseIf ListBox2.Object = "ÓRGÃO EMISSOR" Then
    v = 0
    Do
    v = v + 1
Loop Until UCase(Cells(g, v)) = ListBox1.Object
    orgao\_emissor\_col = v
ElseIf ListBox2.Object = "DATA DE EXPEDIÇÃO" Then
    w = 0
    Do
    w = w + 1
Loop Until UCase(Cells(g, w)) = ListBox1.Object
    dt\_expedicao\_col = w
ElseIf ListBox2.Object = "FILIAL" Then
    x = 0
Do
    x = x + 1
Loop Until UCase(Cells(g, x)) = ListBox1.Object
    filial\_col = x
ElseIf ListBox2.Object = "LOCAL FILIAL" Then
    y = 0
Do
    y = y + 1
Loop Until UCase(Cells(g, y)) = ListBox1.Object
    local\_filial\_col = y
ElseIf ListBox2.Object = "DESCRIÇÃO CENTRO DE CUSTO" Then
    z = 0
Do
    z = z + 1
Loop Until UCase(Cells(g, z)) = ListBox1.Object
    descricao\_centro\_custo\_col = z
ElseIf ListBox2.Object = "TIPO LOGRADOUDO" Then
    aa = 0
Do
    aa = aa + 1
Loop Until UCase(Cells(g, aa)) = ListBox1.Object
    tipo\_logradouro\_col = aa
ElseIf ListBox2.Object = "ENDEREÇO RESIDENCIAL" Then
    ab = 0
Do
    ab = ab + 1
Loop Until UCase(Cells(g, ab)) = ListBox1.Object
    end\_residencial\_col = ab
ElseIf ListBox2.Object = "COMPLEMENTO" Then
    ac = 0
Do
    ac = ac + 1
Loop Until UCase(Cells(g, ac)) = ListBox1.Object
    complemento\_col = ac
ElseIf ListBox2.Object = "BAIRRO" Then
    ad = 0
Do
    ad = ad + 1
Loop Until UCase(Cells(g, ad)) = ListBox1.Object
    bairro\_col = ad
ElseIf ListBox2.Object = "NÚMERO" Then
    ae = 0
Do
ae = ae + 1
Loop Until UCase(Cells(g, ae)) = ListBox1.Object
numero\_col = ae
ElseIf ListBox2.Object = "UF" Then
af = 0
Do
af = af + 1
Loop Until UCase(Cells(g, af)) = ListBox1.Object
uf\_col = af
ElseIf ListBox2.Object = "DDD RESIDENCIAL" Then
ag = 0
Do
ag = ag + 1
Loop Until UCase(Cells(g, ag)) = ListBox1.Object
ddd\_res\_col = ag
ElseIf ListBox2.Object = "TEL RESIDENCIAL" Then
ah = 0
Do
ah = ah + 1
Loop Until UCase(Cells(g, ah)) = ListBox1.Object
tel\_res\_col = ah
ElseIf ListBox2.Object = "DDD COMERCIAL" Then
ai = 0
Do
ai = ai + 1
Loop Until UCase(Cells(g, ai)) = ListBox1.Object
ddd\_com\_col = ai
ElseIf ListBox2.Object = "TEL COMERCIAL" Then
aj = 0
Do
aj = aj + 1
Loop Until UCase(Cells(g, aj)) = ListBox1.Object
tel\_com\_col = aj
ElseIf ListBox2.Object = "DDD CELULAR" Then
ak = 0
Do
ak = ak + 1
Loop Until UCase(Cells(g, ak)) = ListBox1.Object
ddd\_cel\_col = ak
ElseIf ListBox2.Object = "TEL CELULAR" Then
al = 0
Do
al = al + 1
Loop Until UCase(Cells(g, al)) = ListBox1.Object
tel\_cel\_col = al
ElseIf ListBox2.Object = "N.º BANCO" Then
am = 0
Do
am = am + 1
Loop Until UCase(Cells(g, am)) = ListBox1.Object
n\_banco\_col = am
ElseIf ListBox2.Object = "N.º AGENCIA" Then
an = 0
Do
an = an + 1
Loop Until UCase(Cells(g, an)) = ListBox1.Object
n\_agencia\_col = an
ElseIf ListBox2.Object = "N.º CONTA" Then
ao = 0
Do
ao = ao + 1
Loop Until UCase(Cells(g, ao)) = ListBox1.Object
n\_cta\_col = ao
ElseIf ListBox2.Object = "CNS" Then
ap = 0
Do
ap = ap + 1
Loop Until UCase(Cells(g, ap)) = ListBox1.Object
cns\_col = ap
ElseIf ListBox2.Object = "CODIGO\_MUNICIPIO\_IBGE" Then
aq = 0
Do
aq = aq + 1
Loop Until UCase(Cells(g, aq)) = ListBox1.Object
cod\_mun\_ibge\_col = aq
   
End If

If ListBox1.ListCount &gt;= 1 Then
    If ListBox1.ListIndex = -1 Then
        ListBox1.ListIndex = \_
                ListBox1.ListCount - 1
    End If
    ListBox1.RemoveItem (ListBox1.ListIndex)
End If

If ListBox2.ListCount &gt;= 1 Then
    If ListBox2.ListIndex = -1 Then
        ListBox2.ListIndex = \_
                ListBox2.ListCount - 1
    End If
    ListBox2.RemoveItem (ListBox2.ListIndex)
End If

End Sub

Private Sub CommandButton2_Click() CommandButton4.Enabled = True CommandButton5.Enabled = True CommandButton5.Enabled = True CommandButton6.Enabled = False cmbLayout.Enabled = False

Call conf_certificados End Sub

Private Sub ListBox2_Click()

End Sub

Private Sub ListBox3_Click()

End Sub

Public Sub SpinButton1_Change() CommandButton1.Enabled = True cmbLayout.Enabled = True CommandButton3.Enabled = False CommandButton4.Enabled = False CommandButton5.Enabled = False CommandButton2.Enabled = False

       frm\_assoc\_conf.LabelProgress.Width = 0
       g = SpinButton1.Value
       If g &gt; 0 Then
       Me.TextBox1.text = SpinButton1.Value
       Else: g = 1
       End If

End Sub

Private Sub Spi

Microsoft 365 e Office | Instalar, resgatar, ativar | Para uso doméstico | Outro

Pergunta bloqueada. Essa pergunta foi migrada da Comunidade de Suporte da Microsoft. É possível votar se é útil, mas não é possível adicionar comentários ou respostas ou seguir a pergunta.

0 comentários
Resposta aceita pelo autor da pergunta
Anônima
2009-09-26T00:21:51+00:00

VC está utilizando variáveis definidas como Integer. Para estas variávies, vc não vai conseguir atribuir nulo. Experimente utilizar objetos (Variant).

Esta resposta foi útil?

1 pessoa achou esta resposta útil.
0 comentários

0 respostas adicionais

Classificar por: Mais útil
Mais útil Mais Novo Mais Antigo