Видео

มีแจกหรือขายไหมครับ

บันทัดที่ Set rs = cd.read(sql) ขึ้น too few parameters. Expected1 ครับ

สลับกัน ข้อมูลจากไฟล์ txt ดึงข้อมูลบางส่วนที่อยู่ใน txt มา excle แบบแยกข้อมูลส่วนที่สำคัญต้องนำมาใช้ละครับ

สามาแยกออกไปบันทึก 2 sheet ได้ไหมครับ แถว 2,4,6 บันทึก sheet ที่2 แถว8 บันทึก sheet ที่3

มันขึ้น compile error method or data member not found ครับ

อ.ครับ ของผมขึ้น error could not set the List property.Type mismatch. ตรงบรรทัด IsCustomer.List(r,0)=rs.Fields("custcode").Value ต้องแก้ตรงไหนหรอครับ

รหัสอะไรครับ

ไฟล์ใช้งานไม่ได้ครับ

ขอบคุณมากๆเลยนะครับนำไปประยุกย์ใช้งานได้อย่างยอดเยี่ยมครับ

❤❤

ผมลองแล้วมัน Error ตรง >> PtrSafe อะครับ เลยไปต่อไม่ได้ รบกวนแนะนำทีครับ

มันทำหน้าเป็นตัวโปรแกรมได้เลยเหรอครับดูจากคลิป

ทำคลิปสอนการเขียนโปรแกรมหวย (รูดบน) (รูดล่าง)อย่างละ2ตัว ด้วยโปรแกรมExcel ให้ชมบ้างครับ อยากเรียนรู้

อยากทราบวิธีการนำข้อมูลที่ดึงออกมานี้ไปทำ Drop down list ในอีกแผ่นงานโดยที่สามารถกรอง/ค้นหาข้อมูลได้ด้วยเลยน่ะครับ

สนใจครับ

สอนทำหน่อยครับ พร้อมExport ไฟล์ออกมาครับ

ลองเขียนตามแล้วแต่มันขึ้น error ตรง Set rs = cd.read("select*from [tblCustomer$]") error ขึ้นว่าไม่สามารถอัปเดทได้ ฐานข้อมูลหรือวัตถุเป็นแบบอ่านอย่างเดียว

รับ consult ไหมครับ

ลองเขียนตามแล้วขึ้น error ตรง IsCustomer.ColumnCount = 2 จะให้แสดงค่า แค่ 2 คอลัมน์ค่ะ ขึ้นว่า Run-time error '424': Object required ค่ะ

ลองเขียนตามแล้ว error ตรง lsCustomer. List(r, 0) =rs.fields("CustCode"). Value ค่ะ ต้องแก้ไขที่จุดไหนค่ะ

มีไพล์ให้ดูลำดับ Code ไหมครับ

ถ้าอยากเพิ่มรหัสพนักงานเป็น 8 ตัว ต้องทำอย่างไรคะ

เมื่อลบข้อมูลลูกค้าหมด เกิด error ที่ sub loadcustomer() ที่ ListBox1.List(r, 0) = rs.Fields("custcode").Value ครับ

สวัสดีครับ ผมขออีเมลของคุณหน่อยนะครับ เพราะฉันมีอะไรจะถามคุณครับ และผมเป็นคนลาวที่คอยติดตามคลิปของคุณอยู่เสมอ

สวัสดีครับ ผมขออีเมลของคุณหน่อยนะครับ เพราะฉันมีอะไรจะถามคุณครับ และผมที่คอยติดตามคลิปของคุณอยู่เสมอ

ขออนุญาตสอบถามครับ หากมีการใช้งานฟอร์มร่วมกันหลายๆคน จำเป็นต้องใส่เงื่อนไขอะไรบ้างครับ

สนใจค่ถ

Option Explicit Private conn As ADODB.connection 'connect data Private Function ConnectionDB() As ADODB.connection Dim srtCon As String Dim dbpath As String Dim db As String dbpath = "C:\Users\kai it\Desktop\data\" db = "mydb.accdb" On Error GoTo err strcon = "driver= { Microsoft Access driver(*.mdb, *.accdb)}; Dbq=" & dbpath & db & ";IMEX=1;" Set conn = New ADODB.connection conn.Open strcon 'err: ' MsgBox "dddddddddddddddddd" & err.Description, vbCritical + vbOKOnly, " fffff" End Function Private Function disconnectDB() If CBool(coon.stale And adstateopen) Then conn.Close Set conn = Nothing End Function Public Sub SQLExec(ByVal sql As String) Dim cn As Connections Set cn = connectionBD cn.Execute (sql) Call disconnectDB End Sub

ลนไม้ออก

ขอบคุณครับ

ขึ้นแถบเหลืองตรงโค้ดเช็คตัวอักษรแล้วก็ตรงกัน ทำงั่ยต่อค่ะ

ทำตามแล้วแต่ไม่ได้ ค่ะ หาไม่เจอด้วย

ขออนุญาตสอบถามค่ะ ถ้าอยากให้ตัว VBA ออกมา แต่ไม่ให้ Excel ออกมาด้วย สามารถทำได้ไหมคะ

ทำไมผมถึงให้ข้อมูลใน column ที่ 11 มาแสดงใน ListBox ไม่ได้หรอครับ run แล้ว error ครับ

ผมลองแล้วรันผ่านแต่รายการไม่แสดง เลยสักช่อง ลองแก้แล้วก็ไม่ขึ้นพอจะแนะนำยังไงได้บ้างมั้ยครับ

ผมอยากทำtextbox 1,2,3 รวมกันแล้วมาหาร3 ช่องtext 4ครับ

สนใจมากครับ

ถ้าหากเราต้องการเพิ่มข้อมูลต่อจากรายการที่เราเลือก เช่น ใน listbox มี 10 รายการ แล้วเรากดเลือกที่รายการที่ 5 แล้วเราต้องการเพิ่มข้อมูลใหม่ ให้แทรกต่อจากรายการที่ 5 ต้องเขียน code ยังไงครับ

มีคลิปวิธีเพิ่มขนาดตัวอักษรตัวDrop down ไหมครับ พอดีตัวเล็กมากครับ

ขอแบบวนลูปหน่อยครับ แบบที่มีFormat

สอนเร็วไปหน่อย ไม่ทัน

งง มากครับ แว็บไป แว็บมา ดูไม่ทัน รบกวนขอแบบช้าๆ หน่อยครับ

รบกวนขอไฟล์ตัวอย่างครับผม ดูใต้คลิปแล้วไม่มีครับผม

ติด Debug ตรง .send (lineMessage) ครับ แก้ไขอย่างไร

เพิ่มหน้า tb ตรง Code ยังไงหรอครับ

สามารถบันทึกจาก sheet1 ทีละหลาย row ได้ไหมครับ

มีวิธีให้ประทับวัและเวลาที่ลงข้อมูลด้วยไหมครับ

ขอถามหน่อยครับ ทำไมพอกดเซฟแล้วมันไม่เลื่อนลงอะครับ ข้อมูลมันแทนอยู่ที่เซลล์เดียว ขนาด + 1 แล้ว

มีคลิปสอนทำ check box ใน VBA Userform สำหรับการ delete มั้ยคะ ขอ COde vba ด้วยได้มั้ยคะ😊

มีคลิปสอนตั้งแต่สร้าง drop down และเพิ่มข้อมูลไหมครับ