แสดงกระทู้
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.
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
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
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
ังั้นแก้เป็นแบบนี้โค๊ด: [Select]Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Cancel = ([Page] <> [Pages])
End Sub
ให้ยกเลิกการแสดง ถ้าไม่ใช่หน้าสุดท้าย
หมายถึงในหน้ารายงานให้แสดง ข้อมูลในส่วน PageFooter เฉพาะหน้าสุดท้ายใช่หรือเปล่าอาจารย์ครับ ใน PageFooterSection มีคอลโทลหลายตัว มันสามารถ สั่งทั้งส่วนได้มั้ยครับ
ถ้าใช้ลองทำกำหนดแบบนี้
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
Me.textboxName.Visible =(Me.Page = Me.Pages)
End if
TextboxName คือ ชื่อเท็กบ๊อกที่แสดงข้อมูลใน PageFooter
เวลาสั่งปริ้น ในหน้าสุดท้ายจะแสดงข้อมูลของ textboxName
อยู่ตรง ตั้งค่า > การพิสูจน์อักษร มันจะมีปุ่ม ตัวเลือกการแก้ไขอัตโนมัติเรียบร้อย ขอบคุณครับอาจารย์
เหมือนว่าระบบจะไม่ให้แก้ข้อมูลเก่าเป็นฟิลด์คำนวนครับ ต้องเพิ่มแถวข้อมูลใหม่ > Calculated > ใส่หรือพิมพ์สูตรทึีต้องการคำนวนเช่น [a ]+[b ] / เสร็จสิ้นไม่เคยรู้ว่าทำแบบนี้ได้มาก่อนเลย ขอบคุณครับ
