แสดงกระทู้

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
ห้อง MS Access / : link Google Map ตามพิกัด
« เมื่อ: 26 มี.ค. 67 , 20:22:47 »
ลองดูคำสั่งนี้ครับ กูเกิ้ลจะเจนภาพมาให้เราแต่มันก็ยังคงอยู่บนหน้าเว็บ
โค๊ด: [Select]
https://www.google.com/search?q=" & Me.La & "," & Me.Lo & ""
ตย.พิกัด
https://www.google.com/search?q=14.550044394402669,100.84978420135005

โค้ดภาพที่กูเกิ้ลเจนออกมา
https://www.google.com/maps/vt/data=ai7UcQDcsy0JhJowNPqkXDnSP1MnhUFxROsZBaLim1fq7LRG8WMco5u6zF52WHNcWrNZoe-1l35uCY1CG-oGW7oCPGuWdkWwn-JvkMKJKD-64IhKGMgkcm0GuPdtaDRLdu80YoS7me5a_wiSFQpHkpxzOa1DwwXEOUDUxvC5RTOYu0Laj-r-nC9e9Cq1s9AQPj5xNIO4lbG_BWq19o8N




หาเจออีกแบบที่เมื่อก่อนเราสามารถเจนภาพฟรีได้เองโดยใช้ https ://maps.googleapis.com/maps/api/staticmap?center=Latitude,Longitude&zoom=12&size=600x400"
ทีมา https://youtu.be/FjhpOT2bdNg?si=stxmLtTPSGt-kZiT


แต่ปัจจุบันต้องใช้ Google Map Api Key = เสียค่าบริการ
https ://maps.googleapis.com/maps/api/staticmap?center= Latitude,Longitude &zoom=14 &size=400x400 &key=YOUR_API_KEY &signature=YOUR_SIGNATURE

ทีมา
เริ่มต้นใช้งาน  _  Maps Static API  _  Google for Developers
วิธีการขอ Google Map Api Key สำหรับใช้งาน Google Map
How to สร้าง Google Maps APIs Key ภายในไม่กี่นาที!!

2
เครื่องคอมฯผมตั้งค่าแสดงวันที่เป็น 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:

3
Exp5: IIf([ชื่อฟิวส์ในตาราง] Is Null,"ไม่พบข้อมูล",[ชื่อฟิวส์ในตาราง])

4
ลองดูแนวทางจากที่นี้ครับ -> Dynamic Default Value: Use the Same Value For Multiple Records During Data Entry in Microsoft Access

ประมาณว่าเอาที่ท่านวงย้ายขึ้นไป FormHeader
แล้วส่วน Training_Record_Data ก็ทำเป็น Continuous Forms โดยดึงข้อมูลที่ต้องการจาก FormHeader มาใส่อัตโนมัติ

5
If Date - datacollection > 2 Then
     DoCmd.OpenForm "Form1"
End If

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

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

    A        B   
    C   

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 น่ะได้ครับ

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


12
ลองเปลี่ยน พิมพ์เฉพาะรายการนี้ เป็น []CheckBox

13
ที่คลิปบนยูทูปอาจารย์ท่านทำไฟล์ใว้ ลองส่งร้องขอ"สิทธิ์เข้าถึง"ไปหรือยังครับ :question:

หรือไม่ก็ PM อาจารย์ TTT

14
Private Sub text1_AfterUpdate()
        Me.ชื่อฟอร์มย่อย.Form.text2 = Me.text1

        Me.Recalc
End Sub

15

Private Sub MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   เงื่อนไข
      ตรงเงื่อนไข ก็เปิดฟอร์ม
End Sub


อืมเนาะ แทนที่จะสั่งให้มันคลิกที่ปุ่ม แต่ใช้ให้มันรันคำสั่ง DoCmd.OpenForm "ชื่อฟอร์ม" แบบนั้นหรืออย่างอื่นก็ได้นี่เนาะ :shout:

16
การที่เพียงแค่เอาเคอร์เซอร์เมาส์ไปวางแล้วให้ระบบออโต้คลิกนั้นคงทำไม่ได้

ในมุมมองจากรูปที่คุณให้ดูนั้นมี fs เยอะมากจึงมีโอกาศถึง 99% ที่ลากเมาส์ไปโดนชุดอื่นทำให้ระบบทำการเปิดฟอร์มผิด

17


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

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



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

หรือถ้าต้องการแบบนี้(จัดรูปแบบได้)แต่เรียงไล่ลงมาก็ตั้งค่าเป็น Continuous Forms ครับ

18
คืออะไรครับ ไม่เข้าใจ :question:


อ้อคือไฟล์ชุด RunningDay ของอาจารย์ ตัวอย่างวันศุกร์ 15-Sep-23 RunningID สุดท้ายอยู่ที่ Friday02-22 เมื่อทดลองไปวันศุกร์หน้า 22-Sep-23 ตัว RunningID จะกลับไปเริ่มนับ1ใหม่เป็น Friday01-1 ผมจึงทดลองหาวิธีแก้แล้วได้ผลคือเปลี่ยนจาก myDataCount = DCount("[DateData]", "tblData", "[DateData]=[txtDate]") เป็น
โค๊ด: [Select]
myDataCount = DCount("WeekdayName(Weekday(DateData))", "tblData", "WeekdayName(Weekday([DateData]))=WeekdayName(Weekday([txtDate]))")เพื่อให้วันศุกร์ที่ 22-Sep-23 ตัว RunningID นับต่อเป็น Friday02-23 , ++ น่ะครับผม  :prettiness:

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