แสดงกระทู้
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.
ถ้าอยากใช้ DAO ก็เพิ่ม reference ตัวนี้เข้าไป
สร้างใบกำกับภาษีอย่างง่ายสร้างตารางรายชื่อลูกค้า,รายการสินค้า,รายการบิล-ใบกำกับภาษี
ไม่ต้องมีคิวรี่ก็ได้ใช่มั๊ยคะไม่มีคิวรีนอกแต่มาทำคิวรี่ในตัวหน้าฟอร์มหรือรีพอร์ทได้ครับ
กำลังศึกษา โดยเริ่มจาก 0 ตอนนี้พอเข้าบ้างเล็กน้อยศึกษาแนวทางจากอาจารย์ Access-Creator ดูครับ https://youtube.com/playlist?list=PLwzcDwbNPuZdgYg19uxwlMcPan10_-AEo
ลองใส่โค้ดดูแล้วครับ โค้ดไม่ทำงานครับลองแก้ rst!Status เป็น rst!studstatus ครับ
คำตอบโค๊ด: [Select]Private Sub Select_AfterUpdate()
CurrentDb.Execute "UPDATE RssmNew_filter SET complete = " & Me.Select & " WHERE เลขที่ใบเบิก = '" & Me.IDNumber & "'", dbFailOnError
Me.Recalc
End Sub
| RssmNew_filter | --> ชื่อตารางหรือคิวรี่ที่ซัพฟอร์มดึงมา | |
| Me.IDNumber | --> ชื่อกล่องข้อมูลบนฟอร์มหลักที่ใช้กรองข้อมูลซัพฟอร์ม(จากภาพท่านกรองจากกล่อง Iso No. ใช่หรือไม่?) | |
| เลขที่ใบเบิก | --> ชื่อฟิวล์ในตารางซัพฟอร์มที่รับคำสั่งกรองมาจากข้อบน ^^^^^ | |
| Me.Select | --> me.cmb_package(ชื่อกล่องที่ต้องการดึงบนหน้าฟอร์ม) | |
| complete | --> j_testloop(ชื่อฟิวล์ในตารางที่ต้องการให้นำข้อมูลมาวาง) |
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
Private Sub Select_AfterUpdate()
CurrentDb.Execute "UPDATE RssmNew_filter SET complete = " & Me.Select & " WHERE เลขที่ใบเบิก = '" & Me.IDNumber & "'", dbFailOnError
Me.Recalc
End Sub
ผมคิดว่าถ้าต่อตรงจากคอมพิวเตอร์ระบบมันจะอ้างอิงจากมาตราส่วนหน้าจอเฉยๆนะครับเช่นจอคอมฯตั้งใว้ที่ 1600x900 จอทีวีก็ตั้ง 1600x900 เท่ากันมันก็จะแสดงผลออกมาเต็มจอเท่ากันแต่ตัวใหญ่ขึ้นเท่านั้นนั่นล่ะครับ (คอมฯ20นิ้วตัว A=10cm. / ทีวี40นิ้วตัว A=20cm.)
Option Compare Database
Private Sub SLBoss1_Click()
Call unOption
Me.SLBoss1 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30021.jpg"
End Sub
Private Sub SLBoss2_Click()
Call unOption
Me.SLBoss2 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30017.jpg"
End Sub
Private Sub SLBoss3_Click()
Call unOption
Me.SLBoss3 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30015.jpg"
End Sub
Private Sub SLBoss4_Click()
Call unOption
Me.SLBoss4 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30011.jpg"
End Sub
Private Sub SLBoss5_Click()
Call unOption
Me.SLBoss5 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30006.jpg"
End Sub
Sub unOption()
'ชุดคำสั่งเพี่อให้ตัวเลือกทั้งหมดถูกยกเลิก
Dim ctl As Control
For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acOptionGroup, acOptionButton
ctl.Value = Null
Case acCheckBox
ctl.Value = False
End Select
Next
Set ctl = Nothing
End Sub
