แสดงกระทู้

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 - Un

หน้า: [1] 2 3 4 ... 10
1
ยังมีอีกหลายอาขารย์ที่หายไปครับ แต่ผมเชื่อว่าท่านยังเข้ามาอ่าน และเห็น ว่ามีคนมาตอบอยู่ เลยอาจจะไม่ได้มาตอบครับ

ผมส่งไฟล์ให้หลังไมค์แล้วนะครับ มันมีชื่อบุคคลอื่นอยู่ด้วย เลยไม่ได้โพสข้องหน้า

ขอบพระคุณอาจารย์มากครับ

2
ช่วงระหว่างรออาจารย์ตอบ
ผมลองทำแบบที่อาจารย์บอกเลยครับ(เขียนโคตไม่เป็น)
โดยใช้ Dloookup Dcount Dmax ในคิวรีที่ทำขึ้น
ขั้นตอนที่ทำคือ สร้างคิวรีกำหนดค่าต่างๆ
เปิดฟอรมขึ้นมา เมื่อเลือก คอนโทลตามเงื่อนไข
มันจะไปอ่านค่าในคิวรี มาใส่ค่าให้ในตารางครับ

ตอนแรกคิดว่าไม่มีคนตอบ เลยค่อยๆ ทำไป สังเกตุเห็น
อาจารย์ ไม่มาตอบใครด้วย จึงคิดว่าอาจารย์ไม่ว่าง
เลยลองทำดูในแบบที่พอทำได้ แต่ก็อยากทำแบบเป็นโคต
ว่ามันจะเขียนยังงัยครับ เลยรออาจารย์มาตอบ

3


ถ้ามีรายการใน 1 วัน SendCardEndNo จะรันวันละ 1 เลข
SendCardNo จะรันตามจำนวน Cashier คือใน 1 วัน
Cashier คนแรก จะรันแรก 1 พอคนอื่นมาบันทึก ก็จะเป็นเลขต่อไป คือ 2
แต่ถ้าคนเก่ามาบันทึกในวันเดิม ก็จะรันแรกเดิมของเค้า
วันต่อไป SendCardEndNo ก็จะรันต่อไป
SendCardNo ก็รันต่อไป ตามรูปตัวอย่างเลยครับ

เขียนโคตไม่ถูก ขอความกรุณาครับ

4
ขอบคุณมากๆ เลยครับ ใช่ตัวนี้เลยครับ

5
ใครโหลดโปรแกรมอ่านบัตรประชาชน ของ
Awara Thailand ตัวนี้ >> THIDSMCReaderV1.exe
ขอหน่อยครับ พอดีพอดีโหลดไว้แล้วมันหายไป

6
ห้อง MS Access / : คำสั่ง yesNoCancel
« เมื่อ: 16 มี.ค. 64 , 15:59:14 »
ฟังชันก์ IF มันไม่ยาก แต่มันจะดู งงงง
เนื่องจากมันมี 3 ตัวเลือก ยิ่ง งง ไปอีก
เวลาทำเราต้องทำเป็นชุดๆ
ชุดแรก มันจะมีตัวเลือกที่เมื่อเราเลือก NO
ก็เอาชุดที่ 2 ไปใส่ที่ NO ชุดต่อไปก็เหมือนกัน
แต่ที่คุณทำมันปนกันไปหมด อาจเพราะยังไม่เข้าใจ
ตัวรายงานที่ให้พิมพ์ ผมอาจจะเลือกผิดนะครับไปสลับกลับเอง

โค๊ด: [Select]
Dim RetValue As Variant, rst As String, rst2 As String
        RetValue = MsgBox("ต้องการพิมพ์ใบแสดงตนเพื่อลงบัญชีทหารทหารกองเกิน (แบบ สด.44) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "Un")
        Select Case RetValue
                    Case 6 'yes
                            DoCmd.OpenReport "SD44", acViewprint, , "[ID]=[Forms]![history].[ID]"
                    Case 7 'No
                    rst = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน (แบบ สด.1) ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "Un")
                            If rst = vbYes Then
                                    DoCmd.OpenReport "SD1", acViewprint, , "[ID]=[Forms]![history].[ID]"
                            ElseIf rst = vbNo Then
                                    rst2 = MsgBox("ต้องการพิมพ์บัญชีทหารกองเกิน ด้านหลัง ( แบบ สด.1)ใช่หรือไม่", vbYesNoCancel + vbDefaultButton3, "Un")
                                            If rst2 = vbYes Then
                                                    DoCmd.OpenReport "SD1", acViewprint, , "[ID]=[Forms]![history].[ID]"
                                            ElseIf rst2 = vbNo Then
                                                    DoCmd.OpenForm "certificate"
                                            Else
                                                    Exit Sub
                                            End If
                            Else
                                    Exit Sub
                            End If
                    Case 2 'Cancle
                            ''''
        End Select

7
ห้อง MS Access / : คำสั่ง yesNoCancel
« เมื่อ: 13 มี.ค. 64 , 11:32:07 »
มันก็แค่ เอาขั้นตอนทั้งหมดมาใส่ไว้ตรงที่เลือก

ผมขอเาของ อ.Chai มาใส่นะครับ ขั้นต่อไปอีก ลองทำดูครับ

โค๊ด: [Select]
Dim RetValue As Variant, rst As String
        RetValue = MsgBox("...ใส่เนื้อหาที่แจ้ง", vbYesNoCancel + vbDefaultButton3, "Un")
        Select Case RetValue
                    Case 6 'yes
                            MsgBox "คำสั่งพิมพ์ข้อมูล", vbOKOnly, "Un"
                    Case 7 'No
                    rst = MsgBox("...เนื้อหาที่แจ้งขั้นที่ 2", vbYesNoCancel + vbDefaultButton3, "Un")
                            If rst = vbYes Then
                                    MsgBox "คำสั่งพิมพ์ข้อมูล", vbOKOnly, "Un"
                            ElseIf rst = vbNo Then
                                    MsgBox "ทำขั้นตอนที่2", vbOKOnly, "Un"
                            Else
                                    Exit Sub
                            End If
                    Case 2 'Cancle
                            ''''
        End Select

8
ห้อง MS Access / : คำสั่ง yesNoCancel
« เมื่อ: 11 มี.ค. 64 , 11:26:50 »
แบบนี้รึป่าวครับ

โค๊ด: [Select]
Dim RetValue As Variant
        RetValue = MsgBox("...ใส่เนื้อหาที่แจ้ง", vbYesNoCancel + vbDefaultButton3, "Un")
        Select Case RetValue
                    Case 6 'yes
                            MsgBox "คำสั่งพิมพ์ข้อมูล", vbOKOnly, "Un"
                    Case 7 'No
                            MsgBox "ขั้นตอนต่อไป", vbOKOnly, "Un"
                    Case 2 'Cancle
                            ''''
        End Select

9
ังั้นแก้เป็นแบบนี้

โค๊ด: [Select]
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Cancel = ([Page] <> [Pages])
End Sub

ให้ยกเลิกการแสดง ถ้าไม่ใช่หน้าสุดท้าย

ว้าวววว  สุดยอดเลยอาจารย์ รักอาจารย์จริงๆ

ขอบคุณคราบบบบบบ

10
หมายถึงในหน้ารายงานให้แสดง ข้อมูลในส่วน PageFooter เฉพาะหน้าสุดท้ายใช่หรือเปล่า
ถ้าใช้ลองทำกำหนดแบบนี้

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Me.textboxName.Visible =(Me.Page = Me.Pages)
End if


TextboxName คือ ชื่อเท็กบ๊อกที่แสดงข้อมูลใน PageFooter
เวลาสั่งปริ้น ในหน้าสุดท้ายจะแสดงข้อมูลของ textboxName
อาจารย์ครับ ใน PageFooterSection มีคอลโทลหลายตัว มันสามารถ สั่งทั้งส่วนได้มั้ยครับ

11
เมื่อสั่งพิมพ์ให้ PageFooterSection พิมพ์เฉพาะหน้าสุดท้าย

ใช้คำสั่งอย่างไรครับ

12
อยู่ตรง ตั้งค่า > การพิสูจน์อักษร มันจะมีปุ่ม ตัวเลือกการแก้ไขอัตโนมัติ
เรียบร้อย ขอบคุณครับอาจารย์

13
ผมพิมพ์คำว่า เอนก Access มันแก้ไขให้เอง เป็น อเนก
ปกติก็ไปแก้ที่การตั้งค่า แต่พอเป็น Access คั้งแต่ 2010 ขึ้นไป แก้ที่ตรงไหนครับ
ผมลองไปที่ ตั้งค่า > ฐานข้อมูลปัจจุบัน > ตัวเลือกการแก้ไขชื่อัตโนมัติ คลิกที่กล่องคำสั่งออก
แล้วปิดโปรแกรม เปิดใหม่ แต่มันไม่หายครับ ใครรู้ช่วยหน่อยครับ

14
ห้อง MS Access / : Export ข้อมูลจาก MS Access
« เมื่อ: 09 มิ.ย. 63 , 13:31:15 »
คลิกขวาที่ตารางหรือ Query นั้น แล้วเลือกส่งออกเป็น Text ครับ

15
เหมือนว่าระบบจะไม่ให้แก้ข้อมูลเก่าเป็นฟิลด์คำนวนครับ ต้องเพิ่มแถวข้อมูลใหม่ > Calculated > ใส่หรือพิมพ์สูตรทึีต้องการคำนวนเช่น [a ]+[b ] / เสร็จสิ้น
ไม่เคยรู้ว่าทำแบบนี้ได้มาก่อนเลย ขอบคุณครับ

หน้า: [1] 2 3 4 ... 10