แสดงกระทู้
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.
หัดเขียนครับ ช่วยให้โคชที่จะไม่แสดงค่าจำนวนติดลบให้หน่อยครับทำงานบนฟอร์ม หรือ คิวรี่ ครับ
Sub AutoRunnumber()
Dim MaxNum As Integer
MaxNum = Nz(DMax("ID","tb_เลขจอง"))
If MaxNum = 0 Then
MaxNum = 1
Else
MaxNum = MaxNum + 1
End If
Me.ID = MaxNum
End Subทำไม่ได้ค่ะAutorun ไม่จำเป็นว่าจะใช้ Datatype แบบ AutoNumber อย่างเดียวครับ ใช้แบบ Number แทนก็ได้เหมือนกัน
เรา ต้องการให้ขึ้น Record ใหม่ แล้วให้เลขเป็น Autorun แล้วมันไม่ข้ามเลขค่ะ
ปกติถ้าลบ record ทิ้ง เลขที่เป็น Autorun จะรันข้ามไปเรย
1. ผมต้องการทำเลขบอกลำดับด้านหน้า Record บนคล้าย Continuous Form คล้ายๆกับ Running Sum บน Report จะมีวิธีการทำอย่างไร? (ตามภาพ)
Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
With frm.RecordsetClone
.Bookmark = frm.Bookmark
RowNum = .AbsolutePosition + 1
End With
Exit_RowNum:
Exit Function
Err_RowNum:
If Err.Number <> 3021& Then
Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
End If
RowNum = Null
Resume Exit_RowNum
End Function
ขั้นตอนที่ 2 สร้าง textbox ชื่อ No ที่ ControlSource ใส่ ว่า =RowNum([Form])
2. ผมทำช่องให้กรอกช่วงเวลาที่ต้องการค้นหา Record(Search by Date Rage) เอาไว้ครับ(ตามภาพ)แก้โค้ดเป็นแบบนี้ดูครับ ใช้การกำหนด Sql แทน แก้ชื่อ Form1 เป็นชื่อฟอร์มของคุณด้วยนะครับ
Sub Search()
Dim Sql As String
If IsNull(Me.txtDateFrom) Or IsNull(Me.txtDateTo) Then
MsgBox "Please enter the date range", vbInformation, "Date Range Required"
Me.txtDateFrom.SetFocus
Sql = "SELECT * FROM qryTransactions ORDER BY qryTransactions.TransactionsDate;"
Else
Sql = "SELECT * FROM qryTransactions WHERE (((qryTransactions.[TransactionsDate]) Between forms!Form1!txtDateFrom And forms!Form1!txtDateTo)) ORDER BY qryTransactions.TransactionsDate;"
End If
Me.Form.RecordSource = Sql
End Sub3. ผมต้องการให้แสดงผลลัพธ์ทั้งหมดที่ค้นหาได้ ตามภาพด้านบน จะมีแนวทางเขียนโค้ดอย่างไรผมสมมัติสร้าง textbox ไว้เก็บจำนวน Record ชื่อ txt_TotalRecordSearch
Sub Search()
Dim Sql As String
Dim FormRecCount As Long
If IsNull(Me.txtDateFrom) Or IsNull(Me.txtDateTo) Then
MsgBox "Please enter the date range", vbInformation, "Date Range Required"
Me.txtDateFrom.SetFocus
Sql = "SELECT * FROM qryTransactions ORDER BY qryTransactions.TransactionsDate;"
Else
Sql = "SELECT * FROM qryTransactions WHERE (((qryTransactions.[TransactionsDate]) Between forms!Form1!txtDateFrom And forms!Form1!txtDateTo)) ORDER BY qryTransactions.TransactionsDate;"
End If
Me.Form.RecordSource = Sql
Me.txt_TotalRecordSearch.ControlSource = "=Count(No)"
End Sub
Me.RecordSource = "SELECT Table1.ID, Table1.Close, Table1.Field1, Table1.Field2, Table1.Field3 FROM Table1 WHERE (((Table1.Close)=False));"
