แสดงกระทู้

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
1
ใช้ Tab Control เถอะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

2
น่าจะใช้ การเคลื่อนย้ายเม้าส์ และ การกำหนดเวลา ครับ  อาจใช้ทั้ง 2 ร่วมกัน หรือ อย่างใดอย่างหนึ่ง

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

Private Sub Form_Timer()
  เงื่อนไข
     ตรงเงื่อนไข ก็เปิดฟอร์ม
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

3
ตย. แกะเอาเด้อ
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

4
ทำได้แล้วค่ะ
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

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

6
เหมือนจะง่าย  แต่กว่าจะเข้าใจ  นำมาฝากครับ  วินโดว์ 7 ขึ้นมา ใช้ SendKeys "{HOME}" และ  SendKeys "{END}" ไม่ได้แล้ว

Option Compare Database

#If Win64 Or VBA7 Then
    Private Declare PtrSafe Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Declare PtrSafe Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#Else
    Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
    Private Declare Function GetKeyState Lib "user32.dll" (ByVal nVirtKey As Long) As Integer
#End If

    Private Const VK_HOME = &H24
    Private Const VK_END = &H23
    Private Const VK_F2 = &H71
   
Private Sub Command2_Click() 'SendKeys HOME
    Me.Text0.SetFocus
    keybd_event VK_F2, 1, 0, 0
    keybd_event VK_F2, 1, KEYEVENTF_KEYUP, 0
    keybd_event VK_HOME, 1, 0, 0
    keybd_event VK_HOME, 1, KEYEVENTF_KEYUP, 0
End Sub

Private Sub Command3_Click() 'SendKeys END ใช้ F2 แทน
    Me.Text0.SetFocus
    keybd_event VK_F2, 1, 0, 0
    keybd_event VK_F2, 1, KEYEVENTF_KEYUP, 0
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

7
ถามเองตอบเองอีกแล้ว :cry: :sweat: :dizzy: :ouch:


งมไปจนได้ ดำน้ำไป  คือ Loop ให้ชื่อเมลล์ ต่อกัน โดยใช้  ,  คั่น  แล้วเอาค่าไปใส่ .To = ค่าที่ Loop
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

8
ลองดูคลิปตัวอย่างเผื่อช่วยเป็นไอเดียได้ครับ

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

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

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

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

12
ส่งตัวอย่างที่ทำไว้ มาให้หน่อยได้ไหมครับ
เดี่ยว เขียนเป็นโค้ดให้ครับ
ผมต้องการดูขั้นตอนการ ทำงานเพื่อแสดงผล

ช่วงนี้ไม่ค่อยได้ตอบด้วย ภาระงานเพิ่มขึ้นครับที่โรงพยาบาลมีผู้ป่วยโควิดเพิ่มมากขึ้นด้วย
งานที่ต้องประสานเลยเยอะขึ้นครับเลยไม่ค่อยได้มาตอบ แต่มีหลายๆท่านช่วยตอบอยู่ครับ

หมายเหตุ แต่ช่วงนี้ไม่ค่อยเห็นอาจารย์สันติสุขเลย คิดถึงเลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

13
ลอง Compile / DeCompile ดูหรือยังครับ
ลอง compact and repair ด้วยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

14
Me.rank คืออะไรครับ​ รับค่าจาก​ TextBox​ หรือเปล่า
แล้วตัวแปร​ rank ประกาศเพื่ออะไร
ส่งรูปมาให้ดูดีกว่าครับ​ นึกภาพไม่ออก
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

15
ใน Access ไม่มีความสามารถนี้ครับ
มีเฉพาะในฐานข้อมูลใหญ่ๆ อย่าง Oracle

ขออธิบายให้เข้าใจง่ายๆ ถึงการทำงานที่แตกต่างกันนะครับ
ใน Oracle นั้น เวลาที่เราสั่ง Delete Data นั้น จะเป็นการปิด Record ที่ลบเท่านั้น (ใส่ Time Stamp เอาไว้ด้วย) แต่ข้อมูลยังไม่ถูกลบ จึงสามารถสั่ง Rollback ได้ แต่ก็ต้องแลกมาด้วยการใช้พื้นที่ ที่เพิ่มขึ้นมาเรื่อยๆ
การสั่งลบข้อมูลจริงๆ ของ Oracle ต้องใช้คำสั่ง Pack เพื่อทำการลบข้อมูลออกจริงๆ

ส่วน Access เมื่อเราสั่ง Delete โปรแกรมจะทำการ Pack ให้ทันทีเลย ทำให้ไม่สามารถดึงข้อมูลกลับมาได้
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

16
สมมุติตาราง A ชื่อ Mytable
1.สร้างคิวรี่ใส่ SQL เข้าไป ตั้งชื่อ Q1
SELECT Idnumber, LV  FROM MyTable GROUP BY Idnumber, LV HAVING ((Not (LV) Is Null));

2.สร้างปุ่มขึ้นมา 1 ปุ่ม
ใส่โค้ดนี้เข้าไป
Private Sub Command0_Click()
Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("Mytable", dbOpenDynaset)
   
    rst.MoveFirst
    Do Until rst.EOF
    If IsNull(rst!LV) Or rst!LV = "" Then
    rst.Edit
    rst!LV = DLookup("LV", "Q1", "Idnumber =" & rst!Idnumber & "")
    rst.Update
    End If
       rst.MoveNext
    Loop
   
    rst.Close: Set rst = Nothing
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

17
มันขยายไม่ได้แล้วจริงๆครับ ผมปรับ width เป็น maximum แล้ว ตอนเปิดฟอร์มจึงแสดงผลได้แค่ครึ่งจอครับ


ที่คุณ UnKnown บอกมาคือไม่ได้กำหนดขนาดฟอร์มใช้ใหญ่เท่าขนาดจอครับ
แต่หมายถึงการกำหนดความละเอียด หรือ pixel ของเครื่องคอมที่จะแสดงบนหน้าจอทีวีมากกว่า
ยิ่งความละเอียดหน้าจอคอมยิ่งมากการแสดงผลที่ จอทีวีก็จะยิ่งใหญ่ขึ้น

และผมลงค้นข้อมูลการกำหนดให้ แสดงผลเต็มหน้าจอ monitor ลองดูจากเว็บไซส์นี้ครับ
มีตัวอย่างโค๊ด และ ไฟล์ access ให้ลองใช้งานและดูการแสดงผลด้วย

https://codedocu.com/Office-365/Access/Basics/vba-Code/Automatically-adjust-Access-forms-to-the-maximum-monitor-size?2505
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown

18
B > รับ PIPE 20 M ......

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

หน้า: [1] 2 3 4