Snasui Excel Forum

Code: Select all

Private Sub cmdSave_click_Click()
Dim Lastrow As Integer
Sheets("db_bank").Select
    If Range("i1") = "" Then Exit Sub
    If Not Sheets("db_bank").Columns("A:A").Find(Range("i1"), LookIn:=xlValues) Is Nothing Then
            MsgBox "มีรหัสนี้แล้ว   ไม่สามารถบันทึกได้"
    Else
        Lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Cells(1 + Lastrow, 1).Offset(0, 0).Value = Account_number.Value
        Cells(1 + Lastrow, 1).Offset(0, 1).Value = Account_Name.Value
        Cells(1 + Lastrow, 1).Offset(0, 2).Value = name_fark.Value
        Cells(1 + Lastrow, 1).Offset(0, 3).Value = tel.Value
        Cells(1 + Lastrow, 1).Offset(0, 4).Value = tel_home.Value
        Cells(1 + Lastrow, 1).Offset(0, 5).Value = bank_name.Value
        End If
        If Answer = vbYes Then
            MyNote = "ระบบบันทึกข้อมูลเรียบร้อยแล้ว"
            Answer = MsgBox(MyNote, vbQuestion, "บันทึกข้อมูล")
            Account_Name.Value = ""
        Account_number.Value = ""
        name_fark.Value = ""
        tel.Value = ""
        tel_home.Value = ""
        bank_name.Value = ""
        End If
        Sheets("title").Select
        Range("c4").Select
End Sub

Code: Select all

Private Sub Account_Name_Change()
    Sheets("db_bank").Range("i2").Value = Account_Name.Text
End Sub

'Private Sub Account_number_Change()
'     Sheets("db_bank").Range("I1").Value = Account_number.Value
'End Sub

Code: Select all

Private Sub cmdSave_click_Click()
Sheets("db_bank").Select
Sheets("db_bank").Range("I1").Value = Account_number.Value
Dim Lastrow As Integer
        If Range("i1") = "" Then Exit Sub
    If Not Sheets("db_bank").Columns("A:A").Find(Range("i1"), LookIn:=xlValues) Is Nothing Then
            MsgBox "มีรหัสนี้แล้ว   ไม่สามารถบันทึกได้"
    Else
        Lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Cells(1 + Lastrow, 1).Offset(0, 0).Value = Account_number.Value
        Cells(1 + Lastrow, 1).Offset(0, 1).Value = Account_Name.Value
        Cells(1 + Lastrow, 1).Offset(0, 2).Value = name_fark.Value
        Cells(1 + Lastrow, 1).Offset(0, 3).Value = tel.Value
        Cells(1 + Lastrow, 1).Offset(0, 4).Value = tel_home.Value
        Cells(1 + Lastrow, 1).Offset(0, 5).Value = bank_name.Value
        End If
        If Answer = vbYes Then
            MyNote = "ระบบบันทึกข้อมูลเรียบร้อยแล้ว"
            Answer = MsgBox(MyNote, vbQuestion, "บันทึกข้อมูล")
            Account_Name.Value = ""
        Account_number.Value = ""
        name_fark.Value = ""
        tel.Value = ""
        tel_home.Value = ""
        bank_name.Value = ""
        End If
        Account_number.Value = ""  '[color=#BF0000]สั่งให้ลบข้อมูล  textBox  ชื่อ  Account_number[/color]
        Sheets("title").Select
        Range("c4").Select
End Sub

Code: Select all

 Lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        Cells(1 + Lastrow, 1).Offset(0, 0).Value = Account_number.Value
        Cells(1 + Lastrow, 1).Offset(0, 1).Value = Account_Name.Value
        Cells(1 + Lastrow, 1).Offset(0, 2).Value = name_fark.Value
        Cells(1 + Lastrow, 1).Offset(0, 3).Value = tel.Value
        Cells(1 + Lastrow, 1).Offset(0, 4).Value = tel_home.Value
        Cells(1 + Lastrow, 1).Offset(0, 5).Value = bank_name.Value
        End If
        If Answer = vbYes Then
            MyNote = "ระบบบันทึกข้อมูลเรียบร้อยแล้ว"
            Answer = MsgBox(MyNote, vbQuestion, "บันทึกข้อมูล")
            Account_Name.Value = ""
        Account_number.Value = ""
        name_fark.Value = ""
        tel.Value = ""
        tel_home.Value = ""
        bank_name.Value = ""
        End If

Code: Select all

'...
If Not Sheets("db_bank").Columns("A:A").Find(Range("i1"), LookIn:=xlValues) Is Nothing Then
    MsgBox "มีรหัสนี้แล้ว   ไม่สามารถบันทึกได้"
    Account_number.Value = "" '<== add this line
'...