แสดงกระทู้

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] 2
1
ห้อง MS Access / : โปรแกรม Access error Query " is corrupt
« เมื่อ: 22 พ.ย. 62 , 11:00:07 »
ลองวิธี Uninstall ตัวอัพเดทออกตามวิธีนี้ดูว่าได้ไม๊ครับ
http://fmsinc.com/MicrosoftAccess/Errors/query_is_corrupt/index.htm link

วิธีนี้ทำได้ค่ะ ขอบคุณมากๆนะคะ

2
ห้อง MS Access / : โปรแกรม Access error Query " is corrupt
« เมื่อ: 22 พ.ย. 62 , 10:59:35 »
วิธีนี้ทำได้ค่ะ ขอบคุณมากๆนะคะ

3
ห้อง MS Access / : โปรแกรม Access error Query " is corrupt
« เมื่อ: 22 พ.ย. 62 , 10:58:49 »
กับอีกวิธีตามลิงค์นี้ค่ะ ทดลองแล้ว สามารถทำได้
http://fmsinc.com/MicrosoftAccess/Errors/query_is_corrupt/ link

4
ห้อง MS Access / : โปรแกรม Access error Query " is corrupt
« เมื่อ: 21 พ.ย. 62 , 15:03:54 »
แก้ไขได้แล้วค่ะ โดยการ uninstall แล้ว ลง Access ใหม่ค่ะ ขอบคุณทุกๆท่านสำหรับคำแนะนำมากๆนะคะ

5
ห้อง MS Access / : โปรแกรม Access error Query " is corrupt
« เมื่อ: 21 พ.ย. 62 , 10:13:53 »
ใช้ access version 2013 เหมือนกันค่ะ

6
ห้อง MS Access / : โปรแกรม Access error Query " is corrupt
« เมื่อ: 21 พ.ย. 62 , 09:59:32 »
ลองอัพเดตแล้ว ก็ยังไม่ได้ค่ะ ติดปัญหาเหมือนเดิม

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

8
เหมือนกับการเช็ควันที่ปัจจุบัน กับ วันที่หมดอายุ ใช่ไหมครับ ว่าถ้าไม่ครบกำหนดแล้วเหลือกี่วัน ถ้าครบกำหนดแล้วก็แสดงว่าบัตรหมดอายุ

ผมสมมุติชื่อ Field ดังนี้

Field ชื่อ CustomerName  Datatype Text  เก็บชื่อลูกค้า
            OutCardDate     Datatype Date&Time  เก็บวันออกบัตร
            ExpireCardDate Datatype Date&Time  เก็บวันหมดอายุ

Table ชื่อ Table1

ที่คิวรี่ เอา sql นี้ไปวางได้เลย
โค๊ด: [Select]
SELECT table1.CustomerName, table1.OutCardDate, table1.ExpireCardDate, IIf(Date()<[ExpireCardDate],"เหลือ " & [ExpireCardDate]-Date() & " วัน","บัตรหมดอายุ") AS สถานะ
FROM table1;

ขอบคุณค่ะ ทำได้แล้วค่ะ

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

ตัวอย่าง
 
       

10
ถึงแม้ทำได้ แต่ Report ไม่ได้มีจุดประสงค์เอาไว้เพื่อออก Excel ครับ   ข้อมูลไปครบหรือไม่ รูปแบบยังคงเอาไว้ได้หรือไม่ ต้องลองเองแล้วครับ

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

11
ผมลองแล้วดูได้ คุณเปิดดูใน Print Preview หรือเปล่า

ดูใน print preview ข้อมูลแสดงค่ะ แต่ถ้าส่งออกไฟล์เป็น Excel ข้อมูลจะแสดงว่ามีหรือไม่มีไหมคะ

12
โค้ดของคุณคือ

Me.Text23.Text = IIf(Dir(Me.[FilePath]) = "", "ไม่มี", "มี")

ปัญหาคือ
1. คุณใส่ .Text   ตรงนี้ต้องให้เอาออกครับ
2. FilePath มีบางเรคอร์ดที่ไม่มีค่าอะไรเลย 
อย่างนั้นก็ต้องแก้โค้ดเป็น

If Nz(Me.[FilePath], "") = "" Then
   Me.Text23 = "ไม่มี"
ElseIf Dir(Me.[FilePath]) = "" Then
   Me.Text23 = "ไม่มี"
Else
   Me.Text23 = "มี"
End If

ยังไม่ได้เหมือนเดิมค่ะ ไม่รู้ว่าผิดตรงไหน ลองแก้ไขตามที่แนะนำมาแล้ว ก็ยังไม่ได้เหมือนเดิมค่ะ รบกวนด้วยนะคะ

13
เอาใหม่ ผมบอกผิดไป

- อย่างแรก ในเทเบิลต้องมีฟิลด์ที่เก็บว่าไฟล์รูปของเรคอร์ดนั้นอยู่ที่ไหน สมมุติชื่อฟิลด์ว่า FilePath
- วางฟิลด์ FilePath ลงใน Detail section และกำหนด Visible property เป็น No
- Control Source ของ [มี/ไม่มีรูปถ่าย] ให้เว้นว่างไว้
- ใส่โค้ดข้างล่างนี้ไว้ใน Format event ของ Detail section

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
        Me.[มี/ไม่มีรูปถ่าย] = IIf(Dir(Me.[FilePath]) = "", "ไม่มี", "มี")
End Sub

ยังไม่ได้เหมือนเดิมค่ะ รบกวนอีกครั้งนะคะ


14
- อย่างแรก ในเทเบิลต้องมีฟิลด์ที่เก็บว่าไฟล์รูปของเรคอร์ดนั้นอยู่ที่ไหน สมมุติชื่อฟิลด์ว่า FilePath
- ใส่นิพจน์ไว้ใน Control Source property ของเท็กซ์บ็อกซ์ [มี/ไม่มีรูปถ่าย] เป็น

= IIf(Dir(Me.[FilePath]) = "", "ไม่มี", "มี")  <=== เครื่องหมายเท่ากับที่ด้านหน้า ต้องมีใส่ไว้ด้วย

หมายเหตุ เพื่อลดปัญหาที่อาจเกิดขึ้นได้ เราไม่ควรสร้างชื่อของอะไรก็ตาม เป็นภาษาอื่นนอกจากภาษาอังกฤษ และไม่ควรมีช่องว่างหรืออักขระพิเศษต่างๆในชื่อเช่นกัน



ลองทำตามวิธีแล้วติดให้ใส่ Dir กับ Me ค่ะ ตามไฟล์ที่แนบมา รบกวนแนะนำด้วยค่ะ ขอบคุณค่ะ






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

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

16
ทำได้แล้วค่ะ
ใช้คำสั่งนี้ค่ะ
 ((Trim(IIf([title]="MR","นาย",IIf([title]="MISS","นางสาว",IIf([title]="MS","นาง","")))))+''+Trim(Firstname)+' '+Trim(Lastname)) AS Name

ขอบคุณมากๆนะคะสำหรับคำแนะนำ

หน้า: [1] 2