problemi con isNull

[asdfgasdfg]

ciao ragazzi, allora sto lavorando con le maschere access,
Ora il mio problema è che nn riesco a costruire una if se il risultato della select è vuoto.
vi posto il codice

strSQL = "SELECT * FROM gestione_merce WHERE  id  = " & id & " order by ID1 Desc"
Set rstFieldData = New ADODB.Recordset
With rstFieldData
  CursorType = adOpenKeyset
   .LockType = adLockOptimistic
   .Open Source:=strSQL, _
      ActiveConnection:=cnnConnect, _
        Options:=adCmdText
End With
Dim val1 As Integer
Dim val2 As Integer
Dim val3 As Integer
If IsNull(rstFieldData(8)) = True Then
val1 = Me.numero_confezioni.Value
val2 = Me.unita_per_confezioni.Value
If val1 <> 0 Then
Me.totale_carico.Value = val1 * val2 + val3
Else
Me.totale_carico.Value = val2 + val3
End If
Else
val3 = rstFieldData(8)
If val1 <> 0 Then
Me.totale_carico.Value = val1 * val2 + val3
Else
Me.totale_carico.Value = val2 + val3
End If
End If

End Sub

Praticamente quando aggiungo per la prima volta un record mi dice
errore di run-time'3021'
il record corrente corrisponde all'inizio o alla fine del file, per eseguire l'operazione è necessario disporre di un record corrente

[chisono]

strSQL = "SELECT * FROM gestione_merce WHERE id = " & id & " order by ID1 Desc"


:quote:
quanto vale???

strSQL = "SELECT * FROM gestione_merce WHERE id = " & id & " order by ID1 Desc"
msgbox (strsql)

Set rstFieldData = New ADODB.Recordset

guarda se la stringa sql e giusta inserendo un msgbox

[asdfgasdfg]

id = 9, la select funziona bene, perchè se ho altri record inseriti funziona

[asdfgasdfg]

praticamente se non ci sono altri record prende l'id del prodotto appena inserito.
Come gli dico che se non esistono record precedenti non deve effettuare la select???

[chisono]

strSQL = "SELECT * FROM gestione_merce WHERE id = " & id & " order by ID1 Desc"
Set rstFieldData = New ADODB.Recordset
With rstFieldData
CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Source:=strSQL, _
ActiveConnection:=cnnConnect, _
Options:=adCmdText
End With
Dim val1 As Integer
Dim val2 As Integer
Dim val3 As Integer
If rstFieldData.EOF Then
val1 = Me.numero_confezioni.Value
val2 = Me.unita_per_confezioni.Value
If val1 <> 0 Then
Me.totale_carico.Value = val1 * val2 + val3
Else
Me.totale_carico.Value = val2 + val3
End If
Else
val3 = rstFieldData(8)
If val1 <> 0 Then
Me.totale_carico.Value = val1 * val2 + val3
Else
Me.totale_carico.Value = val2 + val3
End If
End If

End Sub

prova così

[asdfgasdfg]

mi da errore di sintassi alla riga
[b]If rstFieldData.EOF Then [b]

[chisono]

oppure anche così:

function controllo()
msgbox "Il prodotto non esiste"
end function

on error resume next
strSQL = "SELECT * FROM gestione_merce WHERE id = " & id & " order by ID1 Desc"
Set rstFieldData = New ADODB.Recordset
With rstFieldData
CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Source:=strSQL, _
ActiveConnection:=cnnConnect, _
Options:=adCmdText
End With
if err.number = 3021 then
call controllo()
end if

[chisono]

errata corrige prima :gren:



on error resume next
strSQL = "SELECT * FROM gestione_merce WHERE id = " & id & " order by ID1 Desc"
Set rstFieldData = New ADODB.Recordset
With rstFieldData
CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Source:=strSQL, _
ActiveConnection:=cnnConnect, _
Options:=adCmdText
End With
if err.number = 3021 then
control = "ok"
end if
Dim val1 As Integer
Dim val2 As Integer
Dim val3 As Integer
If control = "ok" Then
val1 = Me.numero_confezioni.Value
val2 = Me.unita_per_confezioni.Value
If val1 <> 0 Then
Me.totale_carico.Value = val1 * val2 + val3
Else
Me.totale_carico.Value = val2 + val3
End If
Else
val3 = rstFieldData(8)
If val1 <> 0 Then
Me.totale_carico.Value = val1 * val2 + val3
Else
Me.totale_carico.Value = val2 + val3
End If
End If

End Sub

cosi dovrebbe funzionare e dovrebbe essere anche lubrificato :gren:

[asdfgasdfg]

così non mi serve, perchè è possibbilissimo caricare un prodotto che non è stato ancora caricato

[chisono]

l'ultimo post inviato deve funzionare guarda bene...

cmq così com'è il prodotto nn viene inserito nel database

nn c'è nessun insert into o update

:metallica