33
ห้อง MS Access / ปิดแจ้งเตือนเพิ่ม Row
« เมื่อ: 26 ส.ค. 64 , 09:32:40 »
ต้องการปิดการแจ้งเตือนแค่คำสั่งนี้ในปุ่มนี้เท่านั้นครับไม่ทราบว่าทำเขียน VBA อย่างไรครับ
แสดงกระทู้
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.
ต้องการปิดการแจ้งเตือนแค่คำสั่งนี้ในปุ่มนี้เท่านั้นครับไม่ทราบว่าทำเขียน VBA อย่างไรครับ
34
ห้อง MS Access / เพิ่มข้อมูลในฟิลที่ชื่อเดิมแต่ +1
« เมื่อ: 19 ส.ค. 64 , 16:14:02 »
Form ผมตามคลิปนี้เลยครับ
ตามในคลิปนี้เลยครับ ผมกรอกวันที่ใน T1Temp พอกด GO มันจะเอาข้อมูลไปเพิ่มในฟิลด์ 1 และเคลีย T1Temp เป็น Null
อยากสอบถามว่าเราสามารถตรวจสอบได้ไหมครับว่าถ้าใครมีฟิลด์ T1 แล้ว ให้ไปใส่ข้อมูลที่ T2 แทน
ตามในคลิปนี้เลยครับ ผมกรอกวันที่ใน T1Temp พอกด GO มันจะเอาข้อมูลไปเพิ่มในฟิลด์ 1 และเคลีย T1Temp เป็น Null
อยากสอบถามว่าเราสามารถตรวจสอบได้ไหมครับว่าถ้าใครมีฟิลด์ T1 แล้ว ให้ไปใส่ข้อมูลที่ T2 แทน
35
ห้อง MS Access / ใส่ชื่อฟิลด์เป็นภาษาไทยใน Query
« เมื่อ: 19 ส.ค. 64 , 14:16:10 »
อยากเปลี่ยนชื่อพวกนี้ให้เป็นภาษาไทยสามารถทำได้ไหมครับ ใช้ในกรณีที่ User export ไปบางทีเขาอาจไม่เข้าใจฟิลที่มาจาก Table ตรงๆ ครับ
36
ห้อง MS Access / จัดกึ่งกลางข้อมูลใน Query
« เมื่อ: 19 ส.ค. 64 , 13:54:53 »
ผม Export excel โดย Export จาก Query ใน Table จัดกึ่งกางได้ แต่ใน Query มันไม่เป็นกึ่งกลาง ทำให้ User ต้องค่อยจัดเอง ไม่ทราบว่ามันต้องจัดตรงไหนยังไงก่อนไหมครับ
กดไม่ได้ครับ
กดไม่ได้ครับ
37
ห้อง MS Access / ลบข้อมูลออกจากฟิลเมื่อกดปุ่ม ขณะเดียวกันก็เอาข้อมูลนั้นเพิ่มไปอีกฟิล
« เมื่อ: 18 ส.ค. 64 , 14:26:20 »
ประมาณนี้ครับ เลือกติ๊กคนมาแล้วใส่วันที่ให้เขา ในForm พอกดปุ่ม ก็ให้ลบข้อมูลในฟิลด์ DateTemp(ข้อมูลที่เราเพิ่งกรอกไป) แล้วก็เอาข้อมูลที่กรอกนี้ไปเพิ่มในอีกตาราง
ไม่ทราบว่าต้องเขียน VBA อย่างไรครับ
38
ห้อง MS Access / Login กด Enter ทีเดียว
« เมื่อ: 18 ส.ค. 64 , 10:25:05 »
หน้าตา Login
เบื้องต้นผมลองใช้โค้ดนี้ครับ ใช้ได้ปกติครับตามต้องการครับ
แต่จะให้ User ทำได้ 2 ทางคือ Click และกด Enter มันต้อง Event on อะไรครับตอนนี้ใช้ 2 ตัว 2 Event แบบนี้ไม่ได้ขึ้น Error ครับ
เบื้องต้นผมลองใช้โค้ดนี้ครับ ใช้ได้ปกติครับตามต้องการครับ
แต่จะให้ User ทำได้ 2 ทางคือ Click และกด Enter มันต้อง Event on อะไรครับตอนนี้ใช้ 2 ตัว 2 Event แบบนี้ไม่ได้ขึ้น Error ครับ
39
ห้อง MS Access / สอบถามโค้ดจากกระทู้เก่าใช้ไม่ได้กับ Access ปัจจุบัน
« เมื่อ: 18 ส.ค. 64 , 09:32:40 »
https://www.thai-access.com/topic_post.asp?CategoryID=1&TopicID=3316
นั้นี้เป็นกระทู้เก่าครับ ผมลองก็อปโค้ดของอาจารย์ TTT มาใส่แต่ว่ามันเป็นสีแดง ไม่ทราบว่ามันต้องปรับหน้าตาตรงไหนให้มันใช้ได้กับ Access ปัจจุบันหรอครับ
เบื้องลองแก้เองตามนี้ แต่ก็ติดปัญหาตรงนี้ครับ
นั้นี้เป็นกระทู้เก่าครับ ผมลองก็อปโค้ดของอาจารย์ TTT มาใส่แต่ว่ามันเป็นสีแดง ไม่ทราบว่ามันต้องปรับหน้าตาตรงไหนให้มันใช้ได้กับ Access ปัจจุบันหรอครับ
เบื้องลองแก้เองตามนี้ แต่ก็ติดปัญหาตรงนี้ครับ
40
ห้อง MS Access / สอบถามแนวทางความเป็นไปได้ ของ Form นี้ครับ
« เมื่อ: 17 ส.ค. 64 , 14:21:40 »
สิ่งที่ผมไม่ทราบว่าทำได้ไหม
- ให้มันสร้างฟิลมาเองใน Query แล้วใส่โค้ดเองไปด้วยในฟิลด์นั้นๆ
ไม่ทราบว่า Form นี้สามารถเป็นไปได้ไหมครับ
41
ห้อง MS Access / สอบถามโค้ดไม่ตก Else
« เมื่อ: 17 ส.ค. 64 , 08:49:16 »
เป็นโค้ดล็อกอินครับ แต่เมื่อกรอกรหัสผิด มันไม่โชว์ MsgBox ไม่ทราบว่าติดตรงไหนที่มันไม่ออก Else หรอครับ
โค๊ด: [Select]
Private Sub Command9_Click()
Dim fpass As String
Dim flevel As String
On Error GoTo 1:
fpass = DLookup("[Password]", "UserV", "[UserName]='" & Me.UserBox & "'")
If fpass = Me.PassBox Then
DoCmd.OpenForm "PIScreen_vaccine", acNormal, "", "", , acNormal
DoCmd.Close acForm, "Login4"
Else
MsgBox "Try Again"
End If
Exit Sub
1:
End Sub
42
ห้อง MS Access / สอบถามโค้ดให้เติมสีลงในช่องจากเงื่อนไขครับบน Query ครับ
« เมื่อ: 13 ส.ค. 64 , 16:06:03 »
ผมมีโค้ดตรวจสอบว่า ถ้าเลยมา 1 วันให้เติมสีแดง นอกจากนั้นไม่ต้องทำอะไร แต่ไม่ทราบว่าใน Query สามารถทำได้ไหมครับ
43
ห้อง MS Access / สอบถามการอิงถึง Subform ที่ดึงมาจาก Table ตรงๆ
« เมื่อ: 13 ส.ค. 64 , 09:49:33 »
ผมพยายามยามจะโค้ดใส่ Subform ที่ดึงมาจาก Table แต่ไม่ทราบว่ามันอิงไม่ได้หรือผมอิงไม่ถูกครับ มัน Error แบบนีั้ครับ
44
ห้อง MS Access / สอบถามการยกเลิกการ Sort by ในฟิลครับ
« เมื่อ: 13 ส.ค. 64 , 08:14:57 »
ผมเผลอไปกด Sort ใน ฟิล แล้วหาทางเอาออกไม่เจอครับ ลบฟิลเอาเข้าใหม่ก็แล้ว ไม่ทราบว่าต้องทำอย่างไรครับรบกวนทีครับขอบคุณครับ
45
ห้อง MS Access / ย้ายไฟล์ Access แล้วโค้ดไม่ทำงาน
« เมื่อ: 10 ส.ค. 64 , 15:44:03 »
สอบถามพี่ๆ ที่รับงานเขียนโปรแกรมเวลาส่งงานให้ลูกค้าต้องส่งออกรูปแบบไหนหรอครับ ผมลองย้าย Access ในคอมขึ้นไฟล์กลาง(Map drive) โค้ดต่างๆนาๆ ส่วนมาใช้งานไม่ได้เลยครับ (โค้ดค้นหา,รีคิวรี่,นับจำนวนตารางจากคิวรี่) รบกวนช่วยด้วยครับ
46
ห้อง MS Access / สอบถามโค้ด Export excel ให้เป็น Full screen ครับ
« เมื่อ: 10 ส.ค. 64 , 10:08:31 »
คือ Form ผมเป็น Popup ถ้าหาก เวลากดปุ่ม Export เป็น Popup ด้วยมันไม่เด้งมาโชว์ข้างหน้าโปรแกรมครับ แต่ถ้าเป็นแบบ Full screen จะไม่มีปัญหาครับ
โค้ดที่ผมใช้แล้วมันเป็น Full screen
Dim sFilename As String
sFilename = "D:\TestProject\Results.xlsx"
DoCmd.OutputTo acOutputQuery, "Q_PI_Checkbox", acFormatXLSX, sFilename, True
โค้ดนี้จะ Export ข้อมูลตามที่เราค้นหา แต่ผมไม่แน่ใจว่าจะเอาโค้ดข้างบนไปดัดแปลงใส่ข้างล่างตรงไหนครับ
Dim xlapp As Object
Dim i As Long
If Me.Dirty Then Me.Dirty = False
Dim rsClone As DAO.Recordset
Set rsClone = Me.PIT.Form.RecordsetClone
If rsClone.EOF Then
MsgBox "ไม่มีข้อมูลที่จะ Export!!", vbCritical, "สถานะ"
Set rsClone = Nothing
Exit Sub
End If
Set xlapp = CreateObject("excel.application")
With xlapp
.Visible = True
.workbooks.Add
.sheets("Sheet1").select
.activesheet.range("A2").copyfromrecordset rsClone
For i = 1 To rsClone.Fields.Count
xlapp.activesheet.Cells(1, i).Value = rsClone.Fields(i - 1).Name
Next i
xlapp.Cells.EntireColumn.AutoFit
End With
โค้ดที่ผมใช้แล้วมันเป็น Full screen
Dim sFilename As String
sFilename = "D:\TestProject\Results.xlsx"
DoCmd.OutputTo acOutputQuery, "Q_PI_Checkbox", acFormatXLSX, sFilename, True
โค้ดนี้จะ Export ข้อมูลตามที่เราค้นหา แต่ผมไม่แน่ใจว่าจะเอาโค้ดข้างบนไปดัดแปลงใส่ข้างล่างตรงไหนครับ
Dim xlapp As Object
Dim i As Long
If Me.Dirty Then Me.Dirty = False
Dim rsClone As DAO.Recordset
Set rsClone = Me.PIT.Form.RecordsetClone
If rsClone.EOF Then
MsgBox "ไม่มีข้อมูลที่จะ Export!!", vbCritical, "สถานะ"
Set rsClone = Nothing
Exit Sub
End If
Set xlapp = CreateObject("excel.application")
With xlapp
.Visible = True
.workbooks.Add
.sheets("Sheet1").select
.activesheet.range("A2").copyfromrecordset rsClone
For i = 1 To rsClone.Fields.Count
xlapp.activesheet.Cells(1, i).Value = rsClone.Fields(i - 1).Name
Next i
xlapp.Cells.EntireColumn.AutoFit
End With
47
ห้อง MS Access / สอบถามการ Login แล้วมีผลต่อการมองเห็นข้อมูลใน Form ต่างกัน
« เมื่อ: 10 ส.ค. 64 , 09:22:53 »
ตามนี้เลยครับ
โค้ดล็อกอิน
ขอสอบถามว่าถ้าจะทำแบบนี้
1.ต้องใช้ตัวแปรทีเป็นชนิดที่ใช้ข้าม Form ได้ซึ้งเก็บค่า User แล้วเอามาเช็คที่ Form ที่จะแสดงผลว่าเป็น "นายเอ" หรือ "นายบี"
ถ้าเป็นนายบีให้ TextIDCard.Visible = False
วิธีนี้เป็นวิธีที่เวิร์คแล้วเป็นไปได้ไหมครับ หรือว่ามีวิธีอื่น ขอบคุณครับ
โค้ดล็อกอิน
ขอสอบถามว่าถ้าจะทำแบบนี้
1.ต้องใช้ตัวแปรทีเป็นชนิดที่ใช้ข้าม Form ได้ซึ้งเก็บค่า User แล้วเอามาเช็คที่ Form ที่จะแสดงผลว่าเป็น "นายเอ" หรือ "นายบี"
ถ้าเป็นนายบีให้ TextIDCard.Visible = False
วิธีนี้เป็นวิธีที่เวิร์คแล้วเป็นไปได้ไหมครับ หรือว่ามีวิธีอื่น ขอบคุณครับ
48
ห้อง MS Access / สอบถามการ Running Sum ตามจำนวน Row บน Form
« เมื่อ: 10 ส.ค. 64 , 08:22:14 »
ผมต้องการให้เวลาที่เราติ๊กเช็คบ๊อก ตรงฟิล จำนวน ให้มันส้รางเลขขึ้นมาตามจำนวน Row ครับ
ใน Report มีฟังจะชั่น Running Sum สามารถทำได้ง่ายๆ
แต่ใน Form มันไม่มีอะครับ
ไม่ทราบว่าผมต้องเปลี่ยนเป็นวิธีไหนแทนครับ
ใน Report มีฟังจะชั่น Running Sum สามารถทำได้ง่ายๆ
แต่ใน Form มันไม่มีอะครับ
ไม่ทราบว่าผมต้องเปลี่ยนเป็นวิธีไหนแทนครับ
