แสดงกระทู้

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

หน้า: [1] 2 3
1
ห้อง MS Access / : ACCESS เซฟเป็นโปรแกรม และ ทำปุ่ม เพิ่มไฟล์ excel เข้าไป ได้มั้ยครับ
« เมื่อ: 10 ส.ค. 67 , 20:40:31 »
คำสั่ง เมื่อเรียกใช้งานปัจจุบัน ใส่ในฟอร์มที่เรียกใช้งานครั้งแรกครับ
Private Sub Form_Current()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.Maximize
End Sub
แล้วตั้งค่าโปรแกรมตามรูปนะครับ

2
ห้อง MS Access / : อยากทราบคำสั่งคัดลอกฐานข้อมูล สำหรับAccess2016ครับ
« เมื่อ: 16 พ.ย. 63 , 14:38:19 »
ทำได้ครับ ขอบคุณมากๆนะครับ

3
ห้อง MS Access / : อยากทราบวิธี save ไฟล์ Access ให้ออกมาเป็นโปรแกรมใช้งาน
« เมื่อ: 14 พ.ย. 63 , 15:46:52 »
ผมขอแนะนำอีก1วิธีครับ ตั้งค่าเปิดฟอร์มที่ต้องการแบบอัตโนมัติ ที่ฟอร์ม เมื่อเรียกใช้งานปัจจุบัน ใส่โค้ดดังนี้
Private Sub Form_Current()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
DoCmd.Maximize
End Sub
ตรงตัวเลือกของAccess ที่แถบด้านซ้ายเลือกฐานข้อมูลปัจจุบัน ติ๊กแสดงบานหน้าต่างนำทางออกครับ

4
ห้อง MS Access / อยากทราบคำสั่งคัดลอกฐานข้อมูล สำหรับAccess2016ครับ
« เมื่อ: 14 พ.ย. 63 , 15:12:05 »
รบกวนสมาชิกในกลุ่มหน่อยนะครับ คือผมค้นหาวิธีการคัดลอกฐานข้อมูลจากโฟลเดอร์Aไปยังโฟล์เดอร์B คำสั่งที่ได้คือFCopy ซึ่งผมไม่สามารถใช้ในAccess2016 ได้ครับ เพราะคำสั่งนี้มันนานมากแล้ว เวลาคลิกที่ปุ่มมันจะError อยากทราบว่ามีคำสั่งอื่นที่สามารถใช้ได้หรือไม่ครับ
ขอบคุณครับ

5
ห้อง MS Access / วินโดว10เขียนโค้ด access ไม่ได้ครับ
« เมื่อ: 04 ก.พ. 63 , 10:06:54 »
สวัสดีครับ ผมมีปัญหาเรื่องการเขียนโค้ดVBในAccess2016 เขียนด้วยวินโดว8 ใช้ได้ปกติแล้ว นำไฟล์ไปเปิดในวินโดว10 เปิดไม่ได้มันขึ้น ActiveX สร้างไฟล์ใหม่นำเข้าไฟล์เดิมก็ไม่ได้ นำเข้าตารางกับคิวรี่แล้วสร้างฟอร์มเองมันเปิดฟอร์มได้ครับ แต่พอเขียนโค้ดเท่านั้นแหละ กลับเปิดฟอร์มไม่ได้อีกขึ้นข้อความ ActiveX เหมือนเดิม เปลี่ยนพศ.เป็น คศ.ก็ยังไม่ได้ ตอนนี้จนปัญญาจริงๆครับ ไม่รู้ต้องแก้อย่างไร

จะสร้างไฟล์ใหม่ก็ได้แต่ขอให้เขียนโค้ดVBได้ ต้องทำอย่างไรครับ

ขอบคุณครับ

6
ห้อง MS Access / : ต้องการห้ามกดปุ่ม Page Up / Page Down ครับ
« เมื่อ: 13 ส.ค. 62 , 09:24:13 »
ขอบคุณมากนะครับ

7
ห้อง MS Access / ต้องการห้ามกดปุ่ม Page Up / Page Down ครับ
« เมื่อ: 12 ส.ค. 62 , 21:31:58 »
เรียนท่านอาจารย์ครับ ผมมีปัญหาทางเทคนิคเกี่ยวกับโปรแกรมของผม ที่ห้ามกดปุ่มPage Down เป็นอันขาด แต่บางครั้งผู้ใช้กลับเผลอไปกดมันในขณะคีย์ตัวเลขแบบรีบๆ พอจะมีวิธีตัดไม่ให้โปรแกรมรับคำสั่งปุ่มPage Up / Page Downได้หรีือไม่ครับ

8
ห้อง MS Access / ต้องการทราบชื่อรูปต่างๆในAccess2016ครับ
« เมื่อ: 31 ก.ค. 62 , 14:53:26 »
ตอนนี้ผมกำลังทำริบบอนเองในAccess 2016 ครับ ติดอยู่นิดหน่อยตรงชือรูปต่างๆที่มีในAccess ซึ่งคำสั่งที่ได้มีรูปแค่ชื่อเดียว คือ CreateForm (สังเกตุได้จาก imageMso ของแต่ละบรรทัดครับ) อยากทราบวิธีดูว่ารูปต่างๆมีชือว่าอะไรสามารถเข้าไปดูได้ที่ตรงไหนครับ เพราะผมต้องการให้แต่ละปุ่มมีรูปไม่เหมือนกันครับ

ตัวอย่างคำสั่ง
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon startFromScratch="true">
<tabs>
   <tab id="tab1" label="แฟ้ม" >
      <group id="grp1" label="แฟ้ม" >
                        <button id="btn1" size="large" label="รับสินค้าเข้าคลัง" onAction="buttonCallback" imageMso="CreateForm" />
                        <button id="btn2" size="large" label="สินค้าชำรุด" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn3" size="large" label="สินค้าเบิกใช้" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn4" size="large" label="สั่งซื้อสินค้า" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn5" size="large" label="ออกใบกำกับภาษี" onAction= "buttonCallback" imageMso="CreateForm" />
      </group>
   </tab>
   <tab id="tab2" label="ข้อมูลหลัก" >
      <group id="grp2" label="ข้อมูลหลัก" >
         <button id="btn6" size="large" label="ชื่อบริษัท" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn7" size="large" label="ชื่อลูกค้าและร้านค้า" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn8" size="large" label="ชื่อลูกค้าออนไลน์" onAction= "buttonCallback" imageMso="CreateForm" />
      </group>
   </tab>
        <tab id="tab3" label="ข้อมูลสินค้า" >
      <group id="grp3" label="ข้อมูลสินค้า" >
         <button id="btn9" size="large" label="ประเภทสินค้า" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn10" size="large" label="หน่วยนับ" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn11" size="large" label="ข้อมูลสินค้า" onAction= "buttonCallback" imageMso="CreateForm" />
      </group>
   </tab>
        <tab id="tab4" label="รายงานยอดขาย" >
      <group id="grp4" label="รายงานยอดขาย" >
         <button id="btn12" size="large" label="รายงานยอดขาย" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn13" size="large" label="รายงานยอดขายแต่ละประเภท" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn14" size="large" label="รายงานยอดขายตามประเภท" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn15" size="large" label="ยอดขายเลือกรายการ" onAction= "buttonCallback" imageMso="CreateForm" />   
                        <button id="btn16" size="large" label="เป้ายอดขาย" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn17" size="large" label="รายงานภาษีขาย" onAction= "buttonCallback" imageMso="CreateForm" />
      </group>
        </tab>
        <tab id="tab5" label="รายงานยอดสินค้า" >
      <group id="grp5" label="รายงานยอดสินค้า" >
         <button id="btn18" size="large" label="รายงานรับสินค้า" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn19" size="large" label="รายงานสินค้าเบิกใช้" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn20" size="large" label="รายงานสินค้าชำรุด" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn21" size="large" label="สต๊อคสินค้า" onAction= "buttonCallback" imageMso="CreateForm" />   
                        <button id="btn22" size="large" label="จุดสั่งซื้อ" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn23" size="large" label="รายงานภาษีซื้อ" onAction= "buttonCallback" imageMso="CreateForm" />
      </group>
        </tab>
        <tab id="tab6" label="แบบฟอร์ม" >
      <group id="grp6" label="แบบฟอร์ม" >
                   <button id="btn24" size="large" label="ใบตรวจนับสินค้า" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn25" size="large" label="พิมพ์ป้ายราคาขอบเชลฟ์" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn26" size="large" label="พิมพ์ป้ายราคาขอบเชลฟ์(All)" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn27" size="large" label="พิมพ์บาร์โค้ดสินค้า" onAction= "buttonCallback" imageMso="CreateForm" />   
      </group>
        </tab>
        <tab id="tab7" label="ข้อมูลทั่วไป" >
      <group id="grp7" label="ข้อมูลทั่วไป" >
         <button id="btn28" size="large" label="ยกเลิกบิล" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn29" size="large" label="ส่งข้อมูลยอดขาย" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn30" size="large" label="รายการค้างจ่าย" onAction= "buttonCallback" imageMso="CreateForm" />   
                        <button id="btn31" size="large" label="เรียกดูบิลย้อนหลัง" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn32" size="large" label="แก้ไขรายการ" onAction= "buttonCallback" imageMso="CreateForm" />
      </group>
        </tab>
        <tab id="tab8" label="บริหารร้าน" >
      <group id="grp8" label="บริหารร้าน" >
         <button id="btn33" size="large" label="ดึงกำไร" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn34" size="large" label="คำนวนและบริหารยอดกำไร" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn35" size="large" label="ผลประกอบการ" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn36" size="large" label="ผลประกอบการรายปี" onAction= "buttonCallback" imageMso="CreateForm" />   
      </group>
   </tab>
        <tab id="tab9" label="แก้ไขฐานข้อมูล" >
      <group id="grp9" label="แก้ไขฐานข้อมูล" >
         <button id="btn37" size="large" label="Order tbl" onAction= "buttonCallback" imageMso="CreateForm" />
                        <button id="btn38" size="large" label="Bill tbl" onAction= "buttonCallback" imageMso="CreateForm" />
      </group>
   </tab> 
</tabs>
</ribbon>
</customUI>

9
ห้อง MS Access / : สอบถามวิธีเปลี่ยนลูกศรของเมาท์ไปเป็นรูปมือ เวลาเคลื่อนเมาท์ไปบนรูปภาพ
« เมื่อ: 29 ก.ค. 62 , 19:54:06 »
ลองศึกษาจากไฟล์นี้ดูครับ
http://1drv.ms/1iXVNr6

10
ห้อง MS Access / : ใช้ฟังก์ชั่น Date() ไม่ได้ แก้ได้ไหม
« เมื่อ: 05 พ.ค. 62 , 06:51:56 »
ใส่ในtextboxที่่มันขึ้นว่าunknowได้หรือเปล่าครับ อาจจะเป็นฟอร์มหรือรีฟอร์ทก็ได้ครับ

11
ห้อง MS Access / : ต้องการให้Enterแล้วไม่มีผลอะไรเกิดขึ้นครับ
« เมื่อ: 03 พ.ค. 62 , 13:47:39 »
ทำได้แล้วครับ ขอบคุณมากๆเลยนะครับ

12
ห้อง MS Access / : access 2013 runtime คลิกขวาไม่ได้
« เมื่อ: 03 พ.ค. 62 , 12:37:57 »
1.เป็นเพราะการป้องกันการคลิกขวาไว้ หรือ
2.เป็นเพราะตั้งค่าตัวเลือกแถบเครื่องมือ ไม่ติ๊กถูกหน้าข้ออนุญาตให้ใช้เมนูทางลัดเบื้องต้น หรือทั้ง2ข้อ
วิธีแก้หากทำข้อที่1และ2ไม่ได้ ให้กดปุ่มCtrl+P พร้อมกันครับ

13
ห้อง MS Access / ต้องการให้Enterแล้วไม่มีผลอะไรเกิดขึ้นครับ
« เมื่อ: 03 พ.ค. 62 , 12:28:17 »
สวัสดีครับ ผมมีปัญหาหากเคอร์เซอร์อยู่ในช่องบาร์โค้ดแล้วบังเอิญไปEnterทั้งๆที่ยังไม่ใส่ตัวเลข เคอร์เซอร์จะกระโดดไปที่Subform ในช่องจำนวนตามรูปครับ ผมต้องการให้ ถ้าไม่มีข้อมูลใดใดในช่องบาร์โค้ดหากมีการกดปุ่มEnter จะไม่มีผลใดใดเกิดขึ้นเลย ขอคำแนะนำเรื่องโค้ดครับ
ตัวอย่างโค้ดช่องบาร์โค้ด
Private Sub Barcode_BeforeUpdate(Cancel As Integer)
If Nz(Forms!Sale!Barcode, "") = "" Then Exit Sub
If DCount("*", "Product", "[Item-no]=Forms!Sale!Barcode") > 0 Then
Else
MsgBox "ไม่พบข้อมูลสินค้า", vbExclamation, "พบข้อผิดพลาด"
Cancel = True
End If
End Sub

โค้ดปุ่มหลังจากที่ใส่ข้อมูลในช่องบาร์โค้ดแล้วกดEnter
Private Sub Command122_Enter()
On Error Resume Next
Forms("Sale").subformsale.Form.Item_no = Barcode
subformsale.SetFocus
DoCmd.GoToRecord , , acNewRec
DoCmd.GoToControl "Barcode"
Barcode.SetFocus
Barcode = Null
End Sub

รูปครับ

14
ห้อง MS Access / : ใช้ฟังก์ชั่น Date() ไม่ได้ แก้ได้ไหม
« เมื่อ: 30 เม.ย. 62 , 20:30:43 »
ใส่แบบนี้ครับ =Date()

15
ห้อง MS Access / : ต้องการเปิดรายงานแบบเลื่อกข้อมูลในกล่องคำสั่งครับ
« เมื่อ: 07 มี.ค. 62 , 13:55:13 »
ขอบคุณอ.ปิ่นณรงค์เป็นอยากมากครับ

16
ห้อง MS Access / ต้องการเปิดรายงานแบบเลื่อกข้อมูลในกล่องคำสั่งครับ
« เมื่อ: 07 มี.ค. 62 , 12:25:28 »
รบกวนอาจารย์ครับ
พอดีผมเคยเห็นวิธีการทำในเว็บบอร์ดนี้เป็นปีได้แล้วแต่ผมพยายามหาแล้วไม่เจอเลย รบกวนอาจารย์แนะนำหน่อยนะครับ
ชื่อตาราง tblRCReport
ชื่อฟอร์มเลือกรายการ RptAdd
ชื่อReportสำหรับเปิดรายงานมี3Reportประกอบด้วย
-Fadd
-FAddCompany
-FAddDetialCompany

ผมต้องการเลือกรายงานที่จะแสดงซึ่งมี3รายงาน โดยเลือกรายงานที่1ก็จะเปิดReport add หากเลือกรายงานแบบที่2ก็จะเปิดReport FAddCompany หากเลืือกรายงานแบบที่3ก็จะเปิดReport FAddDetialCompany ผมควรเขียนโค้ดที่ปุ่มตกลงอย่างไรครับ


17
ห้อง MS Access / : ขอคำแนะนำภาษา ¡Ãسһé͹ ¨Ó¹Ç¹ºÔÅ. แบบนี้ในวินโดว8ครับ
« เมื่อ: 02 ธ.ค. 61 , 15:30:15 »
ขอบคุณมากนะครับ เครียดอยู่เกือบอาทิตย์

18
ห้อง MS Access / ขอคำแนะนำภาษา ¡Ãسһé͹ ¨Ó¹Ç¹ºÔÅ. แบบนี้ในวินโดว8ครับ
« เมื่อ: 02 ธ.ค. 61 , 11:12:57 »
พอดีผมลงวินโดว์จาก7เป็น8 มีปัญหาเรื่องMsgBox และBahttextแสดงคล้ายๆแบบนี้ครับ ¡Ãسһé͹ ¨Ó¹Ç¹ºÔÅ. ผมมีการตั้งค่าในMicrosoft Visual Basic set Tools->Option->Editor Format เลือก font ให้เป็น font ภาษาไทยแล้ว ข้อความในVBเป็นภาษาไทยแล้ว แต่ตอนแสดงผลยังเป็นภาษาต่างดาวอยู่อีก ต้องแก้ที่ตรงไหนครับ

หน้า: [1] 2 3