Как сохранить несколько значений текстового поля различной классификации в одной таблице?

Question

Пожалуйста, обратитесь к этой картинке:

Итак, я сделал форму, состоящую из 11x3 текстовых полей для 11 машин.Одна машина имеет 3 текстовых поля параметров.

Моя таблица называется TOSA_settings, а поля следующие:
UCL
LCL
mean
machine

Я отключил все текстовые поля, потому что пользователь долженвозможность редактировать / обновлять любые машины, которые они хотят обновить.Если пользователь хочет обновить машину 1, он щелкнет на ярлыке редактирования справа от текстовых полей TOSA 01, и текстовые поля будут включены = true.Пользователь может заполнить данные, а затем сохранить только для этой конкретной машины.Где остальные останутся инвалидами.

Теперь я пробую кодировать только две машины, чтобы посмотреть, работает ли она.

Таким образом, я написал код под cmdSave_Click ()

Dim strSQL As String

If mean1.Value <> "" Then
    strSQL = "INSERT INTO TOSA_settings( UCL, LCL, mean, machine) VALUES (" & Me.UCL1 & "," & Me.LCL1 & ", " & Me.mean1 & ", 'TOSA 01');"
End If
If mean2.Value <> "" Then
    strSQL = "INSERT INTO TOSA_settings( UCL, LCL, mean, machine) VALUES (" & Me.UCL2 & "," & Me.LCL2 & ", " & Me.mean2 & ", 'TOSA 02');"
End If
CurrentDb.Execute strSQL, dbFailOnEror

Но этосохранить только значения из TOSA 02. или я должен создать другие таблицы, по одной машине в каждой?

Answer 1

Вам придется выполнить дважды (или несколько):

Dim strSQL As String

If mean1.Value <> "" Then
    strSQL = "INSERT INTO TOSA_settings( UCL, LCL, mean, machine) VALUES (" & Me.UCL1 & "," & Me.LCL1 & ", " & Me.mean1 & ", 'TOSA 01');"
    CurrentDb.Execute strSQL, dbFailOnEror
End If
If mean2.Value <> "" Then
    strSQL = "INSERT INTO TOSA_settings( UCL, LCL, mean, machine) VALUES (" & Me.UCL2 & "," & Me.LCL2 & ", " & Me.mean2 & ", 'TOSA 02');"
    CurrentDb.Execute strSQL, dbFailOnEror
End If