[VBA/ACCESS] Problema con RecordSource e GetString

[Astharot]

Il primo codice mi server per cercare dei dati in tabella, il risultato della select lo devo passare ad un altra form (secondo codice) ma sul "sRs = rs.GetString(adClipString)" mi dice che il record è l inizio o la fine del file o è stato eliminato.
quando visualizzo il risultato della query con il MsgBox i dati sono tutti corretti

sRs è dichiarato come Public sRs As String

qualche suggerimento.......

Private Sub Cerca_Cliente_Click()

Dim sSelect As String
Dim sSql As String
Dim sWhere As String
Dim stDocName As String
Dim stLinkCriteria As String

sSql = "SELECT Clienti.Cod_Cliente, Clienti.Cod_Progressivo, Clienti.Cognome, Clienti.Nome, Clienti.Città, Clienti.[Indirizzo 1], Clienti.[Indirizzo 2], Clienti.CAP, Clienti.[Telefono 1], Clienti.[Telefono 2], Clienti.Cellulare, Clienti.FAX, Clienti.Email, Clienti.[Data di Nascita], Clienti.Nazionalità, [Categoria Classe].[Categoria Classe], [Categoria Professionale].[Tipo categoria]FROM [Categoria Professionale] INNER JOIN ([Categoria Classe] INNER JOIN Clienti ON [Categoria Classe].Cod_classe = Clienti.Cod_Classe) ON [Categoria Professionale].cod_Categoria = Clienti.Cod_Categoria"

sWhere = ""

If Cognome <> "" Then
sWhere = sWhere & " Clienti.Cognome LIKE '" & Replace(Cognome, "'", "''") & "'"
End If

If Nome <> "" Then
If sWhere <> "" Then sWhere = sWhere & " AND "
sWhere = sWhere & " Clienti.Nome LIKE '" & Replace(Nome, "'", "''") & "'"
End If

If sWhere <> "" Then
sSql = sSql & " WHERE " & sWhere
End If

Set rs = CurrentProject.Connection.Execute(sSql)

MsgBox rs.GetString(adClipString)

sRs = rs.GetString(adClipString)

MsgBox sRs


stDocName = "Elenco Clienti tramite Ricerca"
DoCmd.OpenForm stDocName, acNormal, "", "", acAdd, acNormal

Option Compare Database

Private Sub Form_Current()

Me.RecordSource = sRs

End Sub

[darksoullight88]

Originariamente inviato da Astharot

Set rs = CurrentProject.Connection.Execute(sSql)

MsgBox rs.GetString(adClipString)

sRs = rs.GetString(adClipString)

MsgBox sRs

è questo il problema!se mostri il campo allora lui il campo già lo legge e va alla fine del recordset.

[Astharot]

ok grazie!!! ^^

[Astharot]

Originariamente inviato da darksoullight88
è questo il problema!se mostri il campo allora lui il campo già lo legge e va alla fine del recordset.

Questo problema l ho risolto

ma non mi visualizza i dati nella form (deve diventare una tabella la form se ci sono più record)

Option Compare Database

Private Sub Form_Current()

Me.RecordSource = sRs

End Sub

come faccio???????????

[darksoullight88]

prova a mettere il codice nell'evento open...

[Astharot]

Scusami mi potresti scrivere il codice sulla open......perchè non mi va niente e quando apro la secondo form mi appare sempre vuota

[darksoullight88]

ma la form2 è già aperta?

[Astharot]

no la apro dopo che ho recuperato i dati tramite la la select

[darksoullight88]

allora scusa perchè invece di aprire il recordset nella prima form non lo apri direttamente nella seconda?
metti la stringa della select come variabile public e nella seconda form fai me.recordsource = Forms!form1!stringasql . . .

[Astharot]

Poi mi popola la form (tieni presente che ho creato una maschera come una tabella) automaticamente????????