แสดงกระทู้

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

หน้า: [1] 2
1
สวัสดีครับ ผมทำปุ่มให้ print หน้า Form แต่พริ้นออกมาไม่มีข้อมูลออกมาครับ ต้องแก้ไขอย่างไรครับ??

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





2
สวัสดีครับ ผมต้องการความช่วยเหลือครับคือ จะแก้ไขการโชว์เลขงานครับ จากเดิมเลขงานคือ 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

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

3
สวัสดีครับ คือผมอยากจะกำหนดให้ 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วันหลังจากสิ้นเดือน ไม่ทราบว่าทุกท่านมีไอเดียอะไรบ้างไหมครับ???

4
ผมมีเรื่องสอบถามครับ
1. ผมอยากที่จะ Lock เมื่อพนักงานใส่ข้อมูลเรียบร้อยแล้วและไม่ให้มาแก้ไขอีกเมื่อเวลาผ่านไป 5 วัน สามารถทำได้ไหมครับ??
2. ผมอยากให้เวลาพนักงานกด Save หรือ Submit แล้วให้ auto เปลี่ยนข้อความในช่องสถานะ

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

5
อยากจะสอบถามว่า Table ลักษณะอย่างนี้ เรา Export ออกมาได้ไหมครับ?? ทำยังไงครับ?? หรือมีวิธีการอื่นไหมครับที่ทำให้ได้เป็นแบบนี้ครับ??? ขอบคุณครับ




6
ผมอยากจะปรับขนาดตัวอักษรใน Subform ที่เป็น DataSheet ยังไงครับ??? ขอบคุณครับ


7
ผมสร้าง 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 นั้นๆมีกี่คันก็ตามแต่โชว์ในแถวเดียวกันหมดเลย ได้ไหมครับ???

ขอบคุณครับ

8
สวัสดีครับ ผมต้องการนำค่าผล Sum ข้างล่าง ไปใส่ใน ช่องหน้า form หลักต้องทำยังไงครับ??



จากภาพบนวงกลมแรกคือช่องผมรวมของ Cost Sup ผมอยากให้ค่านี้ไปใส่ในช่องวงกลมข้างล่างที่ช่อง CostTruckingSupplier แต่ช่อง CostTruckingSupplier จะเก็บค่าของที Table นึง ถ้าไม่ใช้การพิมพ์ลงไปเอง จะมีวิธีนำค่า Sum CostSup มาใส่ที่ช่อง CostTruckingSupplier ไหมครับ

ขอบคุณครับ

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

ขอบคุณครับ

10
ห้อง MS Access / สอบถามการออกแบบ Table ครับ
« เมื่อ: 09 มี.ค. 64 , 09:36:36 »
สวัสดีครับ วันนี้มีเรื่องคิดไม่ตกเกี่ยวกับ Table ครับ พอดีได้ request เพิ่มเติมครับ เค้าอยากให้เพิ่ม PO Truck Number เป็นโมดูลใหม่เพื่อออกบิลให้ Supplier แต่ติดที่ table ที่ผมออกแบบในตอนแรก เค้าว่า 1 Job มีรถหลายคัน ผมเลยทำแบบรูปข้างล่างนี้ครับ



แล้วเอา Table นี้ไม่ทำ Query Union เพื่อให้ออกมาเป็นแบบด้านล่างครับ





ผมก็เลยเอา Query Union ที่ทำไปทำ Query กับ PO Truck Table โดยใช้ JobNO ในการ Relationship กัน แต่ปรากฏว่าไม่สามารถใส่เลขในช่อง PO ได้

คำถาม

1. ใครพอมีไอเดียช่วยผมในเรื่องนี้บ้างไหมครับ
2. หรือผมจะต้องรื้อ Table ใหม่หมดเลยครับ
3. ใครมีไอเดียที่สามารถใส่ เลขทะเบียนรถ ได้มากกว่า 1 คัน โดยไม่ต้องทำ Table แยกเป็น Truck 1/ Truck 2........ บ้างครับ

ปล. นี่คือ Table PO Truck ครับ



ขอบคุณครับ


11
ห้อง MS Access / สอบถามการเขียนครับ
« เมื่อ: 08 มี.ค. 64 , 13:30:42 »
ตอนนี้ผมมีปัญหาตรงในหน้า form ผมมีปุ่มไว้ Gen เลข Job ปัญหาที่เกิดคือ พนักงานมักเผลอไปกดทำให้เลข Job ไม่เป็นจริง เลยอยากสอบถามว่ามีวิธีเช็กใหมครับ

ผมอยากให้พอกดปุ่มนี้แล้ว ถ้าช่อง Job No. ว่างเปล่าให้ใส่ค่าได้เลย แต่ถ้าช่อง Job No. มีค่าอยู่ให้ reject และ แจ้งเตือนครับ



อันนี้ส่วนหน้า code ครับ ที่เป็นคำสั่งในการ Gen เลข Job



ขอบคุณครับ

12
สอบถามว่าถ้าถ้ามีการ Save ทับ record เดิมให้แจ้งเตือนได้ไหมครับ และให้เลือกว่า save ทับหรือไม่น่ะครับ

13
อยากทราบว่า Criteria ใน Query สามารถทำแบบข้างล่างได้ไหมครับ



จากรูป ผมอยากได้คือ
1. เมื่อเลือกแค่ Start Date กับ End Date แล้วให้โชว์เลขทะเบียนทั้งหมดในช่วงเวลา อันนี้ทำได้แล้ว
2. เมื่อเลือกแค่เลขทะเบียนรถอย่างเดียว ให้โชว์ประวัติของเลขนั้นตั้งแต่ต้นจนจบ อันนี้ทำได้แล้ว
3. เมื่อเลือกทั้งหมด เลือกทั้ง Start Date, End Date และทะเบียนรถ แล้วให้โชว์ทะเบียนนั้นๆในช่วงเวลาที่เลือก อันนี้ทำยังไงครับ???

ขอบคุณครับ

ปล. อันนี้หน้าของ Query ครับ




14
สวัสดีครับ ผมอยากทราบว่าทำได้ไหม ในหน้า Form ผมอยากใช้ Drop down เลือก TruckNO แล้วอยากให้ช่อง TruckBrand กับ DriverName Fill ข้อมูลเองได้ไหมครับ โดย TruckNO, TruckBrand และ DriverName มาจาก Table เดียวกัน




15
อยากจะ Lock Record ที่มีการบันทึกไปแล้วไม่ให้แก้ไข ทำได้ไหมครับ???

งานของผมเป็นการ Booking รถและค่าใช้จ่าย แต่ตอนนี้พนักงานสามารถเข้าไปแก้ไขงานเก่าได้ตลอด Access สามารถ Lock ได้ไหมครับว่าไม่สามารถแก้ไขงานของเดือนที่แล้วได้น่ะครับ ขอบคุณครับ

16
ผมสงสัยทำไมมันขึ้น #Name? รูปแรกใน TextBox วงกลมสีน้ำเงินผมใส่ =Format([Date],"yymm") โดย Date อ้างอิงมาจากวงกลมสีแดง



แต่พอกดเป็นหน้า Form แล้วใน TextBox ในวงกลมสีน้ำเงินกลับขึ้น #Name?



ผมพลาดตรงไหนครับ พยายามไล่ดูแล้วไม่น่าจะพลาด เพราะการอ้างอิงแบบนี้ใน Form อื่นก็ขึ้นค่าปกติครับ

17
สอบถามการสั่งพริ้นครับ ว่าสามารถตั้งค่าให้สั่งพริ้นได้ครั้งเดียว ทำได้ไหมครับ??

ขอบคุณครับ

18
สวัสดีครับ ขอคำแนะนำครับ

ตอนนี้ผมมีปัญหาคือ เปิด record เดียวกัน คนนึงใส่ข้อมูลอีกคนดูอย่างเดียว แล้วถ้าคนใส่ข้อมูล save และปิด record ก่อนคนดู กลายเป็นว่า record นั้นจะไม่มีข้อมูลเพราะคนดูยังไม่มีข้อมูลครับ

มีวิธีอื่นที่ป้องกันและแก้ปัญหานี้ไหมครับ??

หน้า: [1] 2