แสดงกระทู้
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.
ขอโทษนะคะ รบกวนอีกซักรอบนะคะ คือ ลองเเก้ดูเเล้ว มันไม่ได้อ่ะค่ะ สงสัยจะเขียนอะไรผิด เเหะๆ >..<
Private Sub DtDateBorrow1_AfterUpdate()
If Not IsNull(Me.DtDateBorrow1) Then
Me.DtDateBorrowBack = Me.DtDateBorrow1
Me.DtDateBorrowOut = Me.DtDateBorrow1
End If
End Sub
SELECT (Select count(*) From Table1 as a Where a.ID <= Table1.ID) AS [Running No], Table1.ID AS RID
FROM Table1;
2.ที่ RecordSource ของ Report ใส่โค้ดนี้เข้าไปSELECT Table1.ID, Table1.[Product Name], Table1.Quantity, QryID.[Running No], *
FROM Table1 INNER JOIN QryID ON Table1.ID = QryID.RID;
=IIf([Running No] Mod 40=0,40,[Running No] Mod 40)
select Status,Cname,Surname,Member,Announce from [Buddist Association๗๖-๕๐]
Union all
select Status,Cname,Surname,Member,Announce from [Buddist Association๕๑-๖๐]
Union all
select Status,Cname,Surname,Member,Announce from [Buddist Association๖๑]
Order By Member,Announce;
Private Sub Command1_Click() 'เลือก Event ที่ต้องการครับ
Dim ctl As Control
For Each ctl In Me
If ctl.ControlType = acTextBox Then
If Left$(ctl.Name, 10) = "txtGroup1A" Then 'Left 10 เพราะต้องการเช็คตัวอักษรทางซ้าย 10 ตัวซึ่งเป็นชื่อที่เหมือนกันของกลุ่ม
ctl.Visible = False 'หรือ ctl.Visible = true หรือจะสร้างเงื่อนไขให้กลุ่มอื่นๆด้วยก็ได้เช่นกัน
End If
End If
Next ctl
End Sub
Private Sub Command1_Click()
Dim ctl As Control
For Each ctl In Me
If ctl.Tag = "Group1" Then
ctl.Visible = False
End If
Next ctl
End Sub
