Snasui Excel Forum

Code: Select all

Dim PT As String

Private Sub CmdAddnew_Click()
    Dim WS As Worksheet
    Dim S As Range
    Dim PicPath As String
    PicPath = "D:\"
    Set WS = Worksheets("temp_Regis")
    Set S = WS.Range("A1")
    
    'copy the data to the inputdata for calculate
    'S.Offset(0, 0) =      ลำดับ
    'S.Offset(0, 1) =      รหัสลูกค้า
    S.Offset(0, 2) = Frm_Register.Txt_Ac_Name.Value
    'S.Offset(0, 3) = Frm_Register.Cbo_Branch.Value
    
    S.Offset(0, 5) = Frm_Register.Txt_Name.Value
    S.Offset(0, 6) = Frm_Register.Txt_Surname.Value
    S.Offset(0, 7) = Frm_Register.Txt_ID.Value
    S.Offset(0, 8) = Frm_Register.Txt_Address_num.Value
    S.Offset(0, 9) = Frm_Register.Txt_moo.Value
    S.Offset(0, 10) = Frm_Register.Txt_Tumbon.Value
    S.Offset(0, 11) = Frm_Register.Txt_Amphur.Value
    S.Offset(0, 12) = Frm_Register.Txt_Country.Value
    S.Offset(0, 13) = Date$
    'S.Offset(0, 14) = รูป
    'S.Offset(0, 15) = Frm_Register.Cbo_Branch.Value
    
    Dim x As Object
    Set x = Frame.Object
    For Each x In Frame.Controls
        If x.Value = True Then
            x.Value = S.Offset(0, 4)
        End If
    Next
    
    '
    'Dim BC As Integer
    'Dim BR As Variant
    'Set BR = Frm_Register.Cbo_Branch.Value
    'Set BC = S.Offset(0, 15)
    'Select Case BR
    'Case Is = "กาญจนบุรี"
     'BC = "KN"
    'Case Is = "บ้านน้อย"
     'BC = "BN"
     'Case Is = "ทุ่งสมอ"
     'BC = "TS"
     'Case Is = "หนองขาว"
     'BC = "NK"
     'Case Is = "พนมทวน"
     'BC = "PT"
     'Case Is = "บ่อพลอย"
     'BC = "BP"
     'End Select
    
    'clear  content

    Me.Txt_ID.Value = ""
    Me.Txt_Name.Value = ""
    Me.Txt_Surname.Value = ""
    Me.Txt_Phone.Value = ""
    Me.Txt_Address_num.Value = ""
    Me.Txt_moo.Value = ""
    Me.Txt_Tumbon.Value = ""
    Me.Txt_Amphur.Value = ""
    Me.Txt_Country.Value = ""
    Me.Txt_Ac_Name.Value = ""
    Me.Txt_amount.Value = ""

    MsgBox "การลงทะเบียนสำเร็จ  กำลังสร้างรหัสลูกค้า", , "ขอต้อนรับสมาชิกใหม่"
    'msgbox"ลงทะเบียนสำเร็จ_คุณ_&_name_&_surname_รหัสลูกค้า คือ
    FileCopy PT, PicPath & Mid(PT, InStrRev(PT, "\") + 1)
    Frm_Register.Hide
    Sheets("menu").Activate
 
End Sub

Code: Select all

Private Sub Img_L_Click()
    'Dim PT As String
    PT = Application.GetOpenFilename("*.bmp,*.jpg")
    If PT <> "false" Then
    Img_L.Picture = LoadPicture(PT)
    Me.Repaint
    End If
End Sub