แสดงกระทู้

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 - pattan0013

หน้า: [1] 2 3 4 5
1
ห้อง MS Access / : ใส่ข้อมูลแล้วขึ้น Run-time error 3326 This Recordset is not updateable ครับ
« เมื่อ: 20 มี.ค. 68 , 16:25:07 »
สวัสดีครับ เจอสาเหตุแล้วครับ พบว่า relation ไม่ได้ติ๊ก Enforce Referential Integrity ทำให้ relation type เป็น Indeterminate และพบว่าที่เป็นเพราะมีการแก้ไข Index เป็น Duplicate OK ทำให้มีข้อมูลที่ไม่ควรซ้ำมาซ้ำกันครับ ตอนนี้แก้ปัญหาได้แล้วครับ

2
ห้อง MS Access / : ใส่ข้อมูลแล้วขึ้น Run-time error 3326 This Recordset is not updateable ครับ
« เมื่อ: 20 มี.ค. 68 , 13:12:32 »
ยังแก้ไขไม่ได้ครับ ผมสงสัยก่อนหน้านี้ใช้งานได้ครับ ใส่ข้อมูลอะไรได้หมดเลย อยู่ๆก็ไม่ได้อย่างที่ว่าครับ พอจะมีสาเหตุอื่นไหมครับ??

3
ห้อง MS Access / : ใส่ข้อมูลแล้วขึ้น Run-time error 3326 This Recordset is not updateable ครับ
« เมื่อ: 18 มี.ค. 68 , 09:12:52 »
ขอบคุณสำหรับคำแนะนำครับ เดี๋ยวผมลองดูครับ

4
ห้อง MS Access / ใส่ข้อมูลแล้วขึ้น Run-time error 3326 This Recordset is not updateable ครับ
« เมื่อ: 14 มี.ค. 68 , 14:20:11 »
สวัสดีครับ เรื่องคือก่อนหน้านี้สามารถใส่ข้อมูลได้ทุกช่องเลยครับ แต่อยู่ๆก็ขึ้นว่า This Recordset is not updateable และบางช่องใน Subform ก็ขึ้น Field is read-only และกดปุ่ม SAVE ก็ขึ้น Run-time error 3326 พอกด debug ก็ขึ้นตามรูปครับ ส่วน code เพื่อบันทึกค่าครับ ผมแนบไฟล์มาให้ด้วยรบกวนช่วยเหลือหน่อยครับ ขอบคุณครับ




5
ห้อง MS Access / ทำปุ่มให้ print หน้า Form แต่พริ้นออกมาไม่มีข้อมูลออกมาครับ
« เมื่อ: 27 พ.ค. 67 , 13:00:07 »
สวัสดีครับ ผมทำปุ่มให้ print หน้า Form แต่พริ้นออกมาไม่มีข้อมูลออกมาครับ ต้องแก้ไขอย่างไรครับ??

ผมแนบรูปมาให้ครับ รูปแรกเป็นหน้า Form ครับ รูปที่ 2 คือรูปที่ print to PDF ครับ รบกวนด้วยครับ





6
ห้อง MS Access / : รบกวนสอบถามผู้รู้เรื่อง code หน่อยครับ
« เมื่อ: 27 พ.ค. 67 , 12:54:32 »
ขอบคุณมากครับ

7
ห้อง MS Access / รบกวนสอบถามผู้รู้เรื่อง code หน่อยครับ
« เมื่อ: 04 พ.ค. 67 , 20:42:07 »
สวัสดีครับ ผมต้องการความช่วยเหลือครับคือ จะแก้ไขการโชว์เลขงานครับ จากเดิมเลขงานคือ GSP24050001 คือ GSP คือรหัสงาน/ 24 คือ ปี 2024ฝ 05คือ เดือน 5 และ 0001คือเลขที่งาน ที่จะต้องรันต่อไปเรื่อยๆครับแต่พอเดือนเป็น 06 ก็จะกลับไปนับ 0001 ใหม่ คราวนี้ที่ต้องการเปลี่ยนใหม่เป็น GSP-0001-2405 คือ จะเอาเลขที่งานที่ต้องรันมาอยู่ตรงกลางและเอาปีกับเดือนไว้หลังสุด และพอเป็นเดือน 06 ก็ไม่ต้องนับ 0001 ใหม่แต่ให่รันต่อไปเลยครับ คราวนี้ข้องล่างนี้คือ VB code เดิม

Private Sub LOADINGDATE_AfterUpdate() เมื่อใส่วันที่แล้วให้รันฟังกชั่นนี้


If IsNull(cmbG) Then             cmbG คือชื่อของช่อง GSP
    Me.cmbG.SetFocus
    MsgBox "Please choose Type !!!!"
Else
    If Not IsNull(Me.JobNo) Then
MsgBox "This job has Job Number !!!!!"
Exit Sub
Else
    Me.JobNo = AutotxtID
End If
End If

DoCmd.RunCommand acCmdSaveRecord

End Sub

และตามด้วย AutotxtID ตามด้านล่างเพื่อให้ตรงความต้องและใส่ข้อมูลในช่อง JobNo

Function AutotxtID() As String
Dim X As Variant
Dim bk, cmbG As String
    cmbG = Me.cmbG
    X = DMax("Right(JobNo,4)", "[tblExpBooking]", "Left([JobNo],6) = cmbG & Left([txtDate2], 4)")           tblExpBooking คือ Table ข้อมูล / txtDate2 คือชื่อ TextBox ที่มีสูตรในการตัดปีและเดือน ในที่นี้คือ 2405
    If IsNull(X) Then bk = 1 Else bk = X + 1
    AutotxtID = cmbG & Left([txtDate2], 4) & Format(bk, "0000")        ตรงนี้คือการนำ GSP และ 2405 และ 0001 มารวมกันครับ
End Function

ขอบคุณล่วงหน้าสำหรับความช่วยเหลือครับ

8
ห้อง MS Access / : รบกวนผู้รู้ช่วยด้วยครับ
« เมื่อ: 27 ธ.ค. 64 , 15:16:43 »
ขอบคุณมากครับ :miao: :miao: :miao:

9
ห้อง MS Access / : รบกวนผู้รู้ช่วยด้วยครับ
« เมื่อ: 27 ธ.ค. 64 , 15:00:42 »
อ้างจาก: sjs ที่ 27 ธ.ค. 64 , 14:53:48
ใช้  Datediff ช่วยเช็คได้ไหมครับ



ขอบคุณมากเลยครับ แต่ผมอาจจะอธิบายไปชัดเจน ผมอยากให้ lock record วันที่ 3 ในเดือนถัดไปครับ จะใช้วิธีนี้ได้ไหมครับ?? แล้วมันจะใช้ได้ทุกเดือนไหมครับ??

10
ห้อง MS Access / รบกวนผู้รู้ช่วยด้วยครับ
« เมื่อ: 27 ธ.ค. 64 , 09:01:45 »
สวัสดีครับ คือผมอยากจะกำหนดให้ Lock Record เมื่อสิ้นสุดเดือนนั้นๆแล้วผมได้คุณ PNR ให้วิธีตามด้านล่างมา



" ทำได้ 2 แบบด้วยกัน
แบบที่ 1
สมมุติตารางชื่อ Mytable
Field ไอดี ชื่อ ID
Field วันที่ ชื่อ Mydate

คิวรี่กำหนดดังนี้
SELECT Mytable.ID, IIf(Month([Mydate])=Month(Date()) And Year(Date())=Year([Mydate]),1,0) AS CheckMonth
FROM Mytable;
กำหนดชื่อคิวรี่ชื่อ QryCheckMonth
คิวรี่ด้านบน ท่านจะได้ข้อมูล ที่ถ้าหากปีเป็นปีปัจจุบัน และเดือนเป็นเดือนปัจจุบัน จะมีค่าเท่ากับ 1 ส่วนเดือนอื่นๆ ปีอื่นๆจะเท่ากับ 0

ต่อไปเขียนโค้ดไว้เรียกใช้เงื่อนไขในการเช็ค
Private Sub CheckAllowEdits()
Dim MonthCheck As String
MonthCheck = DLookup("CheckMonth", "QryCheckMonth", "ID =" & Me.ID & "")
If MonthCheck = 0 Then
Me.AllowEdits = False
Me.Undo
Else
Me.AllowEdits = True
End If
End Sub

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


แบบที่ 2 สามารถใช้กับ Formแบบ  Continuous Form ได้ดี
สมมุติตารางชื่อ Mytable
Field ไอดี ชื่อ ID
Field วันที่ ชื่อ Mydate

คิวรี่ ที่จะเป็น Record Source โค้ดจะเป็น
SELECT IIf(Month([Mydate])=Month(Date()) And Year(Date())=Year([Mydate]),1,0) AS CheckMonth, *
FROM Mytable;

เวลาเรานำ ข้อมูลลงมาบน Control ก็นำ Field CheckMonth ลงมาด้วย ตั้งชื่อ textbox ว่า CheckMonth เลย
โดยเราจะสามารถ กำหนดให้ซ่อนไว้ก็ได้ครับ ไม่ต้องแสดง
ต่อไปเราจะสร้างเงื่อนไขในการ ปิดการแก้ไขข้อมูลโดยใช้การจัดรูปแบบตามเงื่อนไข

กำหนดนิพจน์ตามภาพ

วิธีนี้เวลาแสดงในฟอร์มแบบ Continuous Form
ถ้าrecord ไหน CheckMonth = 0 จะถูก Enabled = false ทันที
คือกดแก้ไขไม่ได้เลย ถ้า CheckMonth = 1 ก็จะแก้ไขได้ปกติ "




แล้วคราวนี้จะรบกวนทุกท่านว่า ถ้าผมอยากให้ Lock Record 3วันหลังจากสิ้นเดือน ไม่ทราบว่าทุกท่านมีไอเดียอะไรบ้างไหมครับ???

11
ห้อง MS Access / : สอบถามการ Lock ไม่ให้พนักงานแก้ไขข้อมูลครับ
« เมื่อ: 25 พ.ย. 64 , 14:43:16 »
ขอบคุณมากครับ อยากทราบว่าพอมีตัวอย่าง code VBA ไหมครับ?? เดี๋ยวผมไปแปลงเป็นแบบของผมเองครับ ขอบคุณครับ

12
ห้อง MS Access / สอบถามการ Lock ไม่ให้พนักงานแก้ไขข้อมูลครับ
« เมื่อ: 25 พ.ย. 64 , 13:36:47 »
ผมมีเรื่องสอบถามครับ
1. ผมอยากที่จะ Lock เมื่อพนักงานใส่ข้อมูลเรียบร้อยแล้วและไม่ให้มาแก้ไขอีกเมื่อเวลาผ่านไป 5 วัน สามารถทำได้ไหมครับ??
2. ผมอยากให้เวลาพนักงานกด Save หรือ Submit แล้วให้ auto เปลี่ยนข้อความในช่องสถานะ

ขอบคุณมากครับ รบกวนด้วยครับ

13
ห้อง MS Access / สอบถามเรื่องการ Export Table ครับ
« เมื่อ: 07 พ.ค. 64 , 13:31:46 »
อยากจะสอบถามว่า Table ลักษณะอย่างนี้ เรา Export ออกมาได้ไหมครับ?? ทำยังไงครับ?? หรือมีวิธีการอื่นไหมครับที่ทำให้ได้เป็นแบบนี้ครับ??? ขอบคุณครับ




14
ห้อง MS Access / : อยากจะปรับขนาดตัวอักษรใน Subform ที่เป็น DataSheet ยังไงครับ???
« เมื่อ: 29 เม.ย. 64 , 13:18:25 »
ขอบคุณมากครับ กรรมจริงๆผมไม่รู้เลย ไปหาตรง Property อย่างเดียว

15
ห้อง MS Access / อยากจะปรับขนาดตัวอักษรใน Subform ที่เป็น DataSheet ยังไงครับ???
« เมื่อ: 29 เม.ย. 64 , 09:18:46 »
ผมอยากจะปรับขนาดตัวอักษรใน Subform ที่เป็น DataSheet ยังไงครับ??? ขอบคุณครับ


16
ห้อง MS Access / : สอบถามเรื่อง Query จาก 2 Table แล้วมีปัญหานิดหน่อยครับ???
« เมื่อ: 27 เม.ย. 64 , 14:34:48 »
ขอบคุณครับ เดี๋ยวจะลองดูครับ

17
ห้อง MS Access / สอบถามเรื่อง Query จาก 2 Table แล้วมีปัญหานิดหน่อยครับ???
« เมื่อ: 26 เม.ย. 64 , 12:22:54 »
ผมสร้าง Query จาก 2 Table คือ
1. Table Job งาน จะมี Job No., Cost ต่างๆ ฯลฯ
2. Table Truck จะมี Job No, Truck No. ฯ

2 Table นี้เชื่อมด้วย Job No. และทำการ query ได้ออกมาแบบนี้



จะเห็นว่าถ้า 1 Job มีรถมากกว่า 1 คัน มันจะเบิ้ลแถวขึ้น แล้วเวลาดูค่าใช้จ่าย กำไร ขาดทุน มันจะผิด

คำถาม ผมอยากทราบว่ามีวิธีที่ทำให้มันโชว์ ค่าใช้จ่าย กำไร ขาดทุน แค่แถวเดียว แต่จำนวนรถโชว์ตามปกติไหมครับ??

หรือ สามารถทำให้รถใน Job นั้นๆมีกี่คันก็ตามแต่โชว์ในแถวเดียวกันหมดเลย ได้ไหมครับ???

ขอบคุณครับ

18
ห้อง MS Access / : ต้องการในค่า Sum ใน Subform ไปใส่ใน field ของอีก Table ต้องทำยังไงครับ
« เมื่อ: 19 มี.ค. 64 , 14:55:16 »
ขอบคุณสำหรับแนวทางครับ ผมจะลองทำตามดูนะครับ

หน้า: [1] 2 3 4 5