Ciclo for each e query insert into

[orcim]

Ciao, non riesco a far passare il valore della variabile MMore nella query insert into, dov'è l'errore:

for each strVar in recordsetA.fields
for each strVas in recordsetB.fields
    
Dim MMore     
IF recordsetA("valoreA") < recordsetB("valoreB")  then
MMore = DVDR
end if

IF recordsetA("valoreA") < 1 AND recordsetB("valoreB") < 2 then
MMore = DVDRW
end if

      if strVar.name = strVas.name then
      if strVar.value < strVas.value then

SQL = "INSERT INTO RisorsePC (ID, data, Valore) VALUES ("& recordsetA("ID") &", #"& now &"#, '"& MMore &"')"

[Gioba66]

senza entrare nel merito della logica, che mi pare abb. contorta, almeno fai queste cose

- leva il Dim da dentro i loop
- metti i valori DVDR e l'altro tra virgolette

MMore = "DVDRW"

[orcim]

Originariamente inviato da Gioba66
senza entrare nel merito della logica, che mi pare abb. contorta, almeno fai queste cose

- leva il Dim da dentro i loop
- metti i valori DVDR e l'altro tra virgolette

MMore = "DVDRW"

Grazie adesso funziona correttamente... un'ultima cosa... se volessi scrivere NULL quando un determinato campo (stringa) di un record è vuoto o nullo, perchè non ci riesco? ho scritto così:

Dim campovuoto
if IsNull(rec("campovuoto")) or IsEmpty(rec("campovuoto")) or Len(rec("campovuoto"))="" then 
 campovuoto = "NULL"
else
 campovuoto = rec("campovuoto")
end if

SQL = "INSERT INTO RisorsePC (ID, data, Valore, campovuoto) VALUES ("& recordsetA("ID") &", #"& now &"#, '"& MMore &"', '"& campovuoto &"')"

con response write restituisce:

INSERT INTO RisorsePC (ID, data, Valore, campovuoto) VALUES (836, #29/12/2004 22.33.59#, 'DVDR', '')

[orcim]

nessun suggerimento?

[Gioba66]

basta che lo escludi dalla query di insert:

SQL = "INSERT INTO RisorsePC (ID, data, Valore) VALUES ("& recordsetA("ID") &", #"& now &"#, '"& MMore &"')"

[orcim]

Originariamente inviato da Gioba66
basta che lo escludi dalla query di insert:

SQL = "INSERT INTO RisorsePC (ID, data, Valore) VALUES ("& recordsetA("ID") &", #"& now &"#, '"& MMore &"')"

grazie, si ma se lo escludo il campo nel dbase rimane vuoto, invece vorrei che in quel campo si scrivesse NULL... mi segui?