สอบถามการอัพโหลดไฟล์ Excel ใน MS Access ค่ะ อยากจะ อัพโหลดไฟล์ ได้โดยให้มีการตรวจสอบจากเลขที่บัตรประชาชน โดยเช็คว่า ถ้ามีข้อมูลที่เคยอัพโหลดอยู่แล้ว ให้อัพโหลดเฉพาะข้อมูลที่มีการเปลี่ยนแปลง ข้อมูลไหนไม่มีก็อัพโหลดเข้าตามปรกติ รบกวนแนะนำด้วยนะคะ ขอบคุณค่ะ

ออกแบบหน้าจอที่ MS Access เชื่อมต่อโดยลิงค์ Database SQL Server ค่ะ
ต้องการล็อกอินด้วย ชื่อผู้ใช้ รหัสผ่าน ฝ่าย และสาขาที่เลือก เช่นเลือกฝ่าย FFF เลือกสาขา Bangkok
อยากจะให้ข้อมูลที่อยู่ในฝ่ายและสาขาที่เราเลือกล็อกอินมาแสดงในหน้า Subform ค่ะ รบกวนแนะนำด้วยค่ะ ตอนนี้ติดปัญหาเวลาล็อกอินเข้ามาแล้วข้อมูลไม่แสดงใน Subform เลย เมื่อใส่เงื่อนไขเข้าไปใน Query แล้ว

หน้าล็อกอิน


หน้าแสดงผลข้อมูลหลังจากล็อกอินเข้ามาค่ะ


ฟิลด์ที่ใช้เก็บข้อมูลใน SQL Server


ฟิลด์ที่ใช้เก็บข้อมูลใน SQL Server

ติด error เวลาจะ Delete ค่ะ


ตัวอย่าง Code คำสั่งค่ะ
Private Sub cmdEdit_Click()
   If Me.txtID.Tag & "" = "" Then
                MsgBox "¡ÃسÒàÅ×Í¡¢éÍÁÙÅ·Õèµéͧ¡ÒÃá¡éä¢"
   Else
                CurrentDb.Execute "UPDATE dbo_CheckCaseMaster " & _
                    " SET dbo_CheckCaseMaster.CaseExamination='" & Me.comboCaseResult & "', dbo_CheckCaseMaster.CaseName='" & Me.comboResult & "', dbo_CheckCaseMaster.ModifiedBy='" & Me.txtLogin & "', dbo_CheckCaseMaster.ModifiedDate=Now()" & _
                    " WHERE dbo_CheckCaseMaster.ID=" & Me.txtID.Tag, dbSeeChanges
                    MsgBox "á¡é䢢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End If
cmdCancel_Click
FormCheckCaseViewSub.Form.Requery
End Sub
ติด error เวลาจะ Edit ค่ะ


ตัวอย่าง Code คำสั่งค่ะ
Private Sub cmdEdit_Click()
   If Me.txtID.Tag & "" = "" Then
                MsgBox "¡ÃسÒàÅ×Í¡¢éÍÁÙÅ·Õèµéͧ¡ÒÃá¡éä¢"
   Else
                CurrentDb.Execute "UPDATE dbo_CheckCaseMaster " & _
                    " SET dbo_CheckCaseMaster.CaseExamination='" & Me.comboCaseResult & "', dbo_CheckCaseMaster.CaseName='" & Me.comboResult & "', dbo_CheckCaseMaster.ModifiedBy='" & Me.txtLogin & "', dbo_CheckCaseMaster.ModifiedDate=Now()" & _
                    " WHERE dbo_CheckCaseMaster.ID=" & Me.txtID.Tag, dbSeeChanges
                    MsgBox "á¡é䢢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End If
cmdCancel_Click
FormCheckCaseViewSub.Form.Requery
End Sub
หน้าจอเขียนด้วย MS Access Database เป็น SQL Server
เดิมเขียนด้วย MS Access ทั้งหน้าจอกับ database คำสั่งใช้งานได้ปรกติค่ะ
รบกวนแนะนำด้วยค่ะ

ขอรบกวนสอบถามค่ะ พอดีมีการย้าย Database จาก Access เป็น SQL ติดปัญหาตอนแก้ไขข้อมูลค่ะ แสดง error ตามรูปนี้ค่ะ รบกวนแนะนำด้วยค่ะ


ตัวอย่างโค้ด update ค่ะ ปรกติใช้ Database Access คำสั่งนี้ทำงานได้ปรกติ พอเปลี่ยนเป็น SQL โดยการทำลิงค์เข้ามาแล้วไม่ได้ค่ะ

Private Sub cmdEdit_Click()
   If Me.txtID.Tag & "" = "" Then
                MsgBox "¡ÃسÒàÅ×Í¡¢éÍÁÙÅ·Õèµéͧ¡ÒÃá¡éä¢"
   Else
                CurrentDb.Execute "UPDATE dbo_Register " & _
                    " SET dbo_Register.CardID='" & Me.txtCardID & "', dbo_Register.Title='" & Me.comboTitle & "', dbo_Register.TitleEn='" & Me.comboTitleEn & "', dbo_Register.Name='" & Me.txtName & "', dbo_Register.NameEn='" & Me.txtNameEn & "', dbo_Register.Surname='" & Me.txtSurname & "', dbo_Register.SurnameEn='" & Me.txtSurnameEn & "', dbo_Register.Sex='" & Me.comboSex.Column(1) & "', dbo_Register.Sex_Ramco='" & Me.txtSex & "', dbo_Register.Blood='" & Me.comboBlood & "', dbo_Register.BirthDate='" & Me.txtBirthDate & "'" & _
                    ", dbo_Register.ADDRNO='" & Me.txtADDRNO & "', dbo_Register.ADDRMU='" & Me.txtADDRMU & "', dbo_Register.ADDRTR='" & Me.txtADDRTR & "', dbo_Register.ADDRSOI='" & Me.txtADDRSOI & "', dbo_Register.ADDRRD='" & Me.txtADDRRD & "', dbo_Register.ADDRTB='" & Me.txtADDRTB & "', dbo_Register.ADDRAP='" & Me.txtADDRAP & "', dbo_Register.ADDRCW='" & Me.txtADDRCW & "', dbo_Register.ADDRZIPCODE='" & Me.txtADDRZIPCODE & "', dbo_Register.Age='" & Me.txtCalcAge & "'" & _
                    ", dbo_Register.TrainingStartDate='" & Me.txtTrainingStartDate & "', dbo_Register.MaritalStatus='" & Me.txtMarital & "', dbo_Register.MilitaryStatus='" & Me.comboMilitary & "', dbo_Register.Disability='" & Me.comboDisability & "', dbo_Register.Ethnicity='" & Me.txtEthnicity & "'" & _
                    ", dbo_Register.Country='" & Me.comboCountry & "', dbo_Register.HomeState='" & Me.txtHomeState & "', dbo_Register.ModifiedBy='" & Me.txtLogin & "', dbo_Register.ModifiedDate=Now()" & _
                    " WHERE dbo_Register.ID=" & Me.txtID.Tag
                    MsgBox "á¡é䢢éÍÁÙÅàÃÕºÃéÍÂáÅéÇ"
End If
cmdCancel_Click
frmRegistersubform.Form.Requery
End Sub

โปรแกรม Access error Query " is corrupt ตามรูปนี้ เกิดจากอะไรคะ แก้ไขยังไงได้บ้างคะ เครื่องอื่นทำงานคำสั่งได้ตามปรกติ เป็นบางเครื่อง

ขอสอบถามเกี่ยวกับ Report ใน Access ตรวจสอบข้อมูลพนักงานว่ามีไฟล์รูปถ่ายใน Drive ที่เก็บไว้จริงหรือไม่ ถ้ามีรูปให้แสดงข้อความว่า 'มี' ถ้าไม่พบรูปใน Drive ที่เก็บรูปให้แสดงว่า 'ไม่มี' รบกวนแนะนำด้วยค่ะ พร้อมกันนี้ได้แนบไฟล์ตัวอย่างที่ทำไว้มาด้วยค่ะ

ไฟล์รูปพนักงานจะทำการบันทึกเป็นชื่อรหัสพนักงานตามตัวอย่างไฟล์ที่แนบมาค่ะ

รบกวนสอบถามเกี่ยวกับการรันหมายเลขลำดับใน Report ใน Access
1.ต้องการให้รายงานแสดงหน้าละ 20 record ถ้าไม่ครบ 20 record ให้แสดงช่องว่างให้ครบ 20 record เช่น ถ้ามีข้อมูล 7 record ให้แสดงข้อมูล อันดับที่ 8-20 แสดงช่องว่างสำหรับสามารถปริ้นแล้วเขียนข้อมูลลงในนั้นได้ค่ะ
2.ต้องการให้รายงานรันหมายเลขลำดับที่ 1-40 ถ้ามีลำดับในข้อมูล 41 เป็นต้นไปให้เริ่มรันหมายเลขลำดับเป็น 1 ใหม่
รบกวนแนะนำด้วยค่ะ
ขอบคุณค่ะ

ตัวอย่างรายงาน
แสดงข้อมูลลำดับที่ 1-40 หน้าละ 20 แถว




ในกรณีที่มีข้อมลลำดับที่ 41 เป็นต้นไปให้รันหมายเลขลำดับใหม่ค่ะ และให้แสดงแถวให้ครบ 20 แถว ในกรณีไม่มีข้อมูลตามรูปนี้ค่ะ