แสดงกระทู้

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.


Messages - mtaccess

หน้า: 1 ... 4 5 6 [7] 8 9 10
109
ห้อง MS Access / : Error : Could not delete from specified tables
« เมื่อ: 16 เม.ย. 63 , 13:47:40 »
ลองเปลี่ยนเป็น .... modifieddate = #"  & format$(now(), "dd/mmm/yyyy hh:mm:ss") & "# " & _

ลองแล้วติด error เหมือนเดิมค่ะ ทั้งตอนลบและแก้ไข

110
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 16 เม.ย. 63 , 01:28:41 »
ปรับใหม่ให้แบบนี้นะครับ ใช้การสร้าง Combobox แล้วกำหนดให้แสดงรายการแทน PK

ลองเอาไปใช้กับงานจริง ก็ยังไม่ได้ค่ะตรง Subform ไม่แสดงอะไรเลยหลักจากล็อกอินเข้าไป

111
ห้อง 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 คำสั่งใช้งานได้ปรกติค่ะ
รบกวนแนะนำด้วยค่ะ

112
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 15 เม.ย. 63 , 11:53:54 »
ตรง Subform ใส่โค้ดนี้ที่ RecordSource ตามนี้ครับ
โค๊ด: [Select]
SELECT Employee.ID, Employee.EmployeeCode, Employee.EmployeeName, Employee.EmployeeDivision, Employee.EmployeeLocation FROM Employee WHERE (((Employee.EmployeeDivision)=forms!form1!comboDivision) And ((Employee.EmployeeLocation)=forms!form1!comboLocation));

ถ้าต้องการให้ค้นหาจาก MMM หรือ Bangkok ละคะ โดยใช้คำสั่งแบบนี้ คำสั่งนี้เหมือนจะเอาค่า combo มาค่ะ เช่น 1 เท่ากับ MMM และ 1 เท่ากับ Bangkok  รบกวนแนะนำด้วยค่ะ

แบบนี้นะคะ

113
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 14 เม.ย. 63 , 16:38:10 »
จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ

ทำได้แล้วค่ะ ลองไป Copy code จากตัวอย่างที่ส่งมาแล้วไปแก้ไข สามารถใช้ได้แล้วค่ะ ขอบคุณมากๆนะคะ

สาเหตุที่เกิด ERROR นั้นเพราะ มีการใช้คำสั่ง Docmd.close เพื่อปิดฟอร์ม หน้าจอล๊อกอิน ครับ
ต่อมาพอเราต้องการอ้างอิง ข้อมูลจาก textbox หรือ combobox ของฟอร์มล๊อกอิน ก็ไม่สามารถทำได้แล้วเพราะเราสั่งปิดฟอร์มไปแล้วครับ

รบกวนสอบถามอีกครั้งค่ะ ถ้าต้องการให้ข้อมูลในตาราง subform แสดงข้อมูลที่เป็นพนักงานของ ฝ่ายและสาขาที่เรา Login เข้ามา เช่นตัวอย่างในรูป รบกวนแนะนำด้วยค่ะ




114
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 14 เม.ย. 63 , 15:25:36 »
จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ

ทำได้แล้วค่ะ ลองไป Copy code จากตัวอย่างที่ส่งมาแล้วไปแก้ไข สามารถใช้ได้แล้วค่ะ ขอบคุณมากๆนะคะ

สาเหตุที่เกิด ERROR นั้นเพราะ มีการใช้คำสั่ง Docmd.close เพื่อปิดฟอร์ม หน้าจอล๊อกอิน ครับ
ต่อมาพอเราต้องการอ้างอิง ข้อมูลจาก textbox หรือ combobox ของฟอร์มล๊อกอิน ก็ไม่สามารถทำได้แล้วเพราะเราสั่งปิดฟอร์มไปแล้วครับ

ขอบคุณมากๆเลยนะคะ

115
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 14 เม.ย. 63 , 14:46:21 »
จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ

ทำได้แล้วค่ะ ลองไป Copy code จากตัวอย่างที่ส่งมาแล้วไปแก้ไข สามารถใช้ได้แล้วค่ะ ขอบคุณมากๆนะคะ

116
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 14 เม.ย. 63 , 14:23:33 »
จากตัวอย่างที่ผมทำให้ดูทำได้หรือไม่ครับ ?
ถ้าส่วนอื่นๆ ผมไม่เห็นขั้นตอนการกำหนดค่า
คงต้อง Remote ไปดูครับ
ใช้ Anydesk ครับ
ส่งมาทางข้อความได้เลยครับ

จากตัวอย่างที่ทำให้ ทำได้ค่ะ แต่พอมาทำที่งานจริง ไม่ได้

117
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 14 เม.ย. 63 , 13:57:52 »
ลองดูตัวอย่างนี้ครับ เป็นการกำหนดเงื่อนไขการแสดงรายการของ คอมโบบ๊อก โดยให้ดึงมาแสดงเฉพาะรายการที่เกี่ยวข้องกับส่วนอื่นๆ ที่ต้องอยู่ในกลุ่มเดียวกัน
คล้ายๆกับการกำหนด จังหวัด อำเภอ ตำบล หมู่บ้าน จากตัวอย่างก่อนๆ ครับ

ลองเอาไปใช้งานจริงแล้วติด Error ตามภาพนี้ค่ะ และข้อมูล ฝ่ายและสาขาไม่มาค่ะ



ปล.หน้าจอออกแบบที่ MS Access Database ลิงค์มาจาก SQL Server ค่ะ
รบกวนแนะนำด้วยค่ะ

118
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 14 เม.ย. 63 , 12:10:20 »
ลองดูตัวอย่างนี้ครับ เป็นการกำหนดเงื่อนไขการแสดงรายการของ คอมโบบ๊อก โดยให้ดึงมาแสดงเฉพาะรายการที่เกี่ยวข้องกับส่วนอื่นๆ ที่ต้องอยู่ในกลุ่มเดียวกัน
คล้ายๆกับการกำหนด จังหวัด อำเภอ ตำบล หมู่บ้าน จากตัวอย่างก่อนๆ ครับ

ขอบคุณมากๆนะคะ เดี๋ยวขอลองทำดูก่อนนะคะ

119
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 14 เม.ย. 63 , 09:54:36 »
ตรง Division กับ Location ผมไม่แน่ใจว่าสร้างความสัมพันธ์กันแบบไหน

ถ้าแบบดิบๆ เลยก็แบบนี้ครับ

ความสัมพันธ์แบบนี้ค่ะ

ตาราง Division


ตาราง Location



ตาราง User บอกสิทธิ์ว่าเป็น Admin หรือ เป็น RC หรือเป็น HR ประมาณว่า User นี้อยู่ในกรุ๊ปไหนนะคะ


ตารางให้สิทธิ์ user ค่ะ ว่าสามารถเข้า Division หรือ Location ไหนได้บ้าง โดยเอา ID ของ Division และ Location อ้างอิง
เช่น User : test2 มีสิทธิ์เข้า Division 1 คือ MMM และเข้า Location 1 คือ Bangkok



คืออยากได้ประมาณว่านี้อยู่กรุ๊ป User ไหน เข้า Division ไหน และ Location ไหนได้บ้างนะคะ
เช่น User test2 อยู่กรุ๊ป RC ให้สามารถเข้า Division MMM หรือ FFF จากนั้นสามารถเข้า Location Bangkok หรือ สาขาที่เรา Set ไว้ใน Table tblUserLocationAccess นะคะ

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

120
ห้อง MS Access / : การสร้างหน้า Login ใน MS Access
« เมื่อ: 14 เม.ย. 63 , 09:33:39 »
ตรง Division กับ Location ผมไม่แน่ใจว่าสร้างความสัมพันธ์กันแบบไหน

ถ้าแบบดิบๆ เลยก็แบบนี้ครับ

ขอบคุณมากๆนะคะ เดี๋ยวขอลองก่อนนะคะ

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



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


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

122
ทำได้แล้วค่ะ ขอบคุณมากๆนะคะ

123
ขอรบกวนสอบถามค่ะ พอดีมีการย้าย 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

124
Tools >> Options >> Designers

ติ๊กออก Prevent Saving changes that require table re-creation



*คำอธิบาย การแก้ไขข้อมูลออกแบบตารางพวกนี้ มันจะดรอปและสร้างตารางขึ้นมาใหม่ในชื่อเดิม ซึ่งอาจจะส่งผลให้ข้อมูลสูญหายโดยไม่ได้ตั้งใจ เช่นเผลอลบคอลัมน์แล้วกดบันทึก ข้อมูลในคอลัมน์นั้นก็จะหายไปหมด
ถ้าแก้ไขเสร็จแล้ว ให้มาติ๊กกลับไว้เหมือนเดิมครับ


ทำได้แล้วค่ะ ขอบคุณมากๆนะคะ

125
ไม่ค่อยเข้าใจคำถามครับ
หมายถึงปรับ Is Identity เป็น Yes แล้วกด save ไม่ได้หรอครับ ?

ได้กำหนด Primary Key ให้ ID รึยังครับ

และเวลาเพิ่มข้อมูล ID ห้ามเป็นค่าว่าง

แก้ไขในหน้า Design ไม่ได้เลยค่ะ เนื่องจาก Table นี้มีข้อมูลประมาณ 14,000 record แล้ว ติด error ตามรูปนี้ค่ะ รบกวนแนะนำด้วยนะคะ ขอบคุณค่ะ


126
คือมีการ Export ไฟล์ข้อมูลจาก Access ไป SQL เรียบร้อยแล้วค่ะ
ทีนี้ทำการทดสอบบันทึกข้อมูลที่ Database ตัวใหม่คือ SQL ตัว ID ไม่รันหมายเลขต่อเนื่องค่ะ กลายเป็นบันทึกค่า Null ลงไปเแทนตรง ID แบบนี้นะคะ
รบกวนแนะนำด้วยค่ะ




ปล.Export file เป็น Excel แล้ว Import เข้า SQL ตรงหน้า Design ID มีค่าตามรูปค่ะ ลองแก้ไขเป็น int แล้วไม่ให้แก้ไขค่ะ


หน้า: 1 ... 4 5 6 [7] 8 9 10