แสดงกระทู้

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

หน้า: 1 [2] 3 4 5 ... 34
20
ใช้ไฟล์นี้ดึงชื่อไฟล์เข้ามาในฐานข้อมูล แล้วสั่ง Unmatched Query หาไฟล์ที่ชื่อไม่ตรงกันออกมาครับ

21
1. ต้องใช้รูป PNG ที่ทำพื้นหลังเป็น Transparent
2. กำหนด Background เป็น Transparent


22
ส่งไฟล์ทั้งคู่มาครับ

23
Field B อาจกำหนด Data Type เป็น Number

24
ใช้ Choose หรือ switch ดีกว่ามั๊งครับ


25
ยืนยันอีก 1 เสียงครับ O/

26
แนะนำให้แนบไฟล์ด้วยครับ จะได้ง่ายต่อการช่วยเหลือครับ

27
จากตรงนี้

If Me.txt0 <> "" Then

มีเหตุการณ์เดียวที่จะทำ Else คือต้อง = "" หรือ ZWS นะครับ (เท่าที่นึกออก)

28
แสดงว่าเงื่อนไขผิดครับ ต้องหาเองว่าผิดตรงไหน

29
Private Sub txt0_AfterUpdate()
Dim sql As Variant
If Me.txt0 <> "" Then
DoCmd.RunSQL "Insert into tbl_slide (tb_slidenum) values ('test');"
Else
DoCmd.RunSQL "update tbl_slide set tbl_slide.tb_timeout = Now(),tbl_slide.tb_status='Done' where tbl_slide.tb_slidenum  like'" & Me.txt0 & "';"
Me.tbl_slide_subform.Requery
End If
End Sub


และ
ถ้ากำหนด Require เป็น Yes แต่ไม่ใส่ข้อมูล ก็ไม่สามารถ Append ได้


30
ใช้ Report Wizard โดยเลือกจัดกลุ่มข้อมูล (Grouping)

31
จากข้อ 1 ให้ใช้ Select Query แล้ว Sort ชื่อ/จำนวน แบบ Descending

จากข้อ 2 อ่านตั้งแต่เช้า ยังไม่เข้าใจ

33
ตอบทีละข้อนะครับ
1. การนำ Font ไปลงที่เครื่อง B C D E F จะทำให้การแสดงผลเหมือนกันครับ ไม่เกี่ยวกับการทำงานร่วมกัน เช่นถ้าเรานำ Font TH Sarabun ไปลงทุกเครื่อง ก็จะทำให้ทุกเครื่องแสดงเป็น TH Sarabun เหมือนกันหมด

2. สำหรับเครื่อง X Y Z จากจังหวัดอื่นๆ ถ้าจะให้บันทึกลงเครื่อง A โดยตรงแบบ Real Time ต้องทำผ่าน VPN ครับ คือต้องทำให้เสมือนอยู่ใน LAN วงเดียวกัน แต่จะทำงานช้านะครับ ซึ่งการทำงานช้า อาจมีผลต่อข้อมูลได้ เช่นข้อมูลหาย

35
ใช้งานได้ปกติ มีการ Update ใหม่เป็นระยะๆ ทำให้โปรแกรม 365 ทันสมัยอยู่เสมอ ไม่มีปัญหากับรุ่นอื่นๆ ครับ

36

1. เปิด Properties ของ Query
2. กำหนด Unique Values = yes 

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