สวัสดีค่ะ เรากำลังทำการบันทึกข้อมุลโดยมีโครงสร้างโปรแกรม คือ มีฟอร์มย่อย 1 ฟอร์มในฟอร์มหลักค่ะ
ตัวอย่างโปรแกรมนะคะ



ต่อไปเป็นโค้ดที่ใช้นะคะ

Option Compare Database
Option Explicit
Dim Prefix As String
Dim vLast As Variant
Dim iNext As Integer
Dim msg As Integer
Dim Saved As Boolean
Dim runNo As Variant
Dim tradeID As String
Dim doc_id As String

Private Sub C_cancelF_Click()
        DoCmd.OpenForm "Home", acNormal, "", "", , acNormal
        DoCmd.Close acForm, "form_proRequest"
End Sub


ส่วนนี้ไม่มีอะไรค่ะ แค่โค้ดกำหนดค่าตัวเลขเอกสารเฉยๆค่ะ
Private Sub DistChannel_AfterUpdate()
    If Not IsNull(Me.DistChannel.Value) Then
        Prefix = Me.DistChannel.Value
        'find max value of runing_NO in table ProRequest
        vLast = DMax("[runing_NO]", "[ProRequest]", "[runing_NO] LIKE '" & Format([proReq_date], "yy\*\'"))
        If IsNull(vLast) Then
            iNext = 1
        Else
            vLast = Val(Right(vLast, 3))
            vLast = vLast + 1
            iNext = vLast
        End If
        runNo = Format([proReq_date], "yy") & Format(iNext, "000")
        Me.run_Number = runNo
        Me.proReq_ID = Prefix & Me.run_Number
        'set button enable
        Me.next_btn.Enabled = True
        Me.save_btn.Enabled = True
    Else
        Me.run_Number = ""
        Me.proReq_ID = ""
        'set button enable disable
        Me.next_btn.Enabled = False
        Me.save_btn.Enabled = False
    End If

End Sub


ส่วนตรงนี้เป็น Table ของ sub form ค่ะ Form ค่ะ
Private Sub Form_Current()
'Set Me.sub_proRequrest_Detail.Form.Recordset = CurrentDb.OpenRecordset("SELECT * FROM [proRequest Detail] WHERE proReq_ID = '" & Me.proReq_ID & "'", dbOpenDynaset, dbAppendOnly)
End Sub

Private Sub Form_Dirty(Cancel As Integer)
    If Me.Dirty = False Then
        DBEngine.BeginTrans
    End If
End Sub

ส่วนตรงนี้เป็น Table ของ Main Form ค่ะ
Private Sub Form_Open(Cancel As Integer)
Set Me.Recordset = CurrentDb.OpenRecordset("SELECT * FROM ProRequest", dbOpenDynaset, dbAppendOnly)
End Sub


ปุ่มกด save ซึ่งสามารถทำงานได้ แต่เมื่อกดเพิ่มข้อมูลในsubform แล้ว ไม่สามรถบันทึกได้ค่ะ เพิ่งแต่ที่ตรงนี้เยอะเพระต้องการบังคับใส่ข้อมูลเฉยๆค่ะ
Private Sub next_btn_Click()
On Error GoTo Save_Error
        If IsNull(Me.DistChannel) Then
        MsgBox "กรุณาเลือกช่องทางการขาย (1)", vbCritical
        Me.DistChannel.SetFocus
        Exit Sub
    End If
    If IsNull(Me.forecast_dist) Then
        MsgBox "กรุณาเลือกช่องทางการขาย (2)", vbCritical
        Me.forecast_dist.SetFocus
        Exit Sub
    End If
    If IsNull(Me.Empp_ID) Then
        MsgBox "กรุณาเลือกพนักงานขาย", vbCritical
        Me.Empp_ID.SetFocus
        Exit Sub
    End If
    If IsNull(Me.proReq_name) Then
        MsgBox "กรุณาใส่ชื่อกิจกกรม", vbCritical
        Me.proReq_name.SetFocus
        Exit Sub
    End If
    If IsNull(Me.proReq_start_date) Then
        MsgBox "กรุณากรอกวันที่เริ่มโปรโมชั่น", vbCritical
        Me.proReq_start_date.SetFocus
        Exit Sub
    End If
    If IsNull(Me.proReq_end_date) Then
        MsgBox "กรุณากรอกวันที่สิ้นสุดโปรโมชั่น", vbCritical
        Me.proReq_end_date.SetFocus
        Exit Sub
    End If
    If IsNull(Me.proReq_date_sum) Then
        MsgBox "กรุณากรอกวันที่สรุปรายการกับฝ่ายขาย", vbCritical
        Me.proReq_date_sum.SetFocus
        Exit Sub
    End If
    If IsNull(Me.proReq_date_confirm) Then
        MsgBox "กรุณากรอกวันที่ฝ่ายขายยืนยันรายการ", vbCritical
        Me.proReq_date_confirm.SetFocus
        Exit Sub
    End If
    If (Me.C_discoubt = False) And (Me.C_exchange = False) And (Me.C_getfree = False) And (Me.C_set = False) And (Me.C_spacial = False) And (Me.C_other = False) Then
        MsgBox "กรุณาเลือกประเภทกิจกรรม", vbCritical
        Exit Sub
    End If

    If IsNull(Me.FrontMargin) Then
        MsgBox "กรุณากรอก Front margin/ส่วนลด", vbCritical
        Me.FrontMargin.SetFocus
        Exit Sub
    End If
    Me.Status_ID = 81
   CurrentDb.Execute "INSERT INTO proAssess (proAssess_ID, Sale_EMP_ID) VALUES ('" & Me.proReq_ID & "' , '" & Me.Empp_ID & "')"
    DBEngine.CommitTrans
    doc_id = Me.proReq_ID
    DoCmd.GoToRecord , , acNewRec
    DoCmd.OpenForm "Efrm_proAssess", acNormal, , "[proAssess_ID]='" & doc_id & "'"
    DoCmd.Close acForm, "form_proRequest"
    Exit Sub
   
Save_Error:
DBEngine.Rollback
MsgBox "error จ้าาาา", vbOKOnly
End Sub


ตรงนี้เป็น โค้ดสำหรับการใส่ข้อมูลในเอกสารเฉยๆค่ะ
Private Sub proReq_date_confirm_BeforeUpdate(Cancel As Integer)
minimum_date = DateAdd("m", -2, Me.proReq_start_date)
    If (Me.proReq_date_confirm >= minimum_date) Then
        MsgBox "วันที่ไม่ถูกต้อง", vbCritical
        Cancel = True
    End If
End Sub
Private Sub proReq_date_sum_BeforeUpdate(Cancel As Integer)
    If Me.proReq_date_sum <= Me.proReq_date Then
        MsgBox "วันที่ไม่ถูกต้อง", vbCritical
        Cancel = True
    End If
End Sub

Private Sub proReq_end_date_BeforeUpdate(Cancel As Integer)
    If (Me.proReq_end_date < Me.proReq_start_date) Then
        MsgBox "วันที่ไม่ถูกต้อง", vbCritical
        Cancel = True
        Me.proReq_end_date.Undo
    End If
End Sub


ตรงนี้เป็น โค้ดสำหรับการใส่ข้อมูลในเอกสารเฉยๆค่ะ
Private Sub proReq_start_date_AfterUpdate()
    Me.proReq_date_confirm = DateAdd("m", -2, Me.proReq_start_date)
End Sub

ปุ่มกด save ซึ่งสามารถทำงานได้ แต่เมื่อกดเพิ่มข้อมูลในsubform แล้ว ไม่สามรถบันทึกได้ค่ะ
Private Sub save_btn_Click()
On Error GoTo Save_Error
    If IsNull(Me.DistChannel) Then
        MsgBox "กรุณาเลือกช่องทางการขาย (1)", vbCritical
        Me.DistChannel.SetFocus
        Exit Sub
    End If
    If IsNull(Me.proReq_start_date) Then
        MsgBox "กรุณากรอกวันที่เริ่มโปรโมชั่น", vbCritical
        Me.proReq_start_date.SetFocus
        Exit Sub
    End If
    If IsNull(Me.proReq_end_date) Then
        MsgBox "กรุณากรอกวันที่สิ้นสุดโปรโมชั่น", vbCritical
        Me.proReq_end_date.SetFocus
        Exit Sub
    End If
    Me.Status_ID = 81
    DBEngine.CommitTrans
    Saved = True
    MsgBox "บันทึกแล้ว", vbOKOnly
    Exit Sub
   
Save_Error:
DBEngine.Rollback
Saved = False
MsgBox "error จ้าาาา", vbOKOnly
End Sub


สิ่งเราต้องการคือการกด save แล้วมันบันทึกตารางค่ะ แต่ทำไม่ได้ค่ะ ช่วนด้วยนะคะ งมมา 3 วันแล้วค่ะ
ส่วนด้านล่างเป็น ref ที่ดูมาเป็นไกด์ค่ะ
https://codekabinett.com/rdumps.php?Lang=2&targetDoc=how-to-access-transaction

ตอบคำถามค่ะ การกำหนดขนาดขอข้อมูลนั้น เป็น double ค่ะ โดยขั้นตอนการทำงานนั้น เป็นการให้โปรแกรมคำนวณค่า sum จาก continuous form แล้วเอาค่า ที่ได้นี้ไปเป็นตัวหารของ data ที่ dlookup มาจากใน table อีกทีค่ะ

ตัวอย่าง 1.  กำหนดให้ a = ค่าที่ dlookup มาจาก table
          2.  กำหนดให้ b = ค่า sum ที่ได้จาก textbox ใน form

ขั้นตอนการดำเนินการของโปรแกม         (a/b)*100

ตอนนี้จากที่สังเกตุนะคะ เหมือนว่า b จะมาค่าเป็น 0 ค่ะ เวลาที่ส่งให้โปรแกรมทำงานเอง ดังนั้น เวลาที่ เอามาหารกับ a จึงเกิด error ขึ้น เพราะ ไม่สามารถมีเลขตัวใดที่หารด้วย 0 ได้ค่ะ

แต่

เวลาที่debug โปรแกรมไปด้วย แม้จะใช้ตัวชุดข้อมูลเดียวกัน แต่ b จะไม่เป็น 0 ค่ะ


ซึ่งได้ลองทำการหน่วงเวลาแล้วแต่ยังไม่ได้ผลค่ะ

ถ้า client 1 แก้ไข record เดียวกัน กับ client 2 โดยทั่วไปจะขึ้น error write conflict ค่ะ ซึ่ง error นี้จะให้เราเลือกว่า Copy to Clipboard หรือ Drop Changes ซึ่งไม่อนุญาติให้ client ที่มาทีหลังแก้ไขค่ะ

ตามนี้เลยค่ะ

อ้ออ เข้าใจแล้วค่ะ แต่ว่าไม่เกี่ยวกันค่ะ เพราะว่า ตัวโค้ดมีเท่านั้นเลยค่ะ ลองสร้าง textbox อีกตัวขึ้นมาแล้วใส่ค่าที่ทศนิยมเยอะๆลงไป ไม่เกิด error ค่ะ ถ้าเป็นเป็น textbox ตัวอื่น แต่ถึงอย่างนั้นก็ไม่รู้ว่าจะพลิกแพลงแก้ปัญหาอย่างไรดีค่ะ

ตอบคำถามนะคะ
1. datatype เป็น double format เป็น percent กำหนด จุดทศนิยม 2 ตำแหน่งค่ะ
2.form ที่คำนวนอยู่ในฟอร์มย่อยอีกทีค่ะ
3. ลองแล้วค่ะ ยังขึ้นเหมือนเดิมค่ะ

รบกสรสอบถามค่ะ คือพอดีว่าจะเปลี่ยนสีตรง conditional formatting ใน cell ตามเงื่อนไขให้เป็น  style Bad ค่ะ แต่ไม่ทราบcode ว่าทำอย่างไรหาในเน็ตแล้วไม่เกิดผลเลยค่ะ

ปล.ลองเทียบสีปกติแล้วเพี้ยนค่ะ ซึ่งไม่ทราบว่าเพราะอะไรค่ะ

ขอบคุณมากค่ะ ทำได้แล้วค่ะ ช่วยได้มากจริงๆค่ะ

คืออยากให้query แสดงข้อมูลตามนี้ค่ะ
ถ้าเรามี table 1 และ table 2 ตามนี้
Table1
Id|Name |age
1 | Hill    | 3
2 | Golf   |
3 | Soya  | 5

Table2

Id|Name|age
1 | Hill   | 5
2 | Golf  | 4
3 | Soya |
4 | Jin    | 9


Query Results

Id|Name|age
1 | Hill   |5
2 | Golf  |4
3 | Soya |5

ต้องทำอย่างไรคะ ทางนี้ลอง Left Join แล้ว Union ค่าที่ออกมาซ้ำเป็น2 แถวค่ะเช่น

Id|Name|age
1 | Hill   |3
1 | Hill   |5
2 | Golf  |
2 | Golf  |4
3 | Soya |5
3 | Soya |


รบกวนผู้รู้ช่วยทีนะคะ