1
ห้อง MS Access / : ตัด 0 นำหน้า รหัสพนักงานใน MS Access
« เมื่อ: 24 ก.พ. 65 , 13:25:18 »
ครับๆๆเข้าใจแล้วครับ
แสดงกระทู้
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.
หน้า: [1] 2
2
ห้อง MS Access / : ตัด 0 นำหน้า รหัสพนักงานใน MS Access
« เมื่อ: 24 ก.พ. 65 , 13:15:00 »
ตัดเฉพาะพนักงานที่มี 0 นำหน้าใช่หรือเปล่าครับ ถ้าไม่มี 0 ก็ไม่ต้องตัดแบบนี้เปล่าครับ
3
ห้อง MS Access / : ตัด 0 นำหน้า รหัสพนักงานใน MS Access
« เมื่อ: 24 ก.พ. 65 , 12:46:21 »
ในคิวรี่ มุมอง SQL ลองใส่คำสั่งนี้ครับ
SELECT Right(ฟิวส์ที่จะตัด0ออก,5) AS ExtractString
FROM ชื่อตาราง;
-----------------------------
หรือเพิ่มฟิวส์ในคิวรี่ใช้คำสั่งนี้ได้ครับ
รหัสพนักงาน: Right([ฟิวส์ที่จะตัด0],5)
SELECT Right(ฟิวส์ที่จะตัด0ออก,5) AS ExtractString
FROM ชื่อตาราง;
-----------------------------
หรือเพิ่มฟิวส์ในคิวรี่ใช้คำสั่งนี้ได้ครับ
รหัสพนักงาน: Right([ฟิวส์ที่จะตัด0],5)
4
ห้อง MS Access / : เมื่อกดปุ่ม แล้วให้ TextBox1 มีสีแดง ใน VB
« เมื่อ: 21 ก.พ. 65 , 16:19:17 »
ใส่codeที่ปุ่มครับ
ชื่อTextbox.BackColor = vbRed
ชื่อTextbox.BackColor = vbRed
6
ห้อง MS Access / : หนูทำเรื่องการ สั่งซื้อสินค้าค่ะ ช่วยดูให้หน่อยค่ะเรื่องการเพิ่มสินค้า
« เมื่อ: 16 ธ.ค. 64 , 17:04:11 »
แสดงว่ารายการที่เพิ่มไปใหม่ไม่มีรหัสรายการสินค้านี้อยู่ในตาราง tb พัสดุครับ ก่อนนำเข้าต้องไปเพิ่มในฐานข้อมูลก่อนครับ
7
ห้อง MS Access / : เราสามารถ Hide ฟิลด์จากตารางที่เป็นแบบนี้ได้ไหมคะ
« เมื่อ: 17 พ.ย. 64 , 11:08:55 »
แถมRibbonตามนี้ครับ
Home > More > Hide Fields
Home > More > Hide Fields
8
ห้อง MS Access / : Input ค่าลง Combobox แล้วให้ Save ทุก record ตาม Combobox
« เมื่อ: 08 ต.ค. 64 , 15:44:25 »
Dim db As Database
Dim DBrs As DAO.Recordset
Set db = CurrentDb
Set DBrs = db.OpenRecordset("ชื่อตาราง")
DBrs.AddNew
DBrs![Field] = ชื่อCombobox1.Value
DBrs![Field] = ชื่อCombobox2.Value
DBrs![Field] = ชื่อCombobox3.Value
DBrs.Update
อันนี้ฟอร์มบันทึกแบบ Unbound ถ้าเป็นแบบ Bound ก็ดึง Record Source ได้เลยครับ
Dim DBrs As DAO.Recordset
Set db = CurrentDb
Set DBrs = db.OpenRecordset("ชื่อตาราง")
DBrs.AddNew
DBrs![Field] = ชื่อCombobox1.Value
DBrs![Field] = ชื่อCombobox2.Value
DBrs![Field] = ชื่อCombobox3.Value
DBrs.Update
อันนี้ฟอร์มบันทึกแบบ Unbound ถ้าเป็นแบบ Bound ก็ดึง Record Source ได้เลยครับ
9
ห้อง MS Access / : รบกวนขอโค้ด VBA ลบ Record หน่อยครับ
« เมื่อ: 17 ก.ย. 64 , 16:51:28 »
On Error GoTo Err_cmdDelete_Click
DoCmd.SetWarnings False
If MsgBox("ยืนยันลบข้อมูล?", vbQuestion + vbYesNo + vbDefaultButton2, "ลบข้อมูล?") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If
Exit_cmdDelete_Click:
DoCmd.SetWarnings True
Exit Sub
Err_cmdDelete_Click:
MsgBox Err.Description
Resume Exit_cmdDelete_Click
ลองดูก่อนนะครับ
DoCmd.SetWarnings False
If MsgBox("ยืนยันลบข้อมูล?", vbQuestion + vbYesNo + vbDefaultButton2, "ลบข้อมูล?") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
End If
Exit_cmdDelete_Click:
DoCmd.SetWarnings True
Exit Sub
Err_cmdDelete_Click:
MsgBox Err.Description
Resume Exit_cmdDelete_Click
ลองดูก่อนนะครับ
10
ห้อง MS Access / : ย่อโปรแกรม Access เมื่อเปิด Form popup
« เมื่อ: 15 ก.ย. 64 , 16:40:36 »
ลองเช็ค Event ของฟอร์มเมื่อเปิดได้ไปกำหนดเป็น Maximize ของฟอร์มหรือเปล่าครับ
11
ห้อง MS Access / : ย่อโปรแกรม Access เมื่อเปิด Form popup
« เมื่อ: 15 ก.ย. 64 , 15:02:05 »
1.สร้างShortcutโปรแกรมaccess
2.คล๊กขวาที่Shortcut เลือก Properties
3.Run เลือก Minimized
โปรแกรมaccessของเรา
ตั้งค่าโปรแกรม
Option > Current Database
Display Form เลือกฟอร์มที่เราต้องการให้แสดง
2.คล๊กขวาที่Shortcut เลือก Properties
3.Run เลือก Minimized
โปรแกรมaccessของเรา
ตั้งค่าโปรแกรม
Option > Current Database
Display Form เลือกฟอร์มที่เราต้องการให้แสดง
12
ห้อง MS Access / : เราสามารถแก้ไข Excel ที่ลิ้งมาจากข้างนอกผ่าน MS Access ได้ไหมครับ
« เมื่อ: 15 ก.ย. 64 , 11:31:46 »
การ Linked table ไม่สามารถแก้ไขหรือเพิ่มอะไรได้ ต้องไปแก้ที่ไฟล์excelข้างนอกเท่านั้นครับ
13
ห้อง MS Access / : Syntax error (missing operator) in query expression '1st_Vaccined'.
« เมื่อ: 14 ก.ย. 64 , 16:06:57 »
1st_Vaccined = DLookUp("1st_Vaccined","TblVaccine","Code = '" &
โค๊ด: [Select]
& "'")
ต้องมี = แล้วตามด้วยDLookup ครับ
14
ห้อง MS Access / : Syntax error (missing operator) in query expression '1st_Vaccined'.
« เมื่อ: 14 ก.ย. 64 , 15:33:50 »
1st_Vaccined: DLookUp("1st_Vaccined","TblVaccine","Code = '" & [ลองตรวจสอบชื่อTextboxจุดนี้ว่าชื่อถูกต้องหรือเปล่า] & "'")
15
ห้อง MS Access / : สร้างบิล แล้วทำไมพิมพ์รายงานออกมารายการซ้ำๆกันคะ จะต้องแก้ยังไง
« เมื่อ: 20 ส.ค. 64 , 14:15:32 »
ใช้คิวรี่ Criteria เลขที่สั่งซื้อไปที่ฟอร์ม [Forms]![ชื่อฟอร์ม]![เลขที่สั่งซื้อ] เวลาพิมพ์รายงานสามารถกรองเลขที่บิลนั้นได้เลยครับ ไม่ว่าเลขที่บิลนั้นจะมีกี่รายการก็ตามครับ....ถ้าผิดพลาดอะไรไปต้องขอภัยด้วยนะครับ
16
ห้อง MS Access / : ลบข้อมูลออกจากฟิลเมื่อกดปุ่ม ขณะเดียวกันก็เอาข้อมูลนั้นเพิ่มไปอีกฟิล
« เมื่อ: 20 ส.ค. 64 , 10:50:56 »
Private Sub Command4_Click()
Dim db As Database
Dim DBrs As DAO.Recordset
Set db = CurrentDb
Set DBrs = db.OpenRecordset("tbl_test") 'ชื่อตารางที่ต้องการเก็บข้อมูล
DBrs.AddNew
DBrs![DateTime] = txtDateTime.Value 'ชื่อฟิวส์ที่ตาราง และชื่อtext box ที่ฟอร์ม
DBrs![Status] = Check5.Value 'ชื่อฟิวส์ที่ตาราง และชื่อtext box ที่ฟอร์ม
DBrs.Update
'เคลียร์ข้อมูล
Me.txtDateTime = ""
Me.Check5 = ""
End Sub
น่าจะประมาณนี้ครับ ไม่แน่ใจตรงความต้องการหรือเปล่าครับ
Dim db As Database
Dim DBrs As DAO.Recordset
Set db = CurrentDb
Set DBrs = db.OpenRecordset("tbl_test") 'ชื่อตารางที่ต้องการเก็บข้อมูล
DBrs.AddNew
DBrs![DateTime] = txtDateTime.Value 'ชื่อฟิวส์ที่ตาราง และชื่อtext box ที่ฟอร์ม
DBrs![Status] = Check5.Value 'ชื่อฟิวส์ที่ตาราง และชื่อtext box ที่ฟอร์ม
DBrs.Update
'เคลียร์ข้อมูล
Me.txtDateTime = ""
Me.Check5 = ""
End Sub
น่าจะประมาณนี้ครับ ไม่แน่ใจตรงความต้องการหรือเปล่าครับ
หน้า: [1] 2
