Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
Dim r As Range
Set r = Workbooks("ฐานข้อมูล.xlsx").Worksheets("รายชื่อสมาชิก").Range( _
    "B" & Rows.Count).End(xlUp).Offset(1, 0)
    r = FormRegister.TextBox1
    r.Offset(, 1) = FormRegister.TextBox2
    r.Offset(, 2) = FormRegister.TextBox3
    r.Offset(, 3) = FormRegister.TextBox4
    r.Offset(, 4) = FormRegister.TextBox5
    r.Offset(, 5) = FormRegister.TextBox6
    Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Code: Select all

Private Sub btnClose_Click()
    Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To 50
    FormMenu.cboTable.AddItem i
Next i
End Sub

Code: Select all

Sub openForm()
    FormMenu.Show
End Sub

Sub Register()
FormRegister.Show
End Sub

Code: Select all

Private Sub CommandButton1_Click()
Dim r As Range
Set r = Workbooks("ฐานข้อมูล.xlsx").Worksheets("รายชื่อสมาชิก").Range( _
    "B" & Rows.Count).End(xlUp).Offset(1, 0)
    r = FormRegister.TextBox1
    r.Offset(, 1) = FormRegister.TextBox2
    r.Offset(, 2) = FormRegister.TextBox3
    r.Offset(, 3) = FormRegister.TextBox4
    r.Offset(, 4) = FormRegister.TextBox5
    r.Offset(, 5) = FormRegister.TextBox6
    If r.Row = 2 Then
        r.Offset(0, -1) = "V0001"
    Else
        r.Offset(0, -1) = "V" & Application.Text(Right(r.Offset(-1, -1), 4) + 1, "0000")
    End If
    Unload Me
End Sub

Code: Select all

Private Sub txtF1_Change()
Dim r As Range
Set r = Workbooks("ฐานข้อมูล.xlsx").Worksheets( _
            "อาหาร").Range("B2:C8")
With FormMenu.MultiPage1.Pages("Page1")
    If .txtF1 = "" Then
        .lblF1 = ""
    Else
        .lblF1.Caption = .txtF1.Text * Application.VLookup(.Label46.Caption, r, 2, 0)
    End If
End With
End Sub

Code: Select all

Private Sub btnOK_Click()
Dim d As Range
Dim s As String
s = Application.Text(Date, "dดดดดbb")
Set d = Workbooks("ฐานข้อมูล.xlsx").Worksheets(s).Range( _
    "B" & Rows.Count).End(xlUp).Offset(1, 0)
    d = FormMenu.lblDate
    d.Offset(, 1) = FormMenu.lblTime
    d.Offset(, 2) = FormMenu.cboTable
    d.Offset(, 3) = FormMenu.txtMember
    MsgBox "บันทึกรายการเรียบร้อยแล้ว"
    Unload Me
End Sub

Code: Select all

Private Sub txtF1_Change()
Dim r As Range
Dim rTemp As Range
Set r = Workbooks("ฐานข้อมูล.xlsx").Worksheets( _
            "อาหาร").Range("B2:C8")
Set rTemp = Workbooks("ฐานข้อมูล.xlsx").Worksheets( _
            "Temp").Range("E" & Rows.Count).End(xlUp).Offset(1, 0)
With FormMenu.MultiPage1.Pages("Page1")
    If .txtF1 = "" Then
        .lblF1 = ""
        rTemp = ""
        rTemp.Offset(, 1) = ""
        rTemp.Offset(, 2) = ""
    Else
        .lblF1.Caption = .txtF1.Text * Application.VLookup("ปลาทับทิมนึ่งมะนาว", r, 2, 0)
        rTemp = "ปลาทับทิมนึ่งมะนาว"
        rTemp.Offset(, 1) = txtF1.Text
        rTemp.Offset(, 2) = .lblF1.Caption
    End If
End With
End Sub