Скачать или смотреть Excel User Form สร้างฟอร์มกรอกข้อมูล | PART#5 การ Update และ Delete ข้อมูล

#exceluserform #excelvbaform #สร้างฟอร์มexcel
--------------------------------------------------------------------
PART #1 เริ่มต้นสร้างฟอร์ม คลิกลิงค์ ด้านล่าง
   • Excel : EP137  Excel User Form สร้างฟอร์มก...  

PART #2 แสดงข้อมูลใน List Box ของฟอร์ม
   • Excel : EP138  Excel User Form สร้างฟอร์มก...  

PART #3 ใส่ข้อมูล Combo Box & นำข้อมูล List Box มาแสดงในฟอร์ม
   • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...  

PART#4 ค้นหาข้อมูลจาก Text Box
   • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...  

PART#5 การ Update และ Delete ข้อมูล
   • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...  

PART#6 เพิ่มรายการใหม่ด้วยปุ่ม Insert
   • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...  

PART#7 Insert Picture การแทรกรูปในฟอร์ม
   • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...  

PART#8 ใส่ข้อมูลวันที่ด้วย Date Picker
   • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...  

PART#9 แทรกข้อมูลรูปภาพลงใน Cell ด้วย User Form
   • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...  

PART#10 ค้นหาและแสดงข้อมูลใน Listbox
   • Excel User Form สร้างฟอร์มกรอกข้อมูล | PAR...  
-------------------code โปรแกรม---------------------------------------------
Private Sub CmdUpdate_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("employee")
Dim Lastrow As Long
Lastrow = Application.WorksheetFunction.CountA(sh.Range("A:A"))

Dim vid As String
vid = Trim(txtid.Text)

For i = 2 To Lastrow
If Sheet1.Cells(i, 1).Value = vid Then

If Me.OptionButton1.Value = True Then
sex = "ªÒÂ"
Else
sex = "Ë­Ô§"
End If
Sheet1.Cells(i, 2).Value = sex
Sheet1.Cells(i, 3).Value = Me.ComboBox1.Value
Sheet1.Cells(i, 4).Value = txtname.Text
Sheet1.Cells(i, 5).Value = txtsalary.Text
End If
Next i

Call ShowData
Call clear_data
Me.cmdDelete.Enabled = False
Me.cmdUpdate.Enabled = False
Me.cmdInsert.Enabled = False
End Sub
-----------------------------------------------------------------------
Private Sub cmddelete_Click()
If Trim(Me.txtid.Value) = "" Then
MsgBox "Please select id to delete"
Exit Sub
End If
answer = MsgBox("You want to Delete this record??", vbQuestion + vbYesNo, "warning")
If answer = vbYes Then
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("employee")
Dim Delete_Row As Long
Delete_Row = Application.WorksheetFunction.Match(CLng(Me.txtid.Value), sh.Range("A:A"), 0)
sh.Range("A" & Delete_Row).EntireRow.Delete

Call clear_data
Call ShowData
Call Disable_Cmd

End If
End Sub