แสดงกระทู้

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

หน้า: [1]
1
ห้อง MS Access / สอบถามว่าถ้าถ้ามีการ Save ทับ record เดิมให้แจ้งเตือนได้ไหมครับ
« เมื่อ: 17 ก.พ. 64 , 14:42:58 »
สอบถามว่าถ้าถ้ามีการ Save ทับ record เดิมให้แจ้งเตือนได้ไหมครับ และให้เลือกว่า save ทับหรือไม่น่ะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Jieng2021

2
ห้อง MS Access / จะมีวิธีให้หน้าฟอร์มยังคง Maximize อยู่ ไม่ว่าเม้าส์จะไปขยับ Title Bar
« เมื่อ: 11 ก.พ. 64 , 13:39:38 »
รบกวนสอบถามครับ คือ ในฟอร์มมีโค้ด Maximize เวลาเปิดฟอร์มขึ้นมา พอเอาเม้าส์ไปขยับ Title Bar พบว่า หน้าจอย่อลง
จะทำอย่างไรครับที่จะให้ฟอร์มไม่ย่อขนาดลง ผมอยากให้เต็มหน้าจอ ไม่ว่าเม้าส์จะไปขยับ Title Bar ก็อยากให้ฟอร์มยัง Maximize อยู่ครับ
ขอบคุณมากครับผม
โพสต์นี้ได้รับคำขอบคุณจาก: Jieng2021

3
ห้อง MS Access / : อยากรู้ว่า Drop Down ยังไงให้ Fill ข้อมูลอัตโนมัติ
« เมื่อ: 10 ก.พ. 64 , 14:32:02 »
วิธีทำ
1.กำหนดแหล่งข้อมูลแถวของ Combobox TruckNO เป็น
โค๊ด: [Select]
SELECT tblTruck.TruckNO, tblTruck.TruckBrand, tblTruck.DriverName
FROM tblTruck
WHERE ((Not (tblTruck.TruckNO) Is Null));
1.1 กำหนด BoundColumn(หรือ คอลั่มที่ผู้ไว้ เท่ากับ 1)
1.2 กำหนดจำนวนคอลัมน์ 3
1.3 กำหนดความกว้างคอลัมน์ 5ซม.;0ซม.;0ซม.

2.กำหนดแหล่งข้อมูลแถวของ Combobox TruckBrand เป็น
โค๊ด: [Select]
SELECT [tblTruck].TruckBrand FROM tblTruck GROUP BY [tblTruck].TruckBrand HAVING ((Not ([tblTruck].TruckBrand) Is Null)); 2.1 กำหนด BoundColumn(หรือ คอลั่มที่ผู้ไว้ เท่ากับ 1)
2.2 กำหนดจำนวนคอลัมน์ 1
2.3 กำหนดความกว้างคอลัมน์ 5ซม.

3.กำหนดแหล่งข้อมูลแถวของ Combobox DriverName เป็น
โค๊ด: [Select]
SELECT [tblTruck].DriverName FROM tblTruck GROUP BY [tblTruck].DriverName HAVING ((Not ([tblTruck].DriverName) Is Null)); 3.1 กำหนด BoundColumn(หรือ คอลั่มที่ผู้ไว้ เท่ากับ 1)
3.2 กำหนดจำนวนคอลัมน์ 1
3.3 กำหนดความกว้างคอลัมน์ 5ซม.


4.เขียนโค้ด Event เมื่ออัพเดท ของcombobox TruckNO เป็น
โค๊ด: [Select]
Private Sub TruckNO_AfterUpdate()
If Not IsNull(Me.TruckNO) Then
Me.TruckBrand = Me.TruckNO.Column(1)
Me.DriverName = Me.TruckNO.Column(2)
Else
Me.TruckBrand = Null
Me.DriverName = Null
End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: Jieng2021

4
ห้อง MS Access / อยากรู้ว่า Drop Down ยังไงให้ Fill ข้อมูลอัตโนมัติ
« เมื่อ: 10 ก.พ. 64 , 14:02:01 »
สวัสดีครับ ผมอยากทราบว่าทำได้ไหม ในหน้า Form ผมอยากใช้ Drop down เลือก TruckNO แล้วอยากให้ช่อง TruckBrand กับ DriverName Fill ข้อมูลเองได้ไหมครับ โดย TruckNO, TruckBrand และ DriverName มาจาก Table เดียวกัน



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

5
ห้อง MS Access / Invalid procedure call or argument
« เมื่อ: 10 ก.พ. 64 , 11:01:02 »

 Dim TextOUT  As Variant
 Dim NotpadDoc
Dim Myfso As New FileSystemObject
Set NotpadDoc = Myfso.CreateTextFile("D:\Report1.txt", True)

 Dim Rs   As DAO.Recordset
Set Rs = CurrentDb.OpenRecordset("select * from  report1 order by ida ")
If Rs.RecordCount > 0 Then
Do Until Rs.EOF

TextOUT = Trim(Rs("summary"))
NotpadDoc.Write TextOUT
NotpadDoc.Write Chr(13)

Rs.MoveNext
Loop


NotpadDoc.Close
Set Myfso = Nothing

    On Error Resume Next
    Shell "Notepad.exe " & "D:\Report1.txt", vbNormalFocus
    Dim oShell
Set oShell = CreateObject("WScript.Shell")
oShell.SendKeys "% x"

  End If

Rs.Close
Set Rs = Nothing


Code นี้มันทำงานได้  เมื่อ TextOUT  มีค่าไม่ยาว    แต่เมื่อมันมี  ข้อความยาวขึ้น   มันก็ฟ้อง  "Invalid procedure call or argument "    ผมไปไม่เป็นเลยครับ  ไม่มี idea  ว่าจะแก้อะไรดี   ขอความเห็นจากผุ้มีประสบการณ์ หน่อยครับ  ควรทำอย่างไร
โพสต์นี้ได้รับคำขอบคุณจาก: Jieng2021

6
ห้อง MS Access / วิธีการยกยอด ในกรณีวันซ้ำแต่คนเบิกคนละคนกัน ทำอย่างไรค่ะ
« เมื่อ: 02 ก.พ. 64 , 14:21:00 »
วันที่ 12 มีการเบิกของแต่คนเบิกคนละคนกัน


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

7
ห้อง MS Access / : ฟังก์ชั่น date time ของ เดือนปี
« เมื่อ: 30 ม.ค. 64 , 12:49:24 »
ขอตอบตัวเอง  พอดีทำได้แล้วครับ
="งวดภาษีเดือน" & " " & Format(CDate([งวดภาษี]),"mmmm yy")
โพสต์นี้ได้รับคำขอบคุณจาก: Jieng2021

8
ห้อง MS Access / : ฟังก์ชั่น date time ของ เดือนปี
« เมื่อ: 29 ม.ค. 64 , 21:19:54 »
control source ="งวดภาษีเดือน"& " "& [งวดภาษี] 
ถ้าจะใช้ format(CDate)mmmm yy    จะเขียน format อย่างไรครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Jieng2021

9
ห้อง MS Access / > รวมข้อมูลจากหลายฟิวส์เป็นฟิวส์เดียว
« เมื่อ: 27 ก.พ. 61 , 22:13:30 »
สาธิตทาง youtube ได้ป่าวครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Jieng2021

10
ห้อง MS Access / > รวมข้อมูลจากหลายฟิวส์เป็นฟิวส์เดียว
« เมื่อ: 24 ม.ค. 61 , 10:21:12 »
สมมุติตารางคุณชื่อ Table1

1. ใส่ฟังก์ชั่นนี้ลงใน Module
โค๊ด: [Select]
Function ConcatRelated(expression$, domain$, criterial$)
    Dim db As DAO.Database
    Dim rs As Recordset
    Dim SQLCmd As String
    Dim ConCat As String
 
    Set db = CurrentDb()
    SQLCmd = "SELECT " & expression$ & " FROM " & domain$ & " WHERE " & criterial$
    Set rs = db.OpenRecordset(SQLCmd)
 
    If Not rs.EOF Then
        rs.MoveFirst
    End If
 
    Do While Not rs.EOF
        ConCat = ConCat & rs(0) & ", "
        rs.MoveNext
    Loop
   
    If ConCat & "" <> "" Then
        ConcatRelated = Left(ConCat, Len(ConCat) - 2)
    End If
    rs.Close: Set rs = Nothing: Set db = Nothing
End Function

2. สร้างคิวรี่ใหม่ เขียน SQL ดังนี้:
โค๊ด: [Select]
SELECT Table1.[รหัสใบสั่งซื้อ], ConcatRelated("รายการ","Table1","รหัสใบสั่งซื้อ=" & [รหัสใบสั่งซื้อ]) AS รวมรายการ
FROM Table1
GROUP BY Table1.[รหัสใบสั่งซื้อ];

ประมาณนี้ ปรับใช้ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Jieng2021

หน้า: [1]