Snasui Excel Forum

Code: Select all

Private Sub CommandButton2_Click()
'»ØèÁ Update

If Me.cmbslno.Value = "" Then
MsgBox "ID No Can Not be Blank!!!", vbExclamation, "SL No"
Exit Sub
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim i As Integer
i = 0
Do While Not IsEmpty(Sheet15.Cells(4 + i, 1).Value)
    If Sheet15.Cells(4 + i, 1).Value = cmbslno.Text Then
          Sheet15.Cells(4 + i, 8).Value = Noname.Text & " " & Textname.Text
          Sheet15.Cells(4 + i, 9).Value = TextBox01.Text
          Sheet15.Cells(4 + i, 10).Value = TextBox02.Text
          Sheet15.Cells(4 + i, 11).Value = TextBox03.Text
          Sheet15.Cells(4 + i, 15).Value = TextBox11.Text
          Sheet15.Cells(4 + i, 16).Value = TextBox12.Text
          Sheet15.Cells(4 + i, 17).Value = TextBox13.Text
          Sheet15.Cells(4 + i, 22).Value = ComboBox21.Text
          Sheet15.Cells(4 + i, 23).Value = ComboBox22.Text
          Sheet15.Cells(4 + i, 24).Value = ComboBox23.Text
                MsgBox "¨Ñ´à¡çºÅ§ã¹°Ò¹¢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
        Exit Do
    End If
    i = i + 1
Loop

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim j, already As Integer
ListBox01.Clear
j = 0
Do While Not IsEmpty(Sheet15.Cells(4 + j, 8).Value)
    already = 0
    If Sheet15.Cells(4 + j, 3).Value = ComboBox02.Value Then
            If Sheet15.Cells(4 + j, 2).Value = ComboBox01.Value Then
                    ListBox01.AddItem Sheet15.Cells(4 + j, 8).Value
            End If
    End If
    j = j + 1
Loop

Call Blank

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
ComboBox21.Clear
ComboBox22.Clear
ComboBox23.Clear
Call open_comboBox2

End Sub

Code: Select all

Dim i As Integer
i = 0
Do While Not IsEmpty(Sheet15.Cells(4 + i, 1).Value)
    If Sheet15.Cells(4 + i, 1).Value = cmbslno.Text Then
          Sheet15.Cells(4 + i, 8).Value = Noname.Text & " " & Textname.Text
          Sheet15.Cells(4 + i, 9).Value = TextBox01.Text
          Sheet15.Cells(4 + i, 10).Value = TextBox02.Text
          Sheet15.Cells(4 + i, 11).Value = TextBox03.Text
          Sheet15.Cells(4 + i, 15).Value = TextBox11.Text
          Sheet15.Cells(4 + i, 16).Value = TextBox12.Text
          Sheet15.Cells(4 + i, 17).Value = TextBox13.Text
          Sheet15.Cells(4 + i, 22).Value = ComboBox21.Text
          Sheet15.Cells(4 + i, 23).Value = ComboBox22.Text
          Sheet15.Cells(4 + i, 24).Value = ComboBox23.Text
                MsgBox "¨Ñ´à¡çºÅ§ã¹°Ò¹¢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
        Exit Do
    End If
    i = i + 1
Loop

Code: Select all

Dim currow As Integer
Dim x As Integer

Code: Select all

Public Sub SpinButton1_Change()
'     curyear = SpinButton.Value
    x = Me.SpinButton1.Value - Me.SpinButton1.Min
     Label101.Caption = "พ.ศ." & SpinButton1.Value - 1
     Label102.Caption = "พ.ศ." & SpinButton1.Value
     Label103.Caption = "พ.ศ." & SpinButton1.Value + 1
    'Other code

Code: Select all

Private Sub CommandButton2_Click()
'»ØèÁ Update

If Me.cmbslno.Value = "" Then
MsgBox "ID No Can Not be Blank!!!", vbExclamation, "SL No"
Exit Sub
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim i As Integer
i = 0
Do While Not IsEmpty(Sheet15.Cells(4 + i, 1).Value)
    If Sheet15.Cells(4 + i, 1).Value = cmbslno.Text Then
          Sheet15.Cells(4 + i, 8).Value = Noname.Text & " " & Textname.Text
          Sheet15.Cells(4 + i, 9 + x).Value = TextBox01.Text
          Sheet15.Cells(4 + i, 10 + x).Value = TextBox02.Text
          Sheet15.Cells(4 + i, 11 + x).Value = TextBox03.Text
          'Other code

Code: Select all

Private Sub ListBox01_Click()

    Dim i As Integer
    i = 0
    Do While Not IsEmpty(Sheet15.Cells(4 + i, 8).Value)
        If Sheet15.Cells(4 + i, 8).Value = ListBox01.Text Then
            cmbslno2.Text = Sheet15.Cells(4 + i, 4).Value
'            SpinButton1.Min = "2562"
'            goal(SpinButton1.Value - 2562) = 0
            Label101.Caption = "¾.È." & 2561
            Label102.Caption = "¾.È." & 2562
            Label103.Caption = "¾.È." & 2563
            Label111.Caption = "¾.È." & 2561
            Label112.Caption = "¾.È." & 2562
            Label113.Caption = "¾.È." & 2563
        
            Exit Do
        End If
    i = i + 1
    Loop
    
End Sub

Code: Select all

Private Sub ListBox01_Click()
    Dim i As Integer
    i = 0
    SpinButton1.Value = SpinButton1.Min
    Label101.Caption = "¾.È." & SpinButton1.Min - 1
    Label102.Caption = "¾.È." & 2562
    Label103.Caption = "¾.È." & SpinButton1.Min + 1
    Label111.Caption = "¾.È." & SpinButton1.Min - 1
    Label112.Caption = "¾.È." & 2562
    Label113.Caption = "¾.È." & SpinButton1.Min + 1
    'Other code
    

Code: Select all

Private Sub CommandButton4_Click()
'ปุ่ม Add
On Error Resume Next
Dim i As Integer
Dim j As Integer
i = 0

If Me.cmbslno.Value = "" Or Me.Noname.Value = "" Or Me.Textname.Value = "" Then
MsgBox "ID Number Record Can Not be Blank!!!", vbExclamation, "ID Number"
     Exit Sub
End If
      
cmbslno1.Text = "E-" & Application.Text(Application.Max([max_no]) + 1, "0000")
cmbslno2.Text = Application.Max([max_no]) + 1
cmbslno.Text = cmbslno1.Text
      
Do While Not IsEmpty(Sheet15.Cells(3 + i, 6).Value)
    If Sheet15.Cells(3 + i, 6).Value <> Noname.Text Then
        Do
            If IsEmpty(Sheet15.Cells(3 + i, 1).Value) = False Then
                        i = i + 1
            End If
                Loop Until IsEmpty(Sheet15.Cells(3 + i, 1).Value) = True
                Sheet15.Cells(3 + i, 1).Value = cmbslno.Text
                Sheet15.Cells(3 + i, 2).Value = ComboBox01.Text
                Sheet15.Cells(3 + i, 3).Value = ComboBox02.Text
                Sheet15.Cells(3 + i, 4).Value = cmbslno2.Text
                Sheet15.Cells(3 + i, 5).Value = "-"
                Sheet15.Cells(3 + i, 6).Value = Noname.Text
                Sheet15.Cells(3 + i, 7).Value = Textname.Text
                Sheet15.Cells(3 + i, 8).Value = Noname.Text & " " & Textname.Text
                    For j = 0 To 5
                        Sheet15.Cells(3 + i, 9 + j).Value = goal(j)
                        Sheet15.Cells(3 + i, 15 + j).Value = actual(j)
                    Next j
                Sheet15.Cells(3 + i, 22).Value = ComboBox21.Text
                Sheet15.Cells(3 + i, 23).Value = ComboBox22.Text
                Sheet15.Cells(3 + i, 24).Value = ComboBox23.Text
                Call Blank
                Call ClearListBox01
                    MsgBox "จัดเก็บลงในฐานข้อมูลเรียบร้อยแล้ว"
            End If
    i = i + 1
Loop
    
'    CommandButton4.Enabled = False
'    CommandButton3.Enabled = True
'    CommandButton2.Enabled = True
'    CommandButton5.Enabled = True

End Sub

Code: Select all

Private Sub CommandButton4_Click()
    'ปุ่ม Add
    On Error Resume Next
    Dim i As Integer
    i = 0
    With Worksheets("Data")
        If Application.CountIf(.Range("f4", .Range("f" & .Rows.Count).End(xlUp)), _
            Me.Noname.Text) > 0 Then
            MsgBox "Please check sub item.", vbInformation
        End If
    End With
'Other code