findfirst with "like" not matching data

[diegomarino]

hi, i have to check if a field (zone) of a record in the recordset contains the value in me.comune, then if not in me.provincia, and finally me.regione
there is a correspondence but the program do not find it. why?

rs.FindFirst "[Zone] Like '*" & Me.Comune & "*'"         If rs.NoMatch Then
            rs.FindFirst "[Zone] Like '*" & Me.Provincia & "*'"
            If rs.NoMatch Then
               rs.FindFirst "[Zone] Like '*" & Me.Regione & "*'"
            Else
               DoCmd.RunSQL ("INSERT INTO EMList ( CandidatoID, Azienda, tipocontatto, Email ) " & vbCrLf & _
                             "VALUES (""" & rs!IDcandidato & """,""" & rs!Azienda & """, """ & rs!TipoContatto & """, """ & rs![Email ufficio] & """)")
             
            End If
         Else
            DoCmd.RunSQL ("INSERT INTO EMList ( CandidatoID, Azienda, tipocontatto, Email ) " & vbCrLf & _
                             "VALUES (""" & rs!IDcandidato & """,""" & rs!Azienda & """, """ & rs!TipoContatto & """, """ & rs![Email ufficio] & """)")
         End If

[/CODE]

[ranman256]

Dont use findfirst,
instead just filter all the records then browse them:

me.filter =“[field] like ‘*” & me.txtBox & “*’”
me.filterOn=true

[diegomarino]

thanks, actually i have to find in which field "zone" there is the correspondence, then i have to get another field that is the email

Dont use findfirst,
instead just filter all the records then browse them:

me.filter =“[field] like ‘*” & me.txtBox & “*’”
me.filterOn=true

that's the complete code

Private Sub SegnalazioneBTN_Click()   If Me.CCSceltaTrattativa <> "" Then
      EMCode = "Segnalazione"
      FineMail = "<br><br>Rimango in attesa di un riscontro <br> Buon lavoro"
      DoCmd.SetWarnings False
      Set db = CurrentDb
      Dim MatchVar As Boolean
      MatchVar = False
      Set rs = db.OpenRecordset("SELECT Candidati.IDcandidato, Candidati.[RAL/Fatturato], Candidati.[Patto di non concorrenza], Candidati.[Penale economica], Candidati.[Corrispettivo patto], Candidati.[Ptf banca personale], Candidati.[Ptf trasferibile personale], Candidati.[Redditività ptf trasferibile], Candidati.[Numero clienti personali], Candidati.[Data di nascita], DateDiff(""yyyy"",[data di nascita],Date()) AS Età, Comuni.Comune, Aziende.Azienda, Professioni.PosizioneLavorativa " & vbCrLf & _
                                "FROM Professioni INNER JOIN (Aziende INNER JOIN (Comuni INNER JOIN Candidati ON Comuni.IDComune = Candidati.ComuneID) ON Aziende.IDazienda = Candidati.AziendaID) ON Professioni.IDposizione = Candidati.PosizioneID " & vbCrLf & _
                                "WHERE (((Candidati.IDcandidato)= " & Me.IDcandidato & "));")
      rs.MoveFirst
      DoCmd.RunSQL ("UPDATE EMcontent SET EMcontent.Soggetto = """ & rs!PosizioneLavorativa & """ & "" - "" & """ & rs!Azienda & """ & "" - "" & """ & rs!Comune & """ & "" - "" & """ & rs![Ptf trasferibile personale] & """ " & vbCrLf & _
                   "WHERE (((EMcontent.IDOggetto)=""Segnalazione""));")
      DoCmd.RunSQL ("UPDATE EMcontent SET EMcontent.testo = ""di seguito il candidato in oggetto <br> <br> <b> Posizione: </b>"" & """ & rs!PosizioneLavorativa & """ & ""<bR>"" & ""<b> Banca: </b>"" & """ & rs!Azienda & """ & ""<br>"" & ""<b> Sede: </b>"" & """ & rs!Comune & """ & ""<br>"" & ""<b> Età: </b>"" & """ & rs!Età & """  & ""<br>"" & ""<b> Portafoglio gestito in banca: </b>"" & """ & rs![Ptf banca personale] & """ & ""<br>"" & ""<b> Portafoglio trasferbile: </b>"" & """ & rs![Ptf trasferibile personale] & """ & ""<br>"" & ""<b> RAL: </b>"" & """ & Format(rs![RAL/Fatturato], "currency") & """ & ""<br>"" & ""<b> Patto: </b>"" & """ & rs![Patto di non concorrenza] & """ & ""<br>"" & ""<b> Penale: </b>"" & """ & Format(rs![Penale economica], "currency") & """ & """ & FineMail & """ " & vbCrLf & _
                   "WHERE (((EMcontent.IDOggetto)=""Segnalazione""));")
                   
      DoCmd.RunSQL ("DELETE * FROM EMlist")
      Set rs = db.OpenRecordset("SELECT Candidati.IDcandidato, Candidati.TipoContatto, candidati.[email ufficio], Aziende.IDazienda, Aziende.azienda,Candidati.nomecognome, Clienti.IDCliente, Candidati.zone " & vbCrLf & _
                                "FROM Clienti INNER JOIN (Aziende INNER JOIN Candidati ON Aziende.IDazienda = Candidati.AziendaID) ON Clienti.AziendaID = Aziende.IDazienda " & vbCrLf & _
                                "WHERE (((Candidati.TipoContatto)=""cliente"") AND ((Clienti.IDCliente)= " & Me.TBIDCliente & ") AND ((Candidati.zone)<>""amministrazione""));")
         
      rs.MoveLast
      If rs.RecordCount < 2 Then
         DoCmd.RunSQL ("INSERT INTO EMList ( CandidatoID, Azienda, tipocontatto, Email ) " & vbCrLf & _
                       "VALUES(""" & rs!IDcandidato & """,""" & rs!Azienda & """,""" & rs!TipoContatto & """,""" & rs![Email ufficio] & """)")
      Else
        'cercare in un recordset una parola in un campo, in questo caso contenuta
         rs.FindFirst "[Zone] Like '*" & Me.Comune & "*'"
         If rs.NoMatch Then
            rs.FindFirst "[Zone] Like '*" & Me.Provincia & "*'"
            If rs.NoMatch Then
               rs.FindFirst "[Zone] Like '*" & Me.Regione & "*'"
            Else
               DoCmd.RunSQL ("INSERT INTO EMList ( CandidatoID, Azienda, tipocontatto, Email ) " & vbCrLf & _
                             "VALUES (""" & rs!IDcandidato & """,""" & rs!Azienda & """, """ & rs!TipoContatto & """, """ & rs![Email ufficio] & """)")
             
            End If
         Else
            DoCmd.RunSQL ("INSERT INTO EMList ( CandidatoID, Azienda, tipocontatto, Email ) " & vbCrLf & _
                             "VALUES (""" & rs!IDcandidato & """,""" & rs!Azienda & """, """ & rs!TipoContatto & """, """ & rs![Email ufficio] & """)")
         End If
          
      rs.Close
      Set rs = Nothing
      End If
      DoCmd.OpenForm "mailer", acNormal, , , acFormEdit, acWindowNormal, EMCode
      DoCmd.SetWarnings True
   End If
End Sub

[Welshgasman]

Works for me, in a text or memo field, so not sure why not with you.?

rs.FindFirst "[Zone] Like '*" & Me.Comune & "*'"
If rs.NoMatch Then
    rs.FindFirst "[Zone] Like '*" & Me.Provincia & "*'"
    If rs.NoMatch Then
        rs.FindFirst "[Zone] Like '*" & Me.Regione & "*'"
    Else
        DoCmd.RunSQL ("INSERT INTO EMList ( CandidatoID, Azienda, tipocontatto, Email ) " & vbCrLf & _
                      "VALUES (""" & rs!IDcandidato & """,""" & rs!Azienda & """, """ & rs!TipoContatto & """, """ & rs![Email ufficio] & """)")

    End If
Else
    DoCmd.RunSQL ("INSERT INTO EMList ( CandidatoID, Azienda, tipocontatto, Email ) " & vbCrLf & _
                  "VALUES (""" & rs!IDcandidato & """,""" & rs!Azienda & """, """ & rs!TipoContatto & """, """ & rs![Email ufficio] & """)")
End If

Have you even stepped through your code?

[diegomarino]

it's a long text field (ust changed from short text), the table is stored in sharepoint, but i dont think this is the problem.
i stepped into my code, but i cannot find useful infos...

Works for me, in a text or memo field, so not sure why not with you.?

rs.FindFirst "[Zone] Like '*" & Me.Comune & "*'"
If rs.NoMatch Then
    rs.FindFirst "[Zone] Like '*" & Me.Provincia & "*'"
    If rs.NoMatch Then
        rs.FindFirst "[Zone] Like '*" & Me.Regione & "*'"
    Else
        DoCmd.RunSQL ("INSERT INTO EMList ( CandidatoID, Azienda, tipocontatto, Email ) " & vbCrLf & _
                      "VALUES (""" & rs!IDcandidato & """,""" & rs!Azienda & """, """ & rs!TipoContatto & """, """ & rs![Email ufficio] & """)")

    End If
Else
    DoCmd.RunSQL ("INSERT INTO EMList ( CandidatoID, Azienda, tipocontatto, Email ) " & vbCrLf & _
                  "VALUES (""" & rs!IDcandidato & """,""" & rs!Azienda & """, """ & rs!TipoContatto & """, """ & rs![Email ufficio] & """)")
End If

Have you even stepped through your code?

[diegomarino]

don't mind, i just thoght that i have to rebuild the whole structure for other reasons...thanks