Salve a tutti.Ho un piccolo problemino .
- Ricerco in un recordset un campo e lo trovo
- salvo il segnalibro
- cerco nel recordset un altro campo e non lo trovo
- ora devo ritornare al record salvato prima e ... per 2 volte tutto OK, ma allaterza mi restituisce il primo record??? come mai???
Ecco il codice....:
For i = 0 To (rsCampionato!MAXScambiP + rsCampionato!MAXScambiG - 1)
'Controllo su presenze in rosa e formalità Codici inseriti
If Trim(txtVen(i).Text) <> "" And Not IsNumeric(txtVen(i).Text) Then
MsgBox "Codice Giocatore errato", vbInformation + vbOKOnly
txtVen(i).SetFocus
SendKeys "{home} +{end}"
ErroriFormali = True
Exit For
ElseIf Trim(txtVen(i).Text) <> "" And IsNumeric(txtVen(i).Text) Then
rsRosa.FindFirst "CodGiocatore=" & Val(txtVen(i).Text)
rsNonInRosa.FindFirst "CodGiocatore=" & Val(txtVen(i).Text)
If rsRosa.NoMatch And rsNonInRosa.NoMatch = False Then
MsgBox "Giocatore non in rosa", vbInformation + vbOKOnly
txtVen(i).SetFocus
SendKeys "{home} +{end}"
ErroriFormali = True
Exit For
ElseIf rsRosa.NoMatch And rsNonInRosa.NoMatch = False Then
MsgBox "Giocatore non censito", vbInformation + vbOKOnly
txtVen(i).SetFocus
SendKeys "{home} +{end}"
ErroriFormali = True
Exit For
Else
' Set Segnalibro = Nothing
Segnalibro = rsRosa.Bookmark
'Controllo su presenze in rosa e formalità Codici inseriti
If Trim(txtAcq(i).Text) <> "" And Not IsNumeric(txtAcq(i).Text) Then
MsgBox "Codice Giocatore errato", vbInformation + vbOKOnly
txtAcq(i).SetFocus
SendKeys "{home} +{end}"
ErroriFormali = True
Exit For
ElseIf Trim(txtAcq(i).Text) <> "" And IsNumeric(txtAcq(i).Text) Then
rsRosa.FindFirst "CodGiocatore=" & Val(txtAcq(i).Text)
rsNonInRosa.FindFirst "CodGiocatore=" & Val(txtAcq(i).Text)
If rsNonInRosa.NoMatch And rsRosa.NoMatch = False Then
MsgBox "Giocatore già in rosa", vbInformation + vbOKOnly
txtAcq(i).SetFocus
SendKeys "{home} +{end}"
ErroriFormali = True
Exit For
ElseIf rsNonInRosa.NoMatch And rsRosa.NoMatch Then
MsgBox "Giocatore non censito", vbInformation + vbOKOnly
txtAcq(i).SetFocus
SendKeys "{home} +{end}"
ErroriFormali = True
Exit For
Else
rsRosa.Bookmark = Segnalibro
'Controllo su congruenza ruoli e numero scambi.....
Debug.Print "v: " & rsRosa!CodGiocatore & "v: " & rsNonInRosa!CodGiocatore
If rsRosa!Ruolo <> rsNonInRosa!Ruolo Then
MsgBox "Ruoli diversi", vbInformation + vbOKOnly
ErroriFormali = True
txtAcq(i).SetFocus
SendKeys "{home} +{end}"
Exit For
Else
TotSpesi = rsNonInRosa!Prezzo + TotSpesi
TotPresi = rsRosa!Prezzo + TotPresi
Select Case rsRosa!Ruolo
Case 0
'Portieri
If rsRosa!Partito = 1 Then
ctrScambiP = ctrScambiP + 1
End If
CiSonoScambi = True
Case 1, 2, 3
'Difensori,Centr......
If rsRosa!Partito = 1 Then
ctrScambiC = ctrScambiC + 1
End If
CiSonoScambi = True
Case Else
MsgBox "Ruolo non censito", vbCritical + vbOKOnly
Exit Function
End Select
arrScambi(0, i) = Val(txtVen(i).Text)
arrScambi(1, i) = Val(txtAcq(i).Text)
End If
End If
Else
MsgBox "Nessun calciatore comprato", vbInformation + vbOKOnly
ErroriFormali = True
txtAcq(i).SetFocus
SendKeys "{home} +{end}"
Exit For
End If
End If
Else
If Trim(txtAcq(i).Text) <> "" Then
MsgBox "Nessun calciatore venduto", vbInformation + vbOKOnly
ErroriFormali = True
txtVen(i).SetFocus
SendKeys "{home} +{end}"
Exit For
End If
End If
Next i
Rispondi quotando