แสดงกระทู้

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

หน้า: [1] 2 3 4 ... 18
1
ลองแก้ Ctl.BackColor เป็น StatusSamsung_Age.BackColor = RGB(0, 255, 0) ดูครับ
StatusSamsung_Age คือชื่อ
หรือไม่ก็คงตรงที่มีคำสั่งให้ Exit For (ผมไม่รู้จักหรือเคยใช้ :question:)


ปล.ส่วนที่เป็นโค้ดก็อบมาวางเลยก็จะดีนะ :dizzy:

2
ถ้าคิดจะทำเหมือนกับ Autonumber คือ 1,2,3,4,... ก็ใช้มันไปไม่ต้องคิดอะไร
แต่ถ้าจะแบบว่ามีตัวหนังสือหรือปีเดือนวันมาเกี่ยวข้องหาดูการทำ running number มีเยอะมากครับ

ตัวอย่าง
https://www.thai-access.com/index.php?topic=416.msg1892#msg1892
https://www.thai-access.com/index.php?topic=1006.msg4419#msg4419

3

ถ้าเกี่ยวข้องกับวิธีแก้ชื่อฟิลด์ของผมมันดันมีผลกับทุกอย่างที่เรียกใช้คิวรี่นี้ก็ต้องไปแก้ชื่อฟิลด์ที่เรียกไปใช้เป็นชื่อที่ตั้งใหม่ด้วยอ่ะนะ :sweat:
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

4
แถมวิธีที่แสดงในคิวรี่เฉยๆ ชื่อที่แสดง: [ชื่อฟิลด์] เช่น ไอดี:[ID] , เลขบัตร:[ID_Card] , รหัส:[Code ]

5
ลองเข้าทางนี้ดูก่อนว่าได้หรือไม่ หรือปุ่มลัดกด Alt + 11


ถ้าเข้าได้แล้วลองไปกดเข้าที่เคยเกิด ปัญหาอีกทึว่าหายไหม

หรือกด Alt + F11

6
วิธีแก้ให้สีไม่สลับกันคือตั้งค่า Alternate Back Color = No Color ตามรูปตัวอย่างครับ

ของท่านกดที่"ส่วนรายละเอียด"จะตั้งค่าได้ครับว่าสี1/สี2จะเอาสีไหนหรือไม่เอาสีอะไรเลยก็ได้ครับ

7
ใช้ตัวลูกน้ำ , แล้วก็เพิ่มตัวปิดท้ายไปด้วย ,"-")
โค๊ด: [Select]
=IIf([ptts1_Exp]-Date()<90,IIf([ptts1_Exp]-Date()>30,"หมดอายุภายใน 3 เดือน","-"),"-")
ที่มา https://www.thai-access.com/index.php?topic=567.msg2498#msg2498

9
อยากทราบวิธีทำ @tag all member in group ครับ :question:

10
ห้อง MS Access / : export to excel
« เมื่อ: 22 มิ.ย. 64 , 11:36:53 »
เปิดทั้งหมดตามภาพท่าน PNR ดูครับ
ตรง Tool >> Reference
เพิ่มตัว MS OFFICE XX Object libary ด้วยครับ ตามภาพ


11
>มันคือการคัดลอกฟิวล์ผลลัพท์ไปใส่ฟิวล์เลขที่สด1ที่อยู่ในคิวรี่เดียวกันใช่หรือไม่ครับ :question:
ถ้าอย่างนั้นเขียนคำสั่งในคิวรี่ให้คัดลอกเองเลยก็ได้ครับ(อันนี้รออาจารย์ท่านอื่นนะ)

หรือตอนที่คำนวนผลลัพท์ก็เชื่อมตารางเลขที่สด1มาแล้วสั่งให้นำค่าไปใส่ด้วยเช่น  Me![เลขที่สด1].Value = Me![ผลลัพท์].Value

ปล.แนบไฟล์ของท่านมาให้ดูแนวทางของคำถามเพื่อหาคำตอบได้ไหมครับ :wut:

12
> ลองจัดชุดคำสั่งเป็นแบบนี้ครับ
DoCmd.SetWarnings False
Dim SQL As String
        SQL = "UPDATE select SET select.เลขที่สด1 =Text188.value"
        DoCmd.RunSQL SQL
        Me.Refresh 'หรือ Me.Recalc
DoCmd.SetWarnings True

> หรืออัพเดทที่ตาราง tb_recuit โดยใช้ WHERE เพื่อกรองข้อมูลที่ต้องการ
.....
        CurrentDb.Execute = "UPDATE tb_recuit SET เลขที่สด1 = "& me.Text188 &" WHERE ฟิวส์ = '" & มีค่าเท่ากับ & "'", dbFailOnError
        Me.Recalc
.....

13
ห้อง MS Access / : web app ใน msaccess2013
« เมื่อ: 06 มิ.ย. 64 , 11:30:51 »
ผมก็ไม่ทราบวิธีจึงไปค้นหาพบประกาศจากทางผู้พัฒนาขอนำมาบอกต่อครับ

อ้างถึง
สำคัญ    กำลังลบ Access Services 2010 และ Access Services 2013 ออกจาก SharePoint รุ่นถัดไป เราขอแนะนำให้คุณอย่าสร้างเว็บแอปใหม่ และโยกย้ายแอปที่มีอยู่ของคุณไปยังแพลตฟอร์มอื่น เช่น Microsoft Power Apps

ที่มา https://1th.me/58buV link

14
ตรงส่วนของตั้งค่าหน้ากระดาษของรายงาน
สามารถกำหนด 2 column ได้ครับ แต่หัวเรื่องแบบนั้นจะมีอันเดียวครับ
:love: :love: :love:

MS Access 2007: Create a 2 column report link
Microsoft Access 2016 Reports: Multiple Report Columns and Groups link

15
แนวแบ่งอย่างนี้ผมก็ทำไม่เป็นนะครับ :dizzy:

16
-> กรองชื่อลูกค้าโดยวิธีลิ้งฟอร์มหลัก-ฟอร์มย่อย
-> กรองวันที่ออกบิลโดยใช้คำสั่ง Filter
โค๊ด: [Select]
Private Sub cmdDate_Click()
Me.fm_Invoice_sub2.Form.Filter = "[Saledate] BETWEEN #" & Format(Me.BeginDate, "dd mmm yyyy") & "# AND #" & Format(Me.EndDate, "dd mmm yyyy") & "#"
Me.fm_Invoice_sub2.Form.FilterOn = True
Me.fm_Invoice_sub2.Form.Refresh
Call Form_Current
End Sub

ไฟล์ตัวอย่างผมสร้างตาราง,ฟอร์มหลัก,รีพอร์ทชื่อ Invoice มาให้ใหม่ ส่วนฟอร์มย่อย Invoice_sub จะดึงข้อมูลบิลที่เคยออกไปจากตาราง Sale_H

หน้า: [1] 2 3 4 ... 18