Torna al Thread
Dim query, query1 As String
Dim rs As DAO.Recordset
Dim rs1 As DAO.Recordset
Dim Dat As Date
Dim Mac, Pezzo, Turn As String
Dim Tempo_Cicl As Integer
Dim id, pez As String
' qui cerco di selezionare dalla tabella produzione turno,data,id_Macchina,Tipologia pezzo
query1 = "SELECT Produzione.Data, Produzione.Turno, Produzione.Id_Macchina, Produzione.Tipologia_Pezzo FROM Produzione WHERE (((Produzione.Data)=Date())and (Produzione.Turno = Form_Inserimento_Dati_testa.Turno.value )and (Produzione.Id_Macchina = Form_Inserimento_Dati_testa.Id_Macchina.value ))"
Set rs1 = CurrentDb.OpenRecordset(query1)
Dat = (rs1("Data").Value)
Turn = (rs1("Turno").Value)
Mac = (rs1("Id_Macchina").Value)
Pezzo = (rs1("Tipologia_Pezzo").Value)
'qui cerco di selezionare dalla tabella Tempo_Ciclo il valore del t. ciclo corrispondente a tipo_pezzo e id_Macchina selezionati e salvati in produzione
query = "SELECT Tempo_Ciclo.Id_Macchina, Tempo_Ciclo.Tipo_pezzo, Tempo_Ciclo.Tempo_Ciclo FROM Tempo_Ciclo WHERE (((Tempo_Ciclo.Id_Macchina) = '" & Mac & "') And ((Tempo_Ciclo.Tipo_pezzo) = '" & Pezzo & "'))"
Set rs = CurrentDb.OpenRecordset(query)
Tempo_Cicl = (rs("Tempo_Ciclo").Value)
'inserisco nella terza tabella tempi il valore del tempo ciclo
CurrentDb.Execute("INSERT INTO Tempi VALUES (Tempo_Cicl)")
rs1.Close
rs.Close