สวัสดีครับ

สอบถามหน่อยครับ พอดีผมต้องการเขียนโค้ด VBA AfterUpdate Combobox บน Unbound ครับ โดยหลังจาก Update ให้เช็ค Row ในตาราง หากค่า CongDiseaseID(Datatype Number) และ PersonID(Datatype Text) ในตาราง tblCongDiseaseDetails ตรงกับที่กรอกบน Form
แล้วอยู่ใน Row เดียวกันทั้งสองค่า ให้ฟ้องขึ้นมาว่าค่าซ้ำ ไม่สามารถกรอกได้

เช่น

บนตารางกรอก PersonID(Text) = 000001, CongDiseaseID(Number)= 1

PersonID          CongDiseaseID
000001                     1
567891                     10
654521                     9

Record แรกตรงกับที่กรอกบนตาราง ต้องการให้ PopUp เด้งฟ้องทันทีว่าซ้ำครับ

ผมลองเขียนแล้ว ได้ประมาณด้านล่างนี้ครับ แต่ไม่สำเร็จสักที

รบกวนช่วยดูให้หน่อยนะครับ ผมเช็คชื่อคอนโทรลต่างๆก็ถูกหมดแล้ว น่าจะตกโอเปอร์เตอร์หรือเขียนอย่างอื่นผิด
ขอบคุณครับ

Private Sub txtCongDiseaseID1_AfterUpdate()
Dim intSearch As Integer
intSearch = Me.txtCongDiseaseID1.Value
    If DLookup("[CongDiseaseID]", "tblCongDiseaseDetails", "PersonID='" & Me.txtPersonID1 & "'") = intSearch Then
       MsgBox "ไม่อนุญาตให้กรอกข้อมูลซ้ำ, กรุณาลองใหม่", vbInformation, "ข้อมูลซ้ำกับข้อมูลเดิม"
    End If
End Sub

สวัสดีครับทุกท่าน ผมต้องการทำ Multiple filter ด้วย Listbox หลายๆอันครับ ให้ Filter ได้ตามเงื่อนไขที่เลือกเลย
โดยผมเขียนโค้ดตามด้านล่างนี้ แล้วลอง filter ดู จากภาพ
1. ที่ Field MonthNum ผมต้องการเลือก Record ของเดือน 9 (September)
2. ที่ Field WorkGroup ผมต้องการเลือก “งานอื่นๆ”

แต่ผลลัพท์คือ ไปเอา “งานอื่นๆ” ของเดือนอื่นมา ซึ่งผมต้องการของเดือน 9 เท่านั้น(ซึ่งผลลัพธ์ที่ถูกต้อง จะต้องไม่มีของเดือน 9 โผล่มา เพราะไม่มี”งานอื่นๆ” ในเดือน 9) ผมจะต้องเพิ่มเติม Code อย่างไรให้ Filter ทำงานทั้งสองตัวครับ

ขอบคุณล่วงหน้าครับผม


Private Sub lstMonthSort_AfterUpdate()
    Call Search1
End Sub
--------------------------------------------------------------------------------------------------------
Sub Search1()
Dim varItem As Variant
Dim strsearch As String
Dim Task As String

Me.FilterOn = True
For Each varItem In Me!lstMonthSort.ItemsSelected
    strsearch = strsearch & "," & Me!lstMonthSort.ItemData(varItem)
Next varItem
'MsgBox (strSearch)
    If Len(strsearch) = 0 Then
        Task = "SELECT * FROM qryPerday"
        Forms!frmManpower1!frmqryPerDay.Form.RecordSource = Task
    Else
        strsearch = Right(strsearch, Len(strsearch) - 1)
        'MsgBox (strSearch)
        Task = "SELECT * FROM qryPerDay WHERE ([MonthNum] in (" & strsearch & "))"
        Forms!frmManpower1!frmqryPerDay.Form.RecordSource = Task
    End If
End Sub
--------------------------------------------------------------------------------------------------------
Private Sub lstWorkGroup_AfterUpdate()
    Call Search2
End Sub
--------------------------------------------------------------------------------------------------------
Sub Search2()
Dim varItem As Variant
Dim strsearch As String
Dim Task As String

Me.FilterOn = True
For Each varItem In Me!lstWorkGroup.ItemsSelected
    strsearch = strsearch & "," & Me!lstWorkGroup.ItemData(varItem)
Next varItem
'MsgBox (strSearch)
    If Len(strsearch) = 0 Then
        Task = "SELECT * FROM qryPerday"
        Forms!frmManpower1!frmqryPerDay.Form.RecordSource = Task
    Else
        strsearch = Right(strsearch, Len(strsearch) - 1)
        'MsgBox (strSearch)
        Task = "SELECT * FROM qryPerDay WHERE ([WorkGroup] in (" & strsearch & "))"
        Forms!frmManpower1!frmqryPerDay.Form.RecordSource = Task
    End If
End Sub

สวัสดีครับ ขอสอบถามเรื่อง Code VBA ครับ

กำลังทำเรื่อง Form Login อยู่ ซึ่งจะต้องมีเรื่องการเปลี่ยน Password ด้วย ซึ่งผมต้องการทำให้หลังจากกดปุ่ม “เปลี่ยนรหัสผ่าน” แล้ว มีการแจ้งเตือน พร้อมส่ง Password ใหม่ไปที่ E-Mail ของแต่ละ User ครับ ผมลองหาวิธีการในยูทูปเพื่อที่จะประยุกต์แล้ว แต่ก็ไม่สามารถทำได้ ยังไงรบกวนช่วยดู Code ให้หน่อยนะครับ

Code ที่แนบมานี้เป็น Code การเปลี่ยน Password ล้วนๆครับ(Click ที่ปุ่ม “เปลี่ยนรหัสผ่าน”(cmdChange)) ไม่แน่ใจว่าจะต้องเขียนต่อจากนี้อย่างไร ผมเขียนๆลบๆอยู่นานเลย ไม่สำเร็จเสียที

รบกวนทุกท่านด้วยนะครับ
ขอบคุณล่วงหน้าครับ




Private Sub cmdChange_Click()
        If DLookup("Password", "tblUser", "UserLogin='" & Me.txtUserLogin & "'") = Me.txtOldPassword Then
            If Me.txtNewPassword & "" <> "" And Me.txtNewPassword <> Me.txtOldPassword Then
   nEmployee = DLookup("UserID", "tblUser", "UserLogin='" & Me.txtUserLogin & "'")
                Dim rs As DAO.Recordset
                Set rs = CurrentDb.OpenRecordset("tblUser", dbOpenDynaset)
                rs.FindFirst "[UserID]=" & nEmployee
                rs.Edit
                rs!Password = Me.txtNewPassword
                rs.Update
                rs.Close: Set rs = Nothing
                Me.txtUserLogin = ""
                Me.txtOldPassword = ""
                Me.txtNewPassword = ""
                MsgBox “เปลี่ยนรหัสผ่านเรียบร้อยแล้ว กรุณาใส่รหัสผ่านใหม่เมื่อ Login", , “เปลี่ยนรหัสผ่านแล้ว"
            Else
                MsgBox "กรุณาใส่รหัสผ่านใหม่ในช่องเปลี่ยนรหัสผ่าน", , “รหัสผิดพลาด"
            End If
        Else
            MsgBox “คุณอาจไม่ได้กรอก UserLogin, OldPassword, NewPassword หรือกรอกอย่างใดอย่างหนึ่งผิด โปรดตรวจสอบอีกครั้ง", , “เปลี่ยนรหัสผ่านไม่สำเร็จ"
        End If
End sub

สวัสดีครับทุกท่าน ขอสอบถามปัญหาการเขียนโค้ด Event On Click ให้ Save แล้วมันดันเด้งวนไปที่ Event Before Update ครับ

คือผมทำฟอร์มขึ้นมา ชื่อ frmPunish ซึ่งก็จะมี Subform อยู่ด้านในอีก(สามารถดูได้จากไฟล์แนบครับ) พร้อมกับมีปุ่ม Save 2 ปุ่ม

1. Save New(cmdSave1): ไว้สำหรับเซฟ Record ใหม่ มีโค้ดดังนี้
Private Sub cmdSave1_Click()
    Me.Dirty = False
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdSaveRecord
    Me.txtNationalID1 = Me.txtNationalID2
    Me.txtCreated = Now()
    Me.txtCreatedBy = GetUserName()
    MsgBox ("Your record has been successfully saved!")   
    DoCmd.SetWarnings True
    DoCmd.RefreshRecord
End Sub

2. Save New(cmdSave2): ไว้สำหรับเซฟการแก้ไขข้อมูลในแต่ละ Record มีโค้ดดังนี้
Private Sub cmdSave2_Click()
    Me.Dirty = False
    DoCmd.SetWarnings False
    Me.txtModified = Now()
    Me.txtModifiedBy = GetUserName()
    MsgBox ("Your record edited has been successfully saved!")
    DoCmd.SetWarnings True
    DoCmd.RefreshRecord
End Sub

ปัญหาคือ ไม่ว่าจะกดปุ่ม Save ใดก็ตาม มันจะวนมาที่ Event BeforeUpdate ทุกที ซึ่งผมเขียนโค้ดไว้เป็นเหมือนกับ prompt user saving
(ถ้ามีการเลื่อน Record หรือปิดหน้าต่างให้ถามก่อนว่าจะ Save Record นั้นหรือไม่ทุกครั้ง) ซึ่งผมต้องการแค่ว่าถ้ากดปุ่ม Save ใดๆก็ตาม
ให้มันจบแค่ Event On Click ไม่ต้องวนไปที่ Event BeforeUpdate (ซึ่งมันจะขึ้น Pop Up หลายๆครั้งมาก จนเกินไป)

จะมีวิธีใดแก้ปัญหาที่ผมเจอได้บ้าง หรือช่วยแก้โค้ดให้ผมได้ไหมครับ(ผมได้แนบไฟล์มา สามารถโหลดมาลองดูได้ เปิด frmPunish นะครับ)
ขอบคุณมากครับ

โค้ด Event BeforeUpdate
Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim ctl As Control
   Dim msg As String
   On Error GoTo Err_BeforeUpdate
   If Me.Dirty Then
        msg = (MsgBox("Are you sure you want to save change?", vbYesNo + vbQuestion, "Save Record"))
        If msg = vbNo Then
            Me.Undo
        End If
        If msg = vbYes Then
            If IsNull(Me.txtCreatedBy) And IsNull(Me.txtCreated) Then
                Me.txtNationalID1 = Me.txtNationalID2
                Me.txtCreated = Now()
                Me.txtCreatedBy = GetUserName()
                MsgBox ("Your record has been successfully saved!")
            Else
                txtModified = Now()
                txtModifiedBy = GetUserName()
                MsgBox ("Your record has been successfully saved!")
            End If
        End If
   End If
Exit_BeforeUpdate:
   Exit Sub
Err_BeforeUpdate:
   MsgBox Err.Number & " " & Err.Description
   Resume Exit_BeforeUpdate
End Sub

สวัสดีครับ จะรบกวนทุกท่านเช็ค Code SQL ให้ผมหน่อยครับ ผมจะให้ INSERT เข้าไปที่ qryLean โดย SELECT ข้อมูลจาก qryHRDWH เมื่อ qryHRDWH.Selection = -1 แต่มันขึ้นว่า 'Run Time Error 3346': Number of query value and destination fields are not the same. ผมก็พยายามเชคว่ามันครบหรือเปล่า มันก็ครบนะครับ ก็เลยงงๆว่ามันผิดอะไรกันแน่ ยังไงช่วยแก้ให้ทีนะครับ

ขอบคุณครับ



Private Sub cmdRun_Click()
    Me.Requery
    If IsNull(Me.txtSCGEmployeeID) Then
        Me.txtSelection.Value = 0
    Else
        DoCmd.RunSQL "INSERT INTO qryLean([SCGEmployeeID],[NamePrefixThai],[FirstNameThai],[LastNameThai],[NamePrefixEng],[FirstNameEng],[LastNameEng]," & _
        "[NickName],[Position],[SubShift],[Shift],[SubSection],[Section],[SubDepartment],[Department],[SubDivision],[Division],[SubCompany],[Company],[Birthdate]," & _
        "[SCGHiringDate],[SystemDateTime],[ImagePath],[Selection])" & _
        "SELECT qryHRDWH.SCGEmployeeID, qryHRDWH.NamePrefixThai, qryHRDWH.FirstNameThai, qryHRDWH.LastNameThai, qryHRDWH.NamePrefixEng" _
        & "qryHRDWH.FirstNameEng, qryHRDWH.LastNameEng, qryHRDWH.NickName, qryHRDWH.Position, qryHRDWH.SubShift, qryHRDWH.Shift, qryHRDWH.SubSection" _
        & "qryHRDWH.Section, qryHRDWH.SubDepartment, qryHRDWH.Department, qryHRDWH.SubDivision, qryHRDWH.Division, qryHRDWH.SubCompany, qryHRDWH.Company" _
        & "qryHRDWH.Birthdate, qryHRDWH.SCGHiringDate, qryHRDWH.SystemDateTime, qryHRDWH.ImagePath, qryHRDWH.Selection" & _
        " FROM qryHRDWH Where qryHRDWH.Selection = -1"
       
'        DoCmd.RunSQL "Delete * from tblProductJan2020 where tblProductJan2020.Select=-1"
       
    End If
End Sub

สวัสดีครับท่านครับ ขอรบกวนปรึกษาเรื่อง Combo Box ซ้อน Combo Box ครับ(ให้ Combo Box กรองข้อมูลย่อยๆลงไป เพื่ออัพเดตลงตาราง)

อาจดูไม่ยากเย็น แต่ไม่รู้ทำไมผมถึงแก้ไมไ่ด้

รบกวนท่านดูไฟล์นี้ให้ผมหน่อยนะครับ เปิดไปที่ frmSession ผมต้องการให้ txtSubjectID มันเปลี่ยนไปตามกรุ๊ปของ txtSubjectGroupID ครับ
ผมทำตามคลิปของฝรั่งด้านล่างนี้ ผลคือ มันเปลี่ยนไปตามกรุ๊ปก็จริง แต่พอเลื่อนกลับไปกลับมา ค่าใน txtSubjectID มันหายไปเฉยเลย ไม่ยอมเอาขึ้นมาโชว์(แต่มันบันทึกลง tbl ได้)

รบกวนช่วยดูหน่อยครับ ไม่เข้าใจจริงๆทำไมไม่ได้

ขอบคุณเป็นอย่างสูงครับ
ปล.ผมทำตามคลิปของฝรั่งคลิปนี้ครับ

สวัสดีครับทุกท่าน ผมมี Code สองตัวนี้ครับ ต้องการที่จะรวมกัน ตามโจทย์ผมด้านล่างนี้ จะมีวิธีการรวมอย่างไรครับ
ตัวแรก: เป็น Code PromptUserSaving ก็คือถ้าหน้าฟอร์มมีการแก้ไข อัพเดต ลบ แล้วเราจะเลื่อนไปหน้าอื่น หรือกดปิดฟอร์ม ระบบก็จะฟ้องขึ้นมาว่าจะ Save หรือไม่
ตัวสอง: หลังจากที่เราตอบ Save จากข้อที่ 1 ให้บันทึกลงไปที่ Field เลยว่า Record นี้ถูกแก้ไข Update วันไหน กี่โมง

Code แรก:
Private Sub Form_BeforeUpdate(Cancel As Integer)

   ' This procedure checks to see if the data on the form has
   ' changed. If the data has changed, the procedure prompts the
   ' user to continue with the save operation or to cancel it. Then
   ' the action that triggered the BeforeUpdate event is completed.

   Dim ctl As Control

   On Error GoTo Err_BeforeUpdate

   ' The Dirty property is True if the record has been changed.
   If Me.Dirty Then
      ' Prompt to confirm the save operation.
      If MsgBox("Do you want to save?", vbYesNo + vbQuestion, _
              "Save Record") = vbNo Then
         Me.Undo
      End If
   End If

Exit_BeforeUpdate:
   Exit Sub

Err_BeforeUpdate:
   MsgBox Err.Number & " " & Err.Description
   Resume Exit_BeforeUpdate
End Sub

Code สอง:
'------------------------------------------------------------
' Form_BeforeUpdate
'
'------------------------------------------------------------
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo Form_BeforeUpdate_Err

    Modified = Now()
    ModifiedBy = CurrentUser()


Form_BeforeUpdate_Exit:
    Exit Sub

Form_BeforeUpdate_Err:
    MsgBox Error$
    Resume Form_BeforeUpdate_Exit

End Sub

ตามโจทย์ข้างต้น วอนท่านผู้รู้ ช่วยเขียน Code สองตัวนี้รวมกันหน่อยครับ ผมพยายามแล้ว ทำไม่ได้เลยครับ

ขอบคุณครับ

สวัสดีทุกท่านครับ

ขออนุญาตถามคำถามเกี่ยวกับการใช้งาน Database ร่วมกันครับ

หากผมมีโปรแกรมตัวนึงที่ต้องการแบ่งสิทธิ์ให้คนอื่นใช้ร่วมกัน โดยผมต้องการให้สิทธิ์กับเครื่อง Client กรอกข้อมูลที่ตนรับผิดชอบเข้ามา โดย

1. ตัวโปรแกรมจะอยู่ที่เครื่อง Server ที่ผมเป็นผู้รับผิดชอบ เป็น Admin มีสิทธิ์แก้ไขได้ทุกอย่าง
2. ตัวผู้กรอกข้อมูลจะมีเครื่อง Client ไว้กรอกข้อมูลเข้า แก้ไขข้อมูลผ่าน Form เท่านั้น ไม่มีสิทธิ์เข้าถึง Data Table และ Queries ด้านหลัง(เข้าถึงได้เฉพาะ Front End)

วิธีการแบบนี้เรียกว่าอะไร(Split Database ใช่หรือไม่) สามารถทำได้ไหม และมีวิธีการทำไหมครับ
(เข้าใจว่าต้องมีขั้นตอนเชื่อมต่อ ตั้งค่า กำหนดสิทธิ์อะไรสักอย่างบนคอมพิวเตอร์เรากับเครื่อง Client แน่ๆ)

รบกวนทุกท่านด้วยครับ หากส่งเป็นคลิปในยูทูปมาด้วยก็จะดีมากครับ

ขอบคุณมากๆครับผม