1
ห้อง MS Access / : รบกวนอาจารย์หรือผู้รู้เรื่อง SQL ครับ ข้อมูล 2 Table ไม่เคยทำได้สำเร็จสะทีครับ
« เมื่อ: 11 พ.ค. 65 , 09:38:31 »
แสดงกระทู้
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.
2
ห้อง MS Access / : จะเพิ่มข้อมูลการขาย โดยเพิ่มข้อมูลลูกค้าและรายการสินค้าด้วยแบบไม่ซ้ำยังไง
« เมื่อ: 28 เม.ย. 65 , 16:05:03 »
ตัวอย่าง 
3
ห้อง MS Access / : จะเพิ่มข้อมูลการขาย โดยเพิ่มข้อมูลลูกค้าและรายการสินค้าด้วยแบบไม่ซ้ำยังไง
« เมื่อ: 28 เม.ย. 65 , 11:06:17 »
แนบไฟล์มาให้ อ.ทั้งหลาย ทำตัวอย่างให้ แล้วไปแกะเอาจะง่ายกว่าครับ อธิบายในถามตอบ มันยาวเกิน
4
ห้อง MS Access / : ต้องการเพิ่ม เรคคอร์ด โดยมีเงื่อนไขว่า Textbox ต้องไม่ว่าง จึงจะสามารถเพิ่มได้
« เมื่อ: 27 เม.ย. 65 , 00:23:28 »
1.กำหนดคุณสมบัติฟอร์ม อนุญาตให้เพิ่ม เป็น "ไม่ใช่"
2.สร้าง textbox_tmp ขึ้นมา โดยไม่เชื่อมกับฟิลด์ของตาราง
3.ปุ่มเพิ่ม
If Not IsNull(Me.textbox_tmp) Then
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
Me.txt_Message=me.textbox_tmp
End If
4.ปุ่มบันทึก
me.Refresh
Me.textbox_tmp=Null
Me.AllowAdditions = False
จะประมาณนี้ครับ
2.สร้าง textbox_tmp ขึ้นมา โดยไม่เชื่อมกับฟิลด์ของตาราง
3.ปุ่มเพิ่ม
If Not IsNull(Me.textbox_tmp) Then
Me.AllowAdditions = True
DoCmd.GoToRecord , , acNewRec
Me.txt_Message=me.textbox_tmp
End If
4.ปุ่มบันทึก
me.Refresh
Me.textbox_tmp=Null
Me.AllowAdditions = False
จะประมาณนี้ครับ
5
ห้อง MS Access / : ดูผลลัพธ์ loop ไม่ทัน
« เมื่อ: 27 เม.ย. 65 , 00:07:51 »
เหมือนอยากนับถอยหลัง (ไม่รู้ตรงใจป่าว) น่าจะใช้ TimerInterval
6
ห้อง MS Access / USB DriveType มีค่าเป็น 2 (Fixed) ทำไมไม่เป็น 1 (Removable)
« เมื่อ: 22 เม.ย. 65 , 22:38:43 »
จากความตั้งใจ จะ copy ไฟล์ไปยัง USB อัตโนมัติตอนปิดโปรแกรม โดยปกติ USB ค่า DriveType=1 แต่เครื่องผมดันเป็น 2 (มองเป็นฮาร์ดดิสก์) มีวิธิแก้ไขมั๊ยครับ หรืออาจจะเช็คค่าอื่นแทน DriveType
Function getUSBDrive()
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Drive In fso.Drives
If Drive.IsReady Then
MsgBox Drive.DriveLetter & " - " & Drive.VolumeName & " - " & Drive.DriveType
End If
Next
End Function
Function getUSBDrive()
Set fso = CreateObject("Scripting.FileSystemObject")
For Each Drive In fso.Drives
If Drive.IsReady Then
MsgBox Drive.DriveLetter & " - " & Drive.VolumeName & " - " & Drive.DriveType
End If
Next
End Function
7
ห้อง MS Access / : คลิกตำแหน่ง Location แล้ว popup ข้อมูลที่ตำแหน่งคลิกได้ไหมครับ
« เมื่อ: 22 เม.ย. 65 , 11:37:42 »
ลองค้นหาใน google ด้วย "access vba conditional formatting" มีโค๊ดให้อยู่นะครับ
8
ห้อง MS Access / : คลิกตำแหน่ง Location แล้ว popup ข้อมูลที่ตำแหน่งคลิกได้ไหมครับ
« เมื่อ: 21 เม.ย. 65 , 11:58:06 »
ทำเหมือน excel เลยครับ แต่ผมทำ Code ไม่เป็นนะครับ
9
ห้อง MS Access / : คนเขียนโปรแกรมมีปัญหาเรื่องจำนวนวันใน 1ปี
« เมื่อ: 17 เม.ย. 65 , 22:09:44 »
Public Function AgeYe(db, dN) As Integer 'หาอายุปี
If Day(dN) >= Day(db) Then
If Month(dN) >= Month(db) Then
AgeYe = Year(dN) - Year(db)
Else
AgeYe = Year(dN) - Year(db) - 1
End If
Else
If (Month(dN) - 1) >= Month(db) Then
AgeYe = Year(dN) - Year(db)
Else
AgeYe = Year(dN) - Year(db) - 1
End If
End If
End Function
Public Function AgeMo(db, dN) As Integer 'หาอายุเดือน
If Day(dN) >= Day(db) Then
If Month(dN) >= Month(db) Then
AgeMo = Month(dN) - Month(db)
Else
AgeMo = Month(dN) + 12 - Month(db)
End If
Else
If (Month(dN) - 1) >= Month(db) Then
AgeMo = Month(dN) - 1 - Month(db)
Else
AgeMo = Month(dN) - 1 + 12 - Month(db)
End If
End If
End Function
Public Function AgeDa(db, dN) As Integer 'หาอายุวัน ยืมวันกรณีวันที่น้อย
Dim mon As Integer
mon = Month(dN)
Select Case mon
Case 1, 3, 5, 7, 8, 10, 12
jnM = 31
Case 2
If Year(dN) Mod 4 = 0 Then 'ก.พ. 4 ปีมี 1 ครั้งที่มี 29วัน
jnM = 29
Else
jnM = 28
End If
Case Else
jnM = 30
End Select
If Day(dN) >= Day(db) Then
AgeDa = Day(dN) - Day(db)
Else
AgeDa = Day(dN) + jnM - Day(db)
End If
End Function
ปล. db คือ วันเกิด dN คือ วันที่ ณ ต้องการคำนวณ
If Day(dN) >= Day(db) Then
If Month(dN) >= Month(db) Then
AgeYe = Year(dN) - Year(db)
Else
AgeYe = Year(dN) - Year(db) - 1
End If
Else
If (Month(dN) - 1) >= Month(db) Then
AgeYe = Year(dN) - Year(db)
Else
AgeYe = Year(dN) - Year(db) - 1
End If
End If
End Function
Public Function AgeMo(db, dN) As Integer 'หาอายุเดือน
If Day(dN) >= Day(db) Then
If Month(dN) >= Month(db) Then
AgeMo = Month(dN) - Month(db)
Else
AgeMo = Month(dN) + 12 - Month(db)
End If
Else
If (Month(dN) - 1) >= Month(db) Then
AgeMo = Month(dN) - 1 - Month(db)
Else
AgeMo = Month(dN) - 1 + 12 - Month(db)
End If
End If
End Function
Public Function AgeDa(db, dN) As Integer 'หาอายุวัน ยืมวันกรณีวันที่น้อย
Dim mon As Integer
mon = Month(dN)
Select Case mon
Case 1, 3, 5, 7, 8, 10, 12
jnM = 31
Case 2
If Year(dN) Mod 4 = 0 Then 'ก.พ. 4 ปีมี 1 ครั้งที่มี 29วัน
jnM = 29
Else
jnM = 28
End If
Case Else
jnM = 30
End Select
If Day(dN) >= Day(db) Then
AgeDa = Day(dN) - Day(db)
Else
AgeDa = Day(dN) + jnM - Day(db)
End If
End Function
ปล. db คือ วันเกิด dN คือ วันที่ ณ ต้องการคำนวณ
10
ห้อง MS Access / : แปลงตัวเลขเงินบาท หลักล้านไม่ถูกต้อง
« เมื่อ: 05 เม.ย. 65 , 10:53:00 »
อ่านได้เป็น แสนล้าน
11
ห้อง MS Access / : การเก็บข้อมูล user ,password
« เมื่อ: 01 เม.ย. 65 , 01:34:03 »
คลิปอาจารย์เพิ่งทำ ผมแปะกันลืมละกัน
12
ห้องสนทนาทั่วไป / : อยากให้แยกวรรครหัสสินค้าบนreportPOS
« เมื่อ: 01 เม.ย. 65 , 01:27:05 »
ผมว่าใช้ format ก็น่าจะดูดีครับ เป็นการจัดกลุ่มตัวอักษร เช่น การอ่านเบอร์โทร 02 122 4568 หรือ 02-122-4568
เลขบัตรประชาชน 1 1234 00000 55 9 หรือ 1-1234-00000-55-9 อะไรประมาณนี้ เวลาสมองจดจำตัวเลขเป็นกลุ่มๆ
การบันทึกข้อมูลจะง่ายขึ้น ถ้าวรรคธรรมดา ก็จะไม่ต่างอะไรกับไม่วรรค
เช่น format([เลขบัตร ปชช],"&-&&&&-&&&&&-&&-&")
เลขบัตรประชาชน 1 1234 00000 55 9 หรือ 1-1234-00000-55-9 อะไรประมาณนี้ เวลาสมองจดจำตัวเลขเป็นกลุ่มๆ
การบันทึกข้อมูลจะง่ายขึ้น ถ้าวรรคธรรมดา ก็จะไม่ต่างอะไรกับไม่วรรค
เช่น format([เลขบัตร ปชช],"&-&&&&-&&&&&-&&-&")
13
ห้อง MS Access / : จะอ้างอิงค่าจาก record บน
« เมื่อ: 30 มี.ค. 65 , 13:00:05 »
ทำแบบลูกทุ่งครับ
Private Sub Command18_Click()
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious 'ให้เคอร์เซอร์วิ่งกลับขึ้นไป แล้วเขียนค่าวันที่ ใน chkdate
Me.chkdate = me.datein 'วันที่ข้างบน
DoCmd.GoToRecord , , acNext 'วิ่งกลับลงมา
end sub
Private Sub dateIn_AfterUpdate()
If me.datein < me.chkdate Then
MsgBox "วันที่ผิดพลาด....(วันที่น้อยกว่าวันที่ด้านบน " & me.chkdate & ")", vbCritical, "เตือน"
End If
End Sub
Private Sub Command18_Click()
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToRecord , , acPrevious 'ให้เคอร์เซอร์วิ่งกลับขึ้นไป แล้วเขียนค่าวันที่ ใน chkdate
Me.chkdate = me.datein 'วันที่ข้างบน
DoCmd.GoToRecord , , acNext 'วิ่งกลับลงมา
end sub
Private Sub dateIn_AfterUpdate()
If me.datein < me.chkdate Then
MsgBox "วันที่ผิดพลาด....(วันที่น้อยกว่าวันที่ด้านบน " & me.chkdate & ")", vbCritical, "เตือน"
End If
End Sub
14
ห้อง MS Access / : inner join between min and max score เชื่อมคิวรี่ตัดเกรดครับ
« เมื่อ: 29 มี.ค. 65 , 22:25:14 »
เพิ่งรู้ว่าทำแบบนี้ได้ด้วย อุตส่าห์เขียนฟังชั่นใช้ซะเยอะ 
แต่วิธีนี้ ทำได้เฉพาะออกรายงาน แต่จะทำขึ้นฟอร์ม แล้วแก้ไขข้อมูลในฟอร์มไม่ได้
แต่ก็ขอขอบคุณครับ ที่ทำให้ได้รู้ว่า วิธีนี้ก็ทำได้
แต่วิธีนี้ ทำได้เฉพาะออกรายงาน แต่จะทำขึ้นฟอร์ม แล้วแก้ไขข้อมูลในฟอร์มไม่ได้
แต่ก็ขอขอบคุณครับ ที่ทำให้ได้รู้ว่า วิธีนี้ก็ทำได้
16
ห้อง MS Access / : กด Taskbar แล้วไม่ให้แสดงพื้นหลัง แสดงแต่ฟอร์มอย่างเดียว
« เมื่อ: 13 ม.ค. 65 , 15:22:51 »
ผมก็ได้มานานแล้ว แต่ไม่ได้ทำใช้
