1
ห้อง MS Access / : อยากให้ ก่อนที่จะกดปุ่มพิมพ์รายงาน สถานะต้องได้รับอนุมติก่อน
« เมื่อ: 23 ธ.ค. 65 , 14:29:21 »
ตามนี้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: MAKI
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.
Option Compare Database
Option Explicit
Dim A() As Boolean
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Me.lineUpper.Visible = Me.txtReason.IsVisible
If Me.Pages <> 0 Then Me.lineLower.Visible = A(Me.txtSeq)
End Sub
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If Me.Pages = 0 Then
ReDim Preserve A(Me.txtSeq)
A(Me.txtSeq) = True
End If
End Sub
คือเราสร้าง จุดของตัวเอง ใน google map แล้วดึงมาลงบนฟรอม ให้แสดงไว้ดูเฉย
อยากจะเอา google map นั้นไปไว้ใน report
Sub AutoRunnumber()
Dim MaxNum As Integer
MaxNum = Nz(DMax("ID", "tb_คำสั่ง", "[ปีงบ] = '" & CStr(Format(วันที่ลง, "YYYY")) & "'"))
If MaxNum = 0 Then
MaxNum = 1
Else
MaxNum = MaxNum + 1
End If
Me.ID = MaxNum
End Sub
อาจารย์คะ หนูบอกความต้องการผิดค่ะ![]()
ที่ต้องการคือ ถ้า txttime มากกว่า 9.00 Am แต่ไม่เกิน 1.00 Pm then
รบกวนอาจารย์อีกครั้งนะคะ![]()
ล็อคแล้วคะ แต่ไม่สามารถ รับค่าจากเครื่องอ่านบัตรได้