Private Sub BT_GERA_CAD_Click()
Dim DB As DAO.Database
Dim NFE As DAO.Recordset
Dim strSQL As String
Dim Sai As String
Dim PASTA As String
Dim ARQUIVO As String
strSQL = "SELECT CONFIG.CNPJ, CONFIG.RSOC, CONFIG.FANT, CONFIG.IE, CONFIG.END, CONFIG.NUM, CONFIG.COMP, "
strSQL = strSQL & "CONFIG.BAIRRO, CONFIG.MUNICIPIO, IBGE_MUN.NomeMunic, CONFIG.UF, CONFIG.CEP, CONFIG.PAIS, BACEN_PAISES.PAIS, "
strSQL = strSQL & "CONFIG.TEL FROM ((CONFIG INNER JOIN IBGE_UF ON CONFIG.UF = IBGE_UF.UF) INNER JOIN IBGE_MUN ON IBGE_UF.ID "
strSQL = strSQL & "= IBGE_MUN.UF) INNER JOIN BACEN_PAISES ON CONFIG.PAIS = BACEN_PAISES.COD;"
Set DB = CurrentDb
Set NFE = DB.OpenRecordset(strSQL)
'PASTA E ARQUIVO
PASTA = GetDesktopFolder() & "\NF-e"
ARQUIVO = PASTA & "\Cadastro do Emitente - " & Format(Date, "DD-MM-YY") & ".txt"
If FolderExists(PASTA) Then
GoTo SEGUE
Else
MkDir (PASTA)
End If
SEGUE:
If FileExists(ARQUIVO) Then
If MsgBox("O arquivo já existe." & vbNewLine & "Deseja substituir o arquivo existente?", vbYesNo, "Atenção!") = vbNo Then
GoTo Saida
End If
End If
Open ARQUIVO For Output As #1
Sai = "A|1.01"
Print #1, Sai
Sai = "C|CNPJ|" & !CNPJ & "|" & !RS & "|" & !FANT & "|" & !IE & "||||" & !End & "|" & !Num & "|" & !Comp & "|" & !Bairro & "|" & !MUNICIPIO & "|" & !NOMEMUNIC & "|" & !UF & "|" & !CEP & "|" & !CONFIG.PAIS & "|" & !BACEN_PAISES.PAIS & "|" & !TEL & "|"
Print #1, Sai
MsgBox "Arquivo gerado com sucesso:" & vbNewLine & ARQUIVO, , "Mensagem"
Saida:
Set DB = Nothing
Set NFE = Nothing
Close #1
Exit Sub
#If DESENV Then
Stop
Resume
#End If
Resume Saida
End Sub
ao tentar executar, o vba da erro de referencia invalida ou não qualificada no !CNPJ
to copiando esse codigo de outro projeto de exemplo e não entendo onde ta o problema... porque ele não reconhece o CNPJ da SQL
Pergunta
Humm
segue o codigo:
Private Sub BT_GERA_CAD_Click() Dim DB As DAO.Database Dim NFE As DAO.Recordset Dim strSQL As String Dim Sai As String Dim PASTA As String Dim ARQUIVO As String strSQL = "SELECT CONFIG.CNPJ, CONFIG.RSOC, CONFIG.FANT, CONFIG.IE, CONFIG.END, CONFIG.NUM, CONFIG.COMP, " strSQL = strSQL & "CONFIG.BAIRRO, CONFIG.MUNICIPIO, IBGE_MUN.NomeMunic, CONFIG.UF, CONFIG.CEP, CONFIG.PAIS, BACEN_PAISES.PAIS, " strSQL = strSQL & "CONFIG.TEL FROM ((CONFIG INNER JOIN IBGE_UF ON CONFIG.UF = IBGE_UF.UF) INNER JOIN IBGE_MUN ON IBGE_UF.ID " strSQL = strSQL & "= IBGE_MUN.UF) INNER JOIN BACEN_PAISES ON CONFIG.PAIS = BACEN_PAISES.COD;" Set DB = CurrentDb Set NFE = DB.OpenRecordset(strSQL) 'PASTA E ARQUIVO PASTA = GetDesktopFolder() & "\NF-e" ARQUIVO = PASTA & "\Cadastro do Emitente - " & Format(Date, "DD-MM-YY") & ".txt" If FolderExists(PASTA) Then GoTo SEGUE Else MkDir (PASTA) End If SEGUE: If FileExists(ARQUIVO) Then If MsgBox("O arquivo já existe." & vbNewLine & "Deseja substituir o arquivo existente?", vbYesNo, "Atenção!") = vbNo Then GoTo Saida End If End If Open ARQUIVO For Output As #1 Sai = "A|1.01" Print #1, Sai Sai = "C|CNPJ|" & !CNPJ & "|" & !RS & "|" & !FANT & "|" & !IE & "||||" & !End & "|" & !Num & "|" & !Comp & "|" & !Bairro & "|" & !MUNICIPIO & "|" & !NOMEMUNIC & "|" & !UF & "|" & !CEP & "|" & !CONFIG.PAIS & "|" & !BACEN_PAISES.PAIS & "|" & !TEL & "|" Print #1, Sai MsgBox "Arquivo gerado com sucesso:" & vbNewLine & ARQUIVO, , "Mensagem" Saida: Set DB = Nothing Set NFE = Nothing Close #1 Exit Sub #If DESENV Then Stop Resume #End If Resume Saida End Subao tentar executar, o vba da erro de referencia invalida ou não qualificada no !CNPJ
to copiando esse codigo de outro projeto de exemplo e não entendo onde ta o problema... porque ele não reconhece o CNPJ da SQL
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.