Expand|Select|Wrap|Line Numbers
- Dim con As New ADODB.Connection
- Dim cmd As New ADODB.Command
- Dim rs As New ADODB.Recordset
- Dim cn As String
- Private Sub CommandButton1_Click()
- con.Open cn
- cmd.ActiveConnection = con
- con.CursorLocation = adUseClient
- rs.Open "INSERT INTO TRY_REVISE(TRY, TRY_COMPONENT, TRY_CONDITION,TRY_STEP) Values ('" & Text1 & "', '" & Text3 & "', '" & Text2 & "','" & Frame1 & "')", con
- Call Frame1
- MsgBox ("Successfully Save")
- End Sub
- Private Sub Frame1_Click()
- If Option1.Value = True Then
- Value = "Reposition"
- Else: Option2.Value = True
- Value = "Hold/Release"
- End If
- End Sub