Buon giorno a tutti ho inserito il seguente codice su click di un pulsante. La mia necessità è capire come rendere variabile il campo numero della SELECT CHE CHIAMO. In pratica dove scrivo "STRSQL = "SELECT NUMERO, USCITE FROM PREVENTIVO WHERE NUMERO=9905"
vorrei chiamare il campo "numero" della FORM "preventivo". avete un suggerimento? (purtroppo ho chiamato sia la tabella che a form "preventivo"...scusate)
Private Sub Comando19_Click()
Dim DBS As DAO.Database
Dim QDF As DAO.QueryDef
Dim rst As DAO.Recordset
STRSQL = "SELECT NUMERO, USCITE FROM PREVENTIVO WHERE NUMERO=9905"
Set DBS = CurrentDb
Set QDF = DBS.CreateQueryDef("", STRSQL)
Set RDS = QDF.OpenRecordset(dbOpenSnapshot)
RDS.MoveLast
RDS.MoveFirst
Do Until RDS.EOF
V_RATE = RDS.Fields("USCITE")
V_ID_PREVENTIVO = RDS.Fields("NUMERO")
For X = 1 To V_RATE
Set DBS = CurrentDb
V_Insert = " INSERT INTO RATE (NUMERO) VALUES (" & V_ID_PREVENTIVO & ")"
DBS.Execute V_Insert
Next
RDS.MoveNext
Loop
RDS.Close
Refresh
End Sub