แสดงกระทู้

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

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

ขอบคุณครับ

2
ขอบคุณมากนะครับ

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

4
ตอนนี้ผมกำลังทำริบบอนเองในAccess 2016 ครับ ติดอยู่นิดหน่อยตรงชือรูปต่างๆที่มีในAccess ซึ่งคำสั่งที่ได้มีรูปแค่ชื่อเดียว คือ CreateForm (สังเกตุได้จาก imageMso ของแต่ละบรรทัดครับ) อยากทราบวิธีดูว่ารูปต่างๆมีชือว่าอะไรสามารถเข้าไปดูได้ที่ตรงไหนครับ เพราะผมต้องการให้แต่ละปุ่มมีรูปไม่เหมือนกันครับ

ตัวอย่างคำสั่ง
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui link">
<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>

6
ใส่ในtextboxที่่มันขึ้นว่าunknowได้หรือเปล่าครับ อาจจะเป็นฟอร์มหรือรีฟอร์ทก็ได้ครับ

7
ทำได้แล้วครับ ขอบคุณมากๆเลยนะครับ

8
1.เป็นเพราะการป้องกันการคลิกขวาไว้ หรือ
2.เป็นเพราะตั้งค่าตัวเลือกแถบเครื่องมือ ไม่ติ๊กถูกหน้าข้ออนุญาตให้ใช้เมนูทางลัดเบื้องต้น หรือทั้ง2ข้อ
วิธีแก้หากทำข้อที่1และ2ไม่ได้ ให้กดปุ่มCtrl+P พร้อมกันครับ

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

รูปครับ

10
ใส่แบบนี้ครับ =Date()

11
ขอบคุณอ.ปิ่นณรงค์เป็นอยากมากครับ

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

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


13
ขอบคุณมากนะครับ เครียดอยู่เกือบอาทิตย์

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

15
อ.ปิ่นณรงค์ไม่ต้องทำแล้วก็ได้ครับ ผมแก้ไขตัวโปรแกรมเรียบร้อยแล้วครับ เปลี่ยนจากคำสั่งVBเป็นมาโครทั้งหมดเลยครับ

16
ขอบคุณมากครับ ผมส่งเลขTeamไปให้อาจารย์แล้วครับ

หน้า: [1] 2 3