Bom Dia Senhores

 

Preciso de Ajuda para gerar um parametro, tenho o seguinte codigo

 

preciso colocar o valor da variavel mcnpj no lugar de '01', pois este valor nao e fixo

so que estou com duvidas na hora de criar o parametro.

 

 

Dim BD As Database
Dim RS As Recordset
Private Sub cmdlocalarquivo_Click()
   CommonDialog1.ShowOpen
   TXTARQUIVO = CommonDialog1.FileName
End Sub

Private Sub CMDSAIR_Click()
    Unload ExportTabela
End Sub

Private Sub Form_Load()
     Set BD = OpenDatabase(App.Path & "/NOTAS.MDB")
     Set RS = BD.OpenRecordset("NOTAS", dbOpenTable)
End Sub

Private Sub LaVolpeButton3_Click()
    CommonDialog1.ShowOpen
    TXTARQUIVO = CommonDialog1.FileName
End Sub

Private Sub LaVolpeButton1_Click()
Dim F As Long, LINHA As String
Dim col As String
Dim Contelinha As Integer
F = FreeFile
Open TXTARQUIVO.Text For Input As F   'abre o arquivo texto
Set DB = DBEngine(0).OpenDatabase(App.Path & "/TESTE.MDB")  'abre o banco de dados
Do While Not EOF(F)
Line Input #F, LINHA 'lê uma linha do arquivo texto

MNOME = Mid(LINHA, 1, 9)
MCNPJ = Mid(LINHA, 10, 2)
Text1.Text = MNOME
Text2.Text = MCNPJ
Dim DCNPJ As String
DCNPJ = MCNPJ
CRITERIO = Chr$(39) & Text1.Text & Chr(39)
CRITERIO1 = Chr$(39) & Text2.Text & Chr(39)

BD.Execute "update NOTAS SET CAMPO = '01' WHERE fornecedor LIKE " & CRITERIO
Loop
MsgBox "Arquivo texto importado com sucesso !! "
End Sub

Obrigado

BOM - - - -

 

A questao do Like esta funcionando, a duvida e

 

onde tem o valor '01', preciso inserir o valor da variavel mcnpj extraida com o comando mid

 

BD.Execute "update NOTAS SET CAMPO = '" & CSTR(MCNPJ) & "' WHERE fornecedor LIKE " & CRITERIO