Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
    Dim msg As String
    
    If NoTxt.Value = "" Then
        MsgBox "¡ÃسҡÃÍ¡ÃËÑʾ¹Ñ¡§Ò¹", vbCritical, "Save failed"
        BookTxt.Value = ""
        Exit Sub
    End If
        
    If BookTxt.Value = "" Then
        MsgBox "¡ÃسҡÃÍ¡Çѹ·Õè¨Í§Ëéͧ¾Ñ¡", vbCritical, "Save failed"
        NoTxt.Value = ""
        Exit Sub
    End If
           
            msg = MsgBox("µéͧ¡Òúѹ·Ö¡¢éÍÁÙÅãªèäËÁ", vbYesNo + vbInformation, "Successful !!!")
            If msg = vbYes Then
                Call Submitform2
                NoTxt.Value = ""
                BookTxt.Value = ""
                MsgBox "ºÑ¹·Ö¡¢éÍÁÙÅÊÓàÃç¨", vbOKOnly + vbInformation, "Save !!"
                Else: Exit Sub
            End If
End Sub

Code: Select all

Sub Submitform2()
    Dim sh As Worksheet
    Dim iRow As Long
    
    
    Set sh = ThisWorkbook.Sheets("Database")
    
    iRow = [Counta(Database!A:A)] + 1
    
    With sh
        .Cells(iRow, 1) = iRow - 1
        .Cells(iRow, 3) = UserForm2.NoTxt.Value
        .Cells(iRow, 2) = UserForm2.BookTxt.Value
        .Cells(iRow, 10) = [Text(now(),"DD-MM-YYYY HH:MM:SS")]
    End With
    
End Sub

Code: Select all

Sub Submitform2()
    Dim sh As Worksheet
    Dim iRow As Long
    
    
    Set sh = ThisWorkbook.Sheets("Database")
    
    iRow = [Counta(Database!A:A)] + 1
    
    With sh
        .Cells(iRow, 1) = iRow - 1
        .Cells(iRow, 3) = Record_Form.NoTxt.Value
        .Cells(iRow, 2) = Record_Form.BookTxt.Value
        .Cells(iRow, 10) = [Text(now(),"DD-MM-YYYY HH:MM:SS")]
    End With

    With Record_Form
        .ListDatabase.ColumnCount = 10
        .ListDatabase.ColumnHeads = True
        .ListDatabase.ColumnWidths = "30,60,75,40,60,45,55,70,70,45"
        If iRow > 1 Then
        
            .ListDatabase.RowSource = "Database!A2:I" & iRow
        Else
            .ListDatabase.RowSource = "Database!A2:I2"
            End If
            
    End With
End Sub

Code: Select all

Private Sub UserForm_Initialize()
    Dim iRow As Long
    
    iRow = [Counta(Database!A:A)] + 1
    
    With Record_Form
        .ListDatabase.ColumnCount = 10
        .ListDatabase.ColumnHeads = True
        .ListDatabase.ColumnWidths = "30,60,75,40,60,45,55,70,70,45"
        If iRow > 1 Then
            .ListDatabase.RowSource = "Database!A2:I" & iRow
        Else
            .ListDatabase.RowSource = "Database!A2:I2"
        End If
            
    End With
End Sub

Code: Select all

Private Sub CommandButton1_Click()

    Dim Msg As String
    Msg = MsgBox("¤Ø³µéͧ¡ÒÃà»ÅÕè¹á»Å§¢éÍÁÙÅãªèäËÁ?!", vbYesNo + vbExclamation, "Editing")
    
        If Msg = vbYes Then
            Namelist_Form.ListBox1.Column(0) = Me.TextBox1.Text
            End If
    
End Sub

Code: Select all

Private Sub CommandButton1_Click()

    Dim Msg As String, l As Long
       
    Msg = MsgBox("คุณต้องการเปลี่ยนแปลงข้อมูลใช่ไหม?!", vbYesNo + vbExclamation, "Editing")
    
    If Msg = vbYes Then
        With Worksheets("Database")
            l = Application.Match(CLng(Me.TextBox2.Value), .Range("c1", .Range("c" & .Rows.Count).End(xlUp)), 0)

'        Namelist_Form.ListBox1.Column(0) = Me.TextBox1.Text
            .Cells(l, "a").Value = Me.TextBox1.Value
            .Cells(l, "b").Value = Me.TextBox2.Value
            'Other code
        End With
    End If
    
End Sub

Code: Select all

Application.Match(CLng(Me.TextBox2.Value), .Range("c1", .Range("c" & .Rows.Count).End(xlUp)), 0)