กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
357 1
URL.หัวข้อ /
URL
รบกวนแนะนำวิธีการใช้งาน และจุดประสงค์ของ Code ด้วยครับ
ผมได้ Code มาจาก Website ต่างประเทศครับ ดังนี้
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("DateValidation")
If rs.RecordCount = 0 Then
rs.AddNew
rs!deaddate = Date + 31
rs.Update
ElseIf rs(1).Value < Date Then
MsgBox "this program has exceeded it 31 day trial period"
DoCmd.Close
End If
แต่ผมไม่รู้ว่าจุดประสงค์ และวิธีการใช้งาน
รบกวน อ.สุภาพ อ.BADMAN และเพื่อนๆ แนะนำด้วยครับ
ขอบพระคุณครับ
Suchat
ชลบุรี
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("DateValidation")
If rs.RecordCount = 0 Then
rs.AddNew
rs!deaddate = Date + 31
rs.Update
ElseIf rs(1).Value < Date Then
MsgBox "this program has exceeded it 31 day trial period"
DoCmd.Close
End If
แต่ผมไม่รู้ว่าจุดประสงค์ และวิธีการใช้งาน
รบกวน อ.สุภาพ อ.BADMAN และเพื่อนๆ แนะนำด้วยครับ
ขอบพระคุณครับ
Suchat
ชลบุรี
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.2825s
โดยที่ ตรวจสอบตัวแปร rs(1) คงเป็น ค่า Now()
กับ ค่าวันที่ใช้งาน+31 วัน
หรือเปล่า ?????