Snasui Excel Forum

Code: Select all

Private Sub CMB_Save_Click()
If Tb_FinishM1.Text = "" Then
MsgBox ("¡Ãسҡ´»ØèÁ Finsh ¡è͹ºÑ¹·Ö¡")
Exit Sub
End If
If MsgBox("¡ÃسҵÃǨÊͺ»ØèÁ Finish ¡è͹ºÑ¹·Ö¡?", vbOKCancel) = vbOK Then
' OK µÃǨÊͺ»ØèÁ Finish áÅéÇ
Else
' Cancel ÂѧäÁèä´é¡´»ØèÁ Finish !!
Exit Sub
End If
Sheet3.Activate
Dim irow As Long
    Dim ws As Worksheet
    Set ws = Worksheets("Save")
    'find first empty row in database
    irow = ws.Cells(Rows.Count, 2) _
        .End(xlUp).Offset(1, 0).Row
    'Check for Id
    If Trim(Me.CB_CodeModel.Value) = "" Then
        Me.CB_CodeModel.SetFocus
        MsgBox "¡ÃسҡÃÍ¡ Model"
    Exit Sub
End If
    'copy the data to the database
    ws.Cells(irow, 1).Value = Me.Tb_VinNo.Value
    ws.Cells(irow, 2).Value = Me.Lb_Model.Caption
    ws.Cells(irow, 3).Value = Me.Tb_Timein.Value
    ws.Cells(irow, 4).Value = Me.Tb_FinishM1.Value
    ws.Cells(irow, 5).Value = Me.Tb_FinishM2.Value
    ws.Cells(irow, 13).Value = Me.Tb_STDTM1.Value
    ws.Cells(irow, 14).Value = Me.Tb_STDTM2.Value
    ws.Cells(irow, 17).Value = Me.Tb_stopworkP1L.Value
    ws.Cells(irow, 18).Value = Me.Tb_stopworkP1L.Value
    ws.Cells(irow, 21).Value = Me.Tb_BreakM1.Value
    ws.Cells(irow, 22).Value = Me.Tb_BreakM2.Value
     ws.Cells(irow, 25).Value = Me.Tb_ContinM1.Value
    ws.Cells(irow, 26).Value = Me.Tb_ContinM2.Value
    ws.Cells(irow, 29).Value = Me.CB_Remark.Value
    ws.Cells(irow, 31).Value = Me.TB_SubModel.Value
    ws.Cells(irow, 32).Value = Me.TB_Trancefer.Value
    ws.Cells(irow, 33).Value = Me.TB_Katashiki.Value
    ws.Cells(irow, 34).Value = Me.TB_Sfx.Value
    ws.Cells(irow, 35).Value = Me.TB_ColorCode.Value
    'Clear the data
stopTimer1
stopTimer2
Sheet5.Range("A2").Value = ""
Sheet5.Range("R2").Value = ""
Sheet5.Range("V2").Value = ""
 Me.Tb_VinNo.Value = ""
Me.Lb_Model.Caption = ""
Me.Tb_Timein.Value = ""
Me.CB_CodeModel.Value = ""
Me.TB_SubModel.Value = ""
Me.TB_Trancefer.Value = ""
Me.TB_Sfx.Value = ""
Me.TB_Katashiki.Value = ""
Me.TB_ColorCode.Value = ""
Me.Tb_BreakM1.Value = ""
Me.Tb_ContinM1.Value = ""
Me.Tb_FinishM1.Value = ""
Me.Tb_CountDM1.Value = ""
Me.Tb_STDTM1.Value = ""
Me.Tb_RankM1.Value = ""
Me.Tb_AveM1.Value = ""
Me.Tb_PointM1.Value = ""
Me.Tb_BreakM2.Value = ""
Me.Tb_ContinM2.Value = ""
Me.Tb_FinishM2.Value = ""
Me.Tb_CountDM2.Value = ""
Me.Tb_STDTM2.Value = ""
Me.Tb_RankM2.Value = ""
Me.Tb_AveM2.Value = ""
Me.Tb_PointM2.Value = ""
Me.Tb_stopworkP1L.Value = ""
Me.Tb_stopworkP1R.Value = ""
Me.CB_Remark.Value = ""
RefreshColor
ActiveWorkbook.Save
End Sub

Code: Select all

'Other code
ActiveSheet.Unprotect Password:="sooksun040057"
ws.Cells(irow, 1).Value = Me.Tb_VinNo.Value
ws.Cells(irow, 2).Value = Me.Lb_Model.Caption
'Other code