แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - ชวลิต เสนะสุทธิ

หน้า: [1] 2
1
ขอดูโค้ดที่วางในคิวรี่หน่อยคับ
ของคงเหลือนะครับ
หรือ copy code SQL มาดูเลยก็ได้คับ
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

2
ตัวอย่าง ติดต่อกับ Customer Diskplay

    Dim printString As String

    Open "com1:2400, N, 8, 1" For Output As #1
    Rem clear
    Print #1, Chr(12)
           
    Close #1
   
 Open "com1:2400, N, 8, 1" For Output As #1
   
    Print #1, Format([XTotal], "#####.00")
   
 Close #1
 

โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

3
อาจต้องกำหนด Config ให้ Port RS232
เพราะเป็นไปได้ว่าทางผู้ผลิตได้กำหนด Pin Number ไม่เหมือนคนอื่น

แนะนำว่าต้องติดต่อผู้ผลิต แล้วขอคำแนะนำจากเค้าครับ

โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

4
โปรแกรม พิมพ์ Slip เงินเดือน
เพื่อศึกาษารออกแบบฐานข้อมูลเบื้องต้น
การเพิ่มข้อมูล , ค้นหา, พิมพ์


โหลดได้ที่
http://access.crtrading.net/filedownload/salaryDatabase.rar link











โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

5
ได้ครับ แต่อาจต้องหา Driver ของ COM1 มาลงหน่อย
ถ้าจะให้ชัวร์ ลองกับ Excel ดูก่อนก็ได้ครับ ถ้าสแกนแล้ว Excel รับค่า ก็สามารถใช้ได้กับ Access แน่นอน
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

6
2013 ผมหา Compile / DeCompile ไม่เจอครับ
compact and repair ทำแล้วแต่ก็ยังไม่ได้


โหลดไฟล์ Database39.mdb ของท่านมาใช้ได้ :sweat:
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

7
ลอง Compile / DeCompile ดูหรือยังครับ
ลอง compact and repair ด้วยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

8
ไม่ว่าจะใช้แบบไหนผมก็รันไม่ได้เกิดจากอะไรครับนี่


โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

9
ถ้าเลือก DAO 3.6 ก็เอา
Microsoft Office xx.0 Access Database engine object library ออกไปครับ

อธิบาย
ถ้าไฟล์ที่นามสกุล .accdb จะมี  Microsoft Office xx.0 Access Database engine object library มาให้แล้ว
มันใช้ได้เหมือน DAO

ถ้าจะใช้ DAO 3.6 ก็ต้องติ๊กเอา Microsoft Office XX.0 Access Database engine object library ออกไป

ถ้าใช้ Microsoft Office XX.0 Access Database engine object library ก็กำหนด แนะนำตัวนี้แหละดีแล้วสำหรับรุ่นใหม่ๆ
Microsoft Office  2007 ขึ้นไปใช้
Dim rst as Recordset

ถ้าใช้ DAO 3.6 ใช้กับเวอร์ชั่นเก่าๆ ดี ถ้าเวอร์ชั่นใหม่ๆ ใช้ตัวบน
Dim rst as DAO.Recordset
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

10
ถ้าอยากใช้ DAO ก็เพิ่ม reference ตัวนี้เข้าไป


เครื่องผมเพิ่มไม่ได้ขึ้น Name conflicts with existing module, project, or object library แก้ยังไงครับ :question:
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

11
ลองแก้เป็น
dim rst as recordset

เอา DAO ออกไปครับ
ถ้าอยากใช้ DAO ก็เพิ่ม reference ตัวนี้เข้าไป
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

12
ลองดูโค๊ดนี้ว่าได้ไหม ช่วยๆกันสาย DIY

โค๊ด: [Select]
Private Sub QRCode_AfterUpdate()
Dim strLetterName As String
Dim intNum As Integer
Dim i As Long
Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("table1", dbOpenDynaset)

strLetterName = Left(QRCode, 6)
intNum = Right(QRCode, 3)

For i = 1 To Me.Text0

rst.AddNew
rst!Bcode = strLetterName & intNum
rst.Update
intNum = intNum + 100
Next
rst.Close
Set rst = Nothing
Me.Recalc
End Sub

แต่ความต้องการคือให้ + 100 ไปเรื่อยๆหรือไม่เช่น
ถ้า 6 ครั้ง ก็จะได้ AAABBB100 - AAABBB600
แต่ถ้า 15 ครั้ง Bcode จะเป็น AAABBB100 - AAABBB1500

หรือจะปรับแก้ยังไงก็บอกนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

13
AAABBB100 เป็นตัวอักษรไม่ใช้ตัวเลขดังนั้นการที่จะบวกได้ก็ต้องใช้ Left,Right แยกออกมาก่อนบวกแล้วรวมกลับเข้าไปจากนั้นถึงจะนำเข้าไปใส่ใน Database นะครับ
>จำนวนตัวอักษรต้องเท่ากันทุกครั้งในการใช้ Left,Right แยกออกมา
>เมื่อ 900+100 = 1000 แต่เมื่อวนกลับไปใช้ Left,Right จะได้ 000(ดึง3ตัวท้าย)
>ตัวอย่างชื่อเทเบิ้ล Table1 ,ชื่อฟิวล์ BCode

โค๊ด: [Select]
Private Sub QRCode_AfterUpdate()
Dim i As Integer
Dim X As Variant
Dim Y As Variant
Y = Me.QRCode
DoCmd.SetWarnings (0)
For i = N + 1 To Me.Text0 'ตั้งออโต้จำนวนใว้ที่ 6
    SQL = "insert into Table1 ([BCode]) values('" & Y & "');"
    DoCmd.RunSQL SQL
    X = Right(Y, 3) + 100
    Y = Left(Me.QRCode, 6) & X
Next
DoCmd.SetWarnings (1)
Me.Recalc
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

14
ห้อง MS Access / : ต้องการ export file เป็น zip
« เมื่อ: 23 ก.พ. 64 , 12:49:31 »
จากกระทู้นี้ท่าน pizza_p มีตัวอย่างคำสั่งที่ใช้ 7-zip สำหรับบีบอัดไฟล์และคลายไฟล์ออกมาครับ ส่วนถ้าจะเข้าไปใช้ดาต้าภายในไฟล์เลยทั้งที่ยังบีบอัดอยู่นี่น่าจะไม่ได้นะครับ
https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=5609
โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

15
สร้างตัวแปรขึ้นมา 1 ตัวไว้บนสุดของคำสั่งบันทึก
เช่น dim strTAG as string
strTAG = me.tagIMM
.....โค้ดต่างๆที่มี......เช่น
Docmd.save
Docmd.gotorecord,,acnewrec
และจบท้ายคำสั่งด้วย
Me.tagIMM = strTAG


วิธีนี้เป็นการสร้างตัวแปรมาเก็บข้อมูลจาก text box ที่เราต้องการไว้ชั่วคราวและก็หลังจากนั้นก็เรียกกลับมาแสดงอีกครั้งได้ครับ เราแค่ลำดับเหตุการณ์การทำงานของคำสั่งที่เราเขียนไว้แค่นั้นเอง

โพสต์นี้ได้รับคำขอบคุณจาก: ชวลิต เสนะสุทธิ

หน้า: [1] 2