แสดงกระทู้

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 ... 10
1
ห้อง MS Access / : ปฏิทินตารางนัด
« เมื่อ: 07 มิ.ย. 67 , 11:01:22 »
ค้นเจอเว็บนอกมีไฟล์แจกด้วยลองดูครับ

https://msaccessgurus.com/tool/CalendarMaker.htm#Download
โพสต์นี้ได้รับคำขอบคุณจาก: Un

2
แนวทางคื่อใช้ Access เป็นฐานข้อมูล

Access เมื่อเพิ่มหรือแก้ไข้ข้อมูล = ข้อมูลอยู่ในตัวเอง

แล้วเมื่อ excel เพิ่มหรือแก้ไข้ข้อมูล <-> ส่งข้อมูลไปให้ Access // ลองศึกษาแนวทางดูครับ(ผมก็ใช้ excel ดึง,เพิ่มข้อมูลลูกค้าไปยัง Access)
CONNECT EXCEL AND MS ACCESS USING EXCEL VBA MACROS
[EP0] เริ่มต้น เขียนโปรแกรม excel vba ติดต่อฐานข้อมูล microsoft access

ปล.ในความคิดผม excel ไม่ได้ถูกออกแบบมาให้เชื่อมต่อข้อมูลภายนอกตลอดเวลา เช่น เมื่อเปิดเอกสารมาก็ต้องสั่งให้ไปดึงข้อมูล , เมื่อเพิ่มหรือแก้ไขข้อมูลจะยังไม่ไปไหนถ้าเรายังไม่สั่ง ,
ถ้าเปิดไฟล์พร้อมกัน เมื่อ excel สั่งเพิ่มหรือแก้ไข้ข้อมูล Access รู้ตัวอัพเดทข้อมูลทันทีโดยที่ไม่ต้องสั่ง แต่ถ้า Access เพิ่มหรือแก้ไข้ข้อมูล excel จะไม่รู้สึกตัวอะไรเลยจนกว่าเราจะสั่ง
โพสต์นี้ได้รับคำขอบคุณจาก: sjs

3
เครื่องคอมฯผมตั้งค่าแสดงวันที่เป็น US = แสดงผลออกเป็น ๒๐๒๔ เช่นกัน
จึงลองแกะโค้ดอ.TTT แล้วแก้ตรง
โค๊ด: [Select]
tDay(o, iCount) = cThaiNumber(Day(i)) & " " & MonthNameThai(i) & " " & cThaiNumber(IIf(Year(i) = Format(i, "yyyy"), Year(i) + 543, Format(i, "yyyy")))
ให้เหลือแค่
โค๊ด: [Select]
tDay(o, iCount) = cThaiNumber(Day(i)) & " " & MonthNameThai(i) & " " & cThaiNumber(Year(i) + 543)

ได้ผลลัพธ์เป็นปี ๒๕๖๗  :love:
โพสต์นี้ได้รับคำขอบคุณจาก: TTT, mtaccess

4
Exp5: IIf([ชื่อฟิวส์ในตาราง] Is Null,"ไม่พบข้อมูล",[ชื่อฟิวส์ในตาราง])
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

5
If Date - datacollection > 2 Then
     DoCmd.OpenForm "Form1"
End If
โพสต์นี้ได้รับคำขอบคุณจาก: naekkhung

6
แนวความคิดของผมคือทำฟอร์มหลักขึ้นมาแล้วเอาฟอร์ม A,B,C จับใส่เป็นฟอร์มย่อยข้างใน
-ได้การจัดวางตามต้องการ
-ไม่จำเป็นต้องเชื่อมฟอร์มกัน

*ข้อเสีย
-เปิด,ปิดฟอร์มหลักอันเดียว=มีผล3ฟอร์ม
-ย่อ,ขยายเต็มจอเฉพาะบางฟอร์มในนี้ไม่ได้
-อื่นๆ

    A        B   
    C   
โพสต์นี้ได้รับคำขอบคุณจาก: kitisak

7
เพิ่ม VBA ให้เมื่อเปิดฟอร์ม criteria = 1 แล้วทำการกรองข้อมูล
โค๊ด: [Select]
Private Sub Form_Load()
        Me.criteria = 1
        Me.Sell_Query.Form.Filter = "[Bal] >= " & Me.criteria
        Me.Sell_Query.Form.FilterOn = True
        Me.Sell_Query.Form.Refresh
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: อนุพงศ์ ปาปะแพ

8
ทดลองเอาไฟล์ของท่านไปตีโจทย์แล้วทำการแก้ไขดังนี้
1.เอา [Forms]![Sell]![criteria] ใน Query ออก
2.แก้ชื่อซัพฟอร์มจากเดิม ฟอร์มย่อย Sell Query เป็น Sell_Query 'ป้องกันปัญหาภาษาไทย+ช่องว่าง
3.แก้ VBA เป็น
โค๊ด: [Select]
Private Sub criteria_AfterUpdate()
    If IsNull(Me.criteria) Then
        Me.Sell_Query.Form.FilterOn = False
        Me.Sell_Query.Form.Refresh
    ElseIf Me.criteria = 0 Then
        Me.Sell_Query.Form.Filter = "[Bal] = " & Me.criteria
        Me.Sell_Query.Form.FilterOn = True
        Me.Sell_Query.Form.Refresh
    Else
        Me.Sell_Query.Form.Filter = "[Bal] >= " & Me.criteria
        Me.Sell_Query.Form.FilterOn = True
        Me.Sell_Query.Form.Refresh
    End If
End Sub

สิ่งที่ได้
- ไม่ใส่ค่าอะไรเลย = จะแสดงรายการทั้งหมด
- ใส่ค่า 0 = แสดงเฉพาะรายการที่มีค่า Bal เท่ากับ 0
- ใส่ค่า >0 เช่น
[1] แสดง 2,10
[2] แสดง 2,10
[10] แสดง 10
โพสต์นี้ได้รับคำขอบคุณจาก: อนุพงศ์ ปาปะแพ

9
ถ้าใช้ไฟล์ PDF หรือ Word นำเข้ามาแบบดิบๆแล้วใช้เป็นพื้นหลังอันนี้ไม่ทราบว่าทำได้ไหม :dizzy:

แต่ถ้าแปลงไฟล์หรือส่งออกให้เป็นรูปภาพแล้วใส่เป็นพื้นหลังใน Report น่ะได้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Peerawas_Biginner

10
เพิ่ม Microsoft office 16.0 object library เข้าไปครับ

โพสต์นี้ได้รับคำขอบคุณจาก: prajak

11
ลองเปลี่ยน พิมพ์เฉพาะรายการนี้ เป็น []CheckBox
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa, วิริยะ คำสำราญ

12


2.รูปข้อมูลที่เติมเข้าไปเเล้ว ซึ่งอยากให้ form เเสดงเเบบนี้

ถ้าให้หน้าฟอร์มเป็นตารางสดแบบนี้ Create -> Form Wizard -> เลือกข้อมูลที่ต้องการนำมาแสดงในตาราง -> Next -> Datasheet -> Finish ครับ



3.เเต่พอเอาข้อมูลไปสร้าง form กับ เเสดงข้อมูลทีละ เเถวๆ ต้องเปิดไปหน้าถัดไปเพื่อดูข้อมูลคนที่ 2

หรือถ้าต้องการแบบนี้(จัดรูปแบบได้)แต่เรียงไล่ลงมาก็ตั้งค่าเป็น Continuous Forms ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: บังเลาะ มูดอ

13
นำไฟล์ของ อ.OddyWriter ไปเปิดดูแล้วหาทางแก้ให้นับเลขต่อจากวันศุกร์ที่แล้วเป็นที่เรียบร้อยครับ :cool:


1. เปิดไฟล์
2. คลิก InputData


หวังว่าจะใช่สิ่งที่ต้องการ แกะโค้ดเองนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Beau

14
จากการตีความของผมได้ความว่า [หมายเลขตัวอย่าง] ไม่นำมาคิดหรือเกี่ยวข้องใดๆเลย //สังเกตจากรูป :dizzy:

สิ่งที่จะนำมาคิดคือ วันนั้นเป็นวันอะไร(Monday,...) & XX(เลขชุดของวันนั้นๆ) & "-" &  1-100(เลขลำดับของชุดในวันนั้นๆ) ตัวอย่างผลลัพธ์
Monday01-1
Monday01-2
Tuesday01-1
...
Monday01-100
Monday02-1
...
Tuesday01-100
Tuesday02-1
...
Wednesday09-99
Wednesday09-100
Wednesday10-1
Wednesday10-2

ปล.แวะมาตีความเฉยๆนะ :miao:
โพสต์นี้ได้รับคำขอบคุณจาก: Beau

15
Private Sub Command32_Click()
Dim rst As DAO.Recordset
Dim sPathUser As String

sPathUser = Environ$("USERPROFILE") & "\my documents\"
Set rst = CurrentDb.OpenRecordset("SELECT [CustomerName] FROM Table_A", dbOpenSnapshot)

Do While Not rst.EOF
    MkDir (sPathUser & rst![CustomerName])
    rst.MoveNext
Loop

rst.Close
Set rst = Nothing

End Sub


ปล.ไม่ได้คิดเองนะแค่ไปเอาหลายๆวิธี หลายๆผลลัพธ์ที่ค้นเจอ แล้วเอามารวมกับที่ท่านต้องการนะครับ :shout:
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

16
คิวรี่กรองข้อมูลเดือนก่อนหน้ากำหนด Criteria เป็น
Year([ชื่อฟิลด์วันที่])* 12 + DatePart("m", [ชื่อฟิลด์วันที่]) = Year(Date())* 12 + DatePart("m", Date()) - 1

ทึีมา : ตัวอย่างการใช้วันที่เป็นเกณฑ์ในคิวรีของ Access
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

17
แนวคิดแบบทำกล่องตัวแปลเพิ่มเข้ามา

  Promo  =IIf([txtPromo]="P",1,0) =IIf([txtPromo]="M",1,0)
P10
M01
M01
P10
P10

แล้วก็ทำ Sum แบบตัวอื่นได้เลย
P=3 | M=2

ปล.กล่องตัวแปลทำให้ขนาดเล็กๆและสั่งซ้อนใว้ก็ได้นะ  :cool:
โพสต์นี้ได้รับคำขอบคุณจาก: maicnx

18
1.เปลี่ยนแค่ตัวกล่องข้อความ
โค๊ด: [Select]
Private Sub txt_Remark_AfterUpdate()
If Me.txt_Remark = 1 Then
    Me.txt_Remark.BackColor = vbYellow
Else
    Me.txt_Remark.BackColor = RGB(255, 255, 255)
End If
End Sub

2.เปลี่ยนทั้งแถวผมใช้วิธีตามนี้ ->สอบถามวิธีเปลี่ยนสีพื้นหลังรายการใน Continuous Forms

3.อันนี้เขาเปลี่ยนสีตามเช็คบล็อค
โพสต์นี้ได้รับคำขอบคุณจาก: Eik Q Sang

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