แสดงกระทู้

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.


Topics - mtaccess

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

2
เขียนโปรแกรมจาก MS Access database เป็น Sql server

ที่เครื่อง User ลง MS Access runtime ค่ะ พอเปิดรันโปรแกรม แสดงข้อความ error แบบนี้ค่ะ



รบกวนแนะนำด้วยค่ะ

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

หน้าล็อกอิน


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


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


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

4
สร้างโปรแกรมด้วย MS Access และมีการลิงค์ Database ด้วย SQL Sever ทำไมขนาดไฟล์ใหญ่ๆ หลังจากมีการแก้ไขโปรแกรมใน MS Access ทุกครั้งที่มีการแก้ไข พอมาดูขนาดไฟล์ ใหญ่ขึ้นเยอะเลย รบกวนแนะนำด้วยค่ะ

ถ้าต้องการเชื่อมต่อ Database SQL Server โดยไม่ลิงค์ Table แต่โค้ดการทำงานยังคงเหมือนเดิม สามารถทำได้ไหมคะ


5
ห้อง MS Access / Error : Could not delete from specified tables
« เมื่อ: 15 เม.ย. 63 , 15:38:52 »
ติด error เวลาจะ Delete ค่ะ


ตัวอย่าง Code คำสั่งค่ะ
โค๊ด: [Select]
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 คำสั่งค่ะ
โค๊ด: [Select]
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 คำสั่งใช้งานได้ปรกติค่ะ
รบกวนแนะนำด้วยค่ะ

6
ห้อง MS Access / การสร้างหน้า Login ใน MS Access
« เมื่อ: 13 เม.ย. 63 , 22:30:33 »
ขอสอบถามเกี่ยวกับการสร้างหน้า Login ตามรูปต่อไปนี้ต้องการ Login ด้วยชื่อผู้ใช้และรหัสผ่าน ตามสิทธิ์ที่ได้รับ เช่นชื่อผู้ใช้ admin มีสิทธิ์เข้าฝ่ายและสาขาอะไรบ้าง ให้แสดงแค่ฝ่ายและสาขาที่สามารถเข้าได้ค่ะ ไม่ทราบว่าพอจะเป็นไปได้ไหม หรือมีวิธีไหนที่สามารถทำได้ รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ
จุดประสงค์คือต้องการให้สิทธิ์ในการเข้าใช้งานและดูข้อมูลได้เฉพาะฝ่ายและสาขาที่ได้รับอนุญาตค่ะ



จากนั้นให้มาแสดงชื่อผู้ใช้ ฝ่าย และ สาขาในหน้านี้ค่ะ


พร้อมกันนี้ได้แนบไฟล์โปรแกรมที่เขียนมาด้วยค่ะ

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


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

โค๊ด: [Select]
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

8
ขอสอบถามเรื่องการย้าย Database จาก access ไปเป็น SQL Server ด้วยค่ะ
ปัจจุบันมีการเขียนโปรแกรมและ database ด้วย MS access 2013
อยากจะทำการย้ายแค่ Database ไปไว้ที่ SQL Server แต่ยังคงใช้หน้าจอของ Access สามารถทำยังไงได้บ้างคะ รบกวนแนะนำด้วยค่ะ

9
ห้อง MS Access / โปรแกรม Access error Query " is corrupt
« เมื่อ: 21 พ.ย. 62 , 09:15:51 »
โปรแกรม Access error Query " is corrupt ตามรูปนี้ เกิดจากอะไรคะ แก้ไขยังไงได้บ้างคะ เครื่องอื่นทำงานคำสั่งได้ตามปรกติ เป็นบางเครื่อง

10
อยากทราบวิธีการแสดงข้อมูลของบัตรหมดอายุ จากวันที่ออกบัตรถึงวันที่บัตรหมดอายุ ถ้าหมดอายุ ให้แสดงคำว่า "บัตรหมดอายุ" ถ้ายังไม่ครบวันหมดอายุให้แสดงจำนวนวันที่เหลือ รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

ตัวอย่าง
 
       

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

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

12
ถ้าเราต้องการ Select data ใน MS Access ในคำสั่ง SQL จาก ฟิลด์ title ใน Table แสดงเป็นภาษาอังกฤษ แต่เราอยากให้แสดงเป็นไทย
เช่น ถ้าเป็น MR แสดงเป็น นาย, MISS แสดงเป็น นางสาว และ MRS แสดงเป็น นาง

ตอนนี้ทำได้เงื่อนไขเดียวคือ MR ตัวอย่าง
(Trim(Replace([title],"MR","นาย"))

รบกวนให้คำแนะนำด้วยค่ะ
ขอบคุณค่ะ

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

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




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





14
สอบถามเรื่องการตัดจุดออกหลังคำนำหน้าใน Query Access ค่ะ เช่น Mr. และ Mrs. ใช้คำสั่งยังไงคะ ถ้าข้อมูลที่มีการบันทึกไม่มี . ก็ให้แสดงข้อมูล Mr และ Mrs ปรกติ ต้องการตัด . ออก รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ

หน้า: [1]