แสดงกระทู้

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.


Topics - ekppom

หน้า: [1]
1
รบกวนสมาชิกในกลุ่มหน่อยนะครับ คือผมค้นหาวิธีการคัดลอกฐานข้อมูลจากโฟลเดอร์Aไปยังโฟล์เดอร์B คำสั่งที่ได้คือFCopy ซึ่งผมไม่สามารถใช้ในAccess2016 ได้ครับ เพราะคำสั่งนี้มันนานมากแล้ว เวลาคลิกที่ปุ่มมันจะError อยากทราบว่ามีคำสั่งอื่นที่สามารถใช้ได้หรือไม่ครับ
ขอบคุณครับ

2
สวัสดีครับ ผมมีปัญหาเรื่องการเขียนโค้ดVBในAccess2016 เขียนด้วยวินโดว8 ใช้ได้ปกติแล้ว นำไฟล์ไปเปิดในวินโดว10 เปิดไม่ได้มันขึ้น ActiveX สร้างไฟล์ใหม่นำเข้าไฟล์เดิมก็ไม่ได้ นำเข้าตารางกับคิวรี่แล้วสร้างฟอร์มเองมันเปิดฟอร์มได้ครับ แต่พอเขียนโค้ดเท่านั้นแหละ กลับเปิดฟอร์มไม่ได้อีกขึ้นข้อความ ActiveX เหมือนเดิม เปลี่ยนพศ.เป็น คศ.ก็ยังไม่ได้ ตอนนี้จนปัญญาจริงๆครับ ไม่รู้ต้องแก้อย่างไร

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

ขอบคุณครับ

3
เรียนท่านอาจารย์ครับ ผมมีปัญหาทางเทคนิคเกี่ยวกับโปรแกรมของผม ที่ห้ามกดปุ่มPage Down เป็นอันขาด แต่บางครั้งผู้ใช้กลับเผลอไปกดมันในขณะคีย์ตัวเลขแบบรีบๆ พอจะมีวิธีตัดไม่ให้โปรแกรมรับคำสั่งปุ่มPage Up / Page Downได้หรีือไม่ครับ

4
ตอนนี้ผมกำลังทำริบบอนเองใน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>

5
สวัสดีครับ ผมมีปัญหาหากเคอร์เซอร์อยู่ในช่องบาร์โค้ดแล้วบังเอิญไป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

รูปครับ

6
รบกวนอาจารย์ครับ
พอดีผมเคยเห็นวิธีการทำในเว็บบอร์ดนี้เป็นปีได้แล้วแต่ผมพยายามหาแล้วไม่เจอเลย รบกวนอาจารย์แนะนำหน่อยนะครับ
ชื่อตาราง tblRCReport
ชื่อฟอร์มเลือกรายการ RptAdd
ชื่อReportสำหรับเปิดรายงานมี3Reportประกอบด้วย
-Fadd
-FAddCompany
-FAddDetialCompany

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


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

8
พอดีผมเปลี่ยนวินโดวส์ใหม่จาก7เป็น8 กลายเป็นว่าเปิดโปรแกรมไม่ได้ครับ พอจะมีวิธีแก้หรือเปล่า ไม่อยากเขียนใหม่เลยครับ

9
สวัสดีครับท่านอาจารย์
ผมต้องการทราบว่าเราสามารถสร้างปุ่มCheckboxเพื่อติ๊กเลือกเฉพาะรายการที่2และรายการที่3ให้โหลดบาร์โค้ดลงในช่องรหัสสินค้าพร้อมกันทั้ง2รายการได้หรือไม่ครับ อย่างเช่นลูกค้าซื้อมิรินด้าสีแดงกับสีส้ม แต่ผมจะเลือกได้แค่ที่ละรายการครับ (หากทำเป็นว่าเลือกรายการเสร็จไม่ต้องปิดก็ไม่ได้เพราะมันไม่ไปReccordใหม่ครับ)


10
  พอดีผมไปเจอไฟล์โปรแกรมอยู่ตัวหนึ่ง เขียนด้วยAccess2007 ไม่ทราบว่าเขามีวิธีทำแถบเมนูได้อย่างไรครับ เพราะเท่าที่ผมศึกษาในเว็บบอร์ดนี้ Access2007 ขึ้นไปจะไม่อนุญาติให้ผู้ใช้เปลี่ยนแถบเมนูหรือกำหนดแถบเมนูเองได้ แต่ทำไมโปรแกรมนี้ถึงทำได้ เขาทำอย่างไรครับ

http://www.iamwebstore.com/downloads
ที่อยู่ไฟล์โปรแกรม


11
เผื่อใครต้องการเรียนรู้การตัดสต๊อคสินค้านะครับลองศึกษาดูได้ครับ เป็นAccessเวอร์ชั่น2003และ2016ครับ
-ระบบแยกฐานข้อมูลออกจากฟอร์มและรายงาน
-ตัดบานหน้าต่างนำทางและแถบเมนูออก
-ใช้ระบบส่งข้อมูลยอดขายแยกไว้ในตารางใหม่เพื่อไม่ให้ออกรายงานผิดหากมีการเปลี่ยนแปลงเรื่องราคา
-ระบบตัดสต๊อคทันทีที่ขายโดยไม่ต้องส่งข้อมูลก่อน
-รายงานสต๊อคคงเหลือทันที
-รายงานจุดสั่งซื้อสินค้า

ออกแบบและเขียนแบบง่ายๆเพื่อให้เกิดความเข้าใจสำหรับมือใหม่
หากเกิดข้อผิดพลาดหรือวิธีการไหนที่ดีกว่านี้และง่ายกว่านี้ผมต้องขออภัยด้วยนะครับ เพราะไม่ใช่มืออาชีพสักเท่าไหร่ครับ











12
ผมต้องการสร้างปุ่มขึ้นมา2ปุ่มเป็นการเพิ่มจำนวนและลดจำนวนอย่างละ1ปุ่ม แต่ไม่ทราบว่าต้องใช้โค้ดอย่างไร
ผมลองใช้โค้ด Me.Text22=Qty+1 และMe.Text22=Qty-1 มันเป็นการใส่ค่า1และค่า-1ในช่องจำนวน ไม่ทราบว่าผมต้องเขียนโค้ดอย่างไรดีครับ


หน้า: [1]