จะป้อนข้อมูลในฟอร์ม สมมติมี ฟิลด์ที่1ชื่อ shop   และฟิลด์ที่ 2 ชื่อ  bill_no  ต้องการบังคับให้การป้อนข้อมูลทุกครั้ง ต้องผ่านการคีย์ข้อมูลที่ ฟิลด์_shop ให้เสร็จก่อน จึงไปฟิลด์ bill_no 

ได้แล้วครับไม่รู้ อจ แก้ไขตรงไหนบ้าง ใช้ฟอร์มผมก็ยังมี  "error 438"  ขอบพระคุณ

ทำแล้ว  ขึ้น error ตามรูป ครับ

จะทำได้อย่างไร เมื่อฟอร์มการชำระหนี้  มีการแสดงส่วนบิลที่ค้างชำระ เมื่อต้องการตัดบิลใบไหน ให้ clickที่ฟิลด์อินวอยซ์ แล้วไปปรากฏที่ table ของฟอร์มเก็บบิลที่ชำระ

เขียนโปรแกรม แยกฐานข้อมูล โดย link table manager ถ้าจะเอาส่วนที่เป็นฐานข้อมูลไว้ที่ storage และเวลาจะชั้นงานนอกวง คนละ  wan  สร้าง userให้พนักงานแต่ละคนชั้น     …..ไม่ทราบว่าใครเคยใช้งานลักษณะนี้ไหมครับ  ขอ review ครับ หรือแนะนำให้ทำวิธี อื่นๆๆ

Private Sub Text185_DblClick(Cancel As Integer)
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String


strDate = "IV2" & "" & (Format(date, "yy-mm-dd"))

If Me.voucher_s_id = "" Or IsNull(Me.voucher_s_id) Then
        If IsNull(DMax("Val(Mid([voucher_s_id],13))", "voucher_s", "Left([voucher_s_id],11) = '" & strDate & " '")) Then
            Me.voucher_s_id = strDate & "-" & "01"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([voucher_s_Id],13))", "voucher_s", "Left([voucher_s_id],11) = '" & strDate & " '")
            intMax = intMax + 1
            Me.voucher_s_id = strDate & "-" & Format(intMax, "00")
            Debug.Print "1"
        End If

End If

End Sub
Sub ForIsOtherday()
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String
strDate = "IV2" & "" & (Format(date_sale, "yy-mm-dd"))
    If Me.voucher_s_id = "" Or IsNull(Me.voucher_s_id) Then
        If IsNull(DMax("Val(Mid([voucher_s_id],12))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")) Then
            Me.voucher_s_id = strDate & "-" & "01"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([voucher_s_Id],12))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")
            intMax = intMax + 1
            Me.voucher_s_id = strDate & "-" & Format(intMax, "00")
            Debug.Print "1"
        End If

End If
End Sub

Private Sub Text185_Enter()
'Private Sub bill_no_Enter()
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String


strDate = "IV2" & "" & (Format(date, "yy-mm-dd"))

If Me.voucher_s_id = "" Or IsNull(Me.voucher_s_id) Then
        If IsNull(DMax("Val(Mid([voucher_s_id],12))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")) Then
            Me.voucher_s_id = strDate & "-" & "01"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([voucher_s_Id],12))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")
            intMax = intMax + 1
            Me.voucher_s_id = strDate & "-" & Format(intMax, "00")
            Debug.Print "1"
        End If

End If

End Sub

Private Sub voucher_s_id_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub voucher_s_id_DblClick(Cancel As Integer)
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String


strDate = "IV2" & "" & (Format(date, "yy-mm-dd"))

If Me.voucher_s_id = "" Or IsNull(Me.voucher_s_id) Then
        If IsNull(DMax("Val(Mid([voucher_s_id],10))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")) Then
            Me.voucher_s_id = strDate & "-" & "01"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([voucher_s_Id],10))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")
            intMax = intMax + 1
            Me.voucher_s_id = strDate & "-" & Format(intMax, "00")
            Debug.Print "1"
        End If

End If

End Sub

Private Sub voucher_s_id_Enter()
'Private Sub bill_no_Enter()
Dim strDate As String
Dim intNum As Integer, intMax As Integer
Dim strSuffix As String


strDate = "IV2" & "" & (Format(date, "yy-mm-dd"))

If Me.voucher_s_id = "" Or IsNull(Me.voucher_s_id) Then
        If IsNull(DMax("Val(Mid([voucher_s_id],10))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")) Then
            Me.voucher_s_id = strDate & "-" & "01"
            Debug.Print "1"
        Else
            intMax = DMax("Val(Mid([voucher_s_Id],10))", "voucher_s", "Left([voucher_s_id],10) = '" & strDate & " '")
            intMax = intMax + 1
            Me.voucher_s_id = strDate & "-" & Format(intMax, "00")
            Debug.Print "1"
        End If

End If

End Sub
************
เพิ่มเงื่อนไข
จาก code นี้เลขบิลที่ได้จาก voucher_s_id จะเป็น  IV2YY-MM-DD-01   รันนิ่ง 02..03..  อ้างอิงตาม date_sale
เรียน อจ จะเพิ่มโค๊ด "กดปุ่ม" ถามว่าเป็น  สำนักงานใหญ่ (เลข 1) หรือสาขา (เลข 2) ถ้าเป็น สำนักงานใหญ่ เลขที่บิล จะเป็นชุด IV1YY-MM-DD-01 ถ้าเป็นสาขา เลขที่บิล จะเป็นชุด IV2YY-MM-DD-01 

1. จัดเรียงลำดับวันที่ใน คิวรี่ ไม่ได้ หาสาเหตุไม่ได้
2. รูปแบบวันที่เปลี่ยนไปจาก short date ไปเป็น long date จะแก้ได้อย่างไร

จะโอนข้อมูลที่ีมีการขาย ไปไว้ใน table stock
dbs.Execute "INSERT INTO stock ( voucher_id,stock_date,goods_id,.....) SELECT fsale.voucher_s_id,fsale.date_sale,fsale.goods_id,... FROM fsale WHERE voucher_s_id = '" & Me.voucher_s_id & "'"
ที่ทำอยู่ตอนนี้ คือเอาcodeคำสั่งนี้ไปไว้ที่ command ดักผู้ใช้ไว้ 3 แห่ง คือ  add new,save,และ exit
ทำให้ป้อน 1 record ก็ต้องบันทึก หรือ add new
ขอคำแนะนำ อจ มีวิธีที่ดีกว่านี้ไหมครับ คล้ายกับว่าโอนข้อมูลไป stock ทีเดียว