[Resolvido]ERRO Apos inserir dados na tabela

galera

boa tarde !

Tenho um bd de entrada e saida de malote


no formulário de saída eu fiz um dinâmica de subform com inserção de dados e filtro no txtbox


ex: apos inserir dados eu fiz que elel limpe o subform de para aparência parecer melhor

enfim, minha duvida é como eu arrumo um erro que aparece no filtro do formulário apos eu inserir os dados e limpar o campo de filtro "#Nome?" esta sublinhado em negrito.

Me.subformSAIDAMALOTE.Form.RecordSource = "SELECT SAIDADEMALOTE.*" & _
                                             " FROM SAIDADEMALOTE ORDER BY SAIDADEMALOTE.NM°; "

Código:


Private Sub cmdLimpar_Click()
Me.txt_PesquisaNome.SetFocus
Me.txt_PesquisaNome.Text = ""

Me.subformSAIDAMALOTE.Form.RecordSource = "SELECT SAIDADEMALOTE.*" & _
                                              " FROM SAIDADEMALOTE ORDER BY SAIDADEMALOTE.NM°; "


End Sub


Private Sub cmdLimpar_Enter()
Me.subformSAIDAMALOTE.Form.RecordSource = "SELECT SAIDADEMALOTE.*" & _
                                              " FROM SAIDADEMALOTE ORDER BY SAIDADEMALOTE.NM°; "
End Sub

Private Sub Comando182_Click()
If IsNull(Me.txt_PesquisaNome) Or Me.txt_PesquisaNome = "" Or IsNull(Me.Codprestador2) Or Me.Codprestador2 = "" Or IsNull(Me.tpcdoc3) Or Me.tpcdoc3 = "" Or IsNull(Me.nm6) Or Me.nm6 = "" Or IsNull(Me.codrast7) Or Me.codrast7 = "" Or IsNull(Me.SIT8) Or Me.SIT8 = "" Then
MsgBox ("Os campos OPERADORA, CODIGO PRESTADOR, TIPO de DOCUMENTO, NMº, SITUAÇÃO E CODIGO RASTREIO devem ser preenchidos !"), vbCritical, Me.Caption
Else
Dim strOPERADORA, strCODIGO_PRESTADOR, strTPDOC, strDATA_AO_CORRESPONDENTE, strDESTINATARIO, strNM°, strCRO_CORREIO, strSTATUS, strUSUARIO As String
Dim strSQL As String
strOPERADORA = Forms!FrmSAIDALOTE!txt_PesquisaNome
strCODIGO_PRESTADOR = Forms!FrmSAIDALOTE!Codprestador2
strTPDOC = Forms!FrmSAIDALOTE!tpcdoc3
strDATA_AO_CORRESPONDENTE = Forms!FrmSAIDALOTE!dtdest4
strDESTINATARIO = Forms!FrmSAIDALOTE!destina5
strNM° = Forms!FrmSAIDALOTE!nm6
strCRO_CORREIO = Forms!FrmSAIDALOTE!codrast7
strSTATUS = Forms!FrmSAIDALOTE!SIT8
strUSUARIO = Forms!FrmSAIDALOTE!CaixaUsuarioAtual

strSQL = "INSERT INTO SAIDADEMALOTE (OPERADORA,CODIGO_PRESTADOR,TPDOC,DATA_AO_CORRESPONDENTE,DESTINATARIO,NM°,CRO_CORREIO,STATUS,USUARIO) VALUES('" & strOPERADORA & "','" & strCODIGO_PRESTADOR & "', '" & strTPDOC & "','" & strDATA_AO_CORRESPONDENTE & "','" & strDESTINATARIO & "','" & strNM° & "','" & strCRO_CORREIO & "','" & strSTATUS & "','" & strUSUARIO & "')"
CurrentDb.Execute strSQL
MsgBox "CADASTRADO COM SUCESSO !!!", vbInformation, "Teste"

'limpa dados no formulário
Me.txt_PesquisaNome = "-"
Me.Codprestador2 = "NÃO POSSUI"
Me.tpcdoc3 = ""
Me.nm6 = ""
Me.codrast7 = ""
Me.SIT8 = "ENTREGUE"
Me.subformSAIDAMALOTE.Form.RecordSource = "SELECT SAIDADEMALOTE.*" & _
                                              " FROM SAIDADEMALOTE ORDER BY SAIDADEMALOTE.NM°;
End If
End Sub

Private Sub Comando32_Click()
DoCmd.Close acForm, "FrmSAIDALOTE", acSaveYes
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.txt_PesquisaNome.SetFocus
End Sub

Private Sub txt_PesquisaNome_Change()
Dim txtnome As String
textnome = Me.txt_PesquisaNome.Text

  
   Me.subformSAIDAMALOTE.Form.RecordSource = "SELECT tblconsultaentrega.*" & _
                                                 "FROM tblconsultaentrega WHERE tblconsultaentrega.CONTEUDo Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblconsultaentrega.DEPARTAMENTO     Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblconsultaentrega.RESPONSAVEL       Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "OR tblconsultaentrega.OPERADORA       Like """ & Chr(42) & TodosAcentos(Me.txt_PesquisaNome.Text) & Chr(42) & """" & _
                                                                     "ORDER BY tblconsultaentrega.CONTEUDo;"
                                                                    




End Sub







Olá!

Tente isso:

Me.subformSAIDAMALOTE.Form.RecordSource = "SELECT SAIDADEMALOTE.* FROM SAIDADEMALOTE WHERE NomeDoCampoDePesquisa = '" & In (Forms!NomeDoFormulárioPrincipal!txt_PesquisaNome) & "' ORDER BY SAIDADEMALOTE.NM°;"

JULIO meu querido !


Arrumei ! rs

Obg a compreensao, mas na vdd consegui sozinho !

nome do campo estava errado junto a fluxo de tabela errado tb.

Ai arrumei !

obg !

resolvido !