แสดงกระทู้

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

หน้า: 1 2 3 4 [5] 6 7 8 ... 18
73
วิธีที่สอง.ทำให้ VBA รอบรับภาษาไทยไปที่เมนู Tools -> Options -> Editor Format แก้ฟอร์นในรายการต่างๆให้เป็นฟอร์นที่รองรับภาษาไทยแล้วก็รองพิมพ์ข้อความอะไรลงไปดูครับ
ปล.ถ้าพิมพ์ภาษาไทยลงไปเองไม่มีปัญหา เวลาก๊อปมาวางก็ไล่ดูแล้วพิมพ์แก้เองเลยครับ :yuush:

74
2013 ผมหา Compile / DeCompile ไม่เจอครับ
compact and repair ทำแล้วแต่ก็ยังไม่ได้


โหลดไฟล์ Database39.mdb ของท่านมาใช้ได้ :sweat:

75
ไม่ว่าจะใช้แบบไหนผมก็รันไม่ได้เกิดจากอะไรครับนี่



76
ถ้าอยากใช้ DAO ก็เพิ่ม reference ตัวนี้เข้าไป


เครื่องผมเพิ่มไม่ได้ขึ้น Name conflicts with existing module, project, or object library แก้ยังไงครับ :question:

77
ในตารางแก้ฟิวล์ BCode ให้ Indexed = Yes (No Duplicates) หรือ ใช่ (ไม่มีรายการซ้ำ)

ไฟล์ที่แก้ใหม่ครับ

78
อ้างถึง
สร้างใบกำกับภาษีอย่างง่าย
สร้างตารางรายชื่อลูกค้า,รายการสินค้า,รายการบิล-ใบกำกับภาษี
สร้างหน้าฟอร์มเพื่อออกใบกำกับภาษี
สร้างรีพอร์ทเพื่อพิมพ์ออกมา

อ้างถึง
ไม่ต้องมีคิวรี่ก็ได้ใช่มั๊ยคะ
ไม่มีคิวรีนอกแต่มาทำคิวรี่ในตัวหน้าฟอร์มหรือรีพอร์ทได้ครับ

กำลังศึกษา โดยเริ่มจาก 0 ตอนนี้พอเข้าบ้างเล็กน้อย
ศึกษาแนวทางจากอาจารย์ Access-Creator ดูครับ https://youtube.com/playlist?list=PLwzcDwbNPuZdgYg19uxwlMcPan10_-AEo
(รายการคลิปสอนผมจัดชุดขึ้นมาเองนะครับ อาจารย์มีคลิปอื่นให้ศึกษาทำความเข้าใจอีกเยอะครับ)

79
ลองใส่โค้ดดูแล้วครับ โค้ดไม่ทำงานครับ
ลองแก้ rst!Status เป็น rst!studstatus ครับ

80
ศึกษาแนวทางทำ"ยกยอด"จากอาจารย์ได้เลยครับ


81
โจทย์เดียวกันกับกระทู้นี้นะครับ https://www.thai-access.com/index.php?topic=1614.msg7017#msg7017
คำตอบ
โค๊ด: [Select]
Private Sub Select_AfterUpdate()
    CurrentDb.Execute "UPDATE RssmNew_filter SET complete = " & Me.Select & " WHERE เลขที่ใบเบิก = '" & Me.IDNumber & "'", dbFailOnError
    Me.Recalc
End Sub

ชุดคำสั่งที่จะนำไปใช้ก็แก้ให้ตรงกับของท่านดังนี้
Private Sub "ชื่อปุ่ม Input"_Click()
   RssmNew_filter--> ชื่อตารางหรือคิวรี่ที่ซัพฟอร์มดึงมา
   Me.IDNumber--> ชื่อกล่องข้อมูลบนฟอร์มหลักที่ใช้กรองข้อมูลซัพฟอร์ม(จากภาพท่านกรองจากกล่อง Iso No. ใช่หรือไม่?)
เลขที่ใบเบิก--> ชื่อฟิวล์ในตารางซัพฟอร์มที่รับคำสั่งกรองมาจากข้อบน ^^^^^
Me.Select--> me.cmb_package(ชื่อกล่องที่ต้องการดึงบนหน้าฟอร์ม)
complete--> j_testloop(ชื่อฟิวล์ในตารางที่ต้องการให้นำข้อมูลมาวาง)
End Sub

ปล.อัพเดทอัพไฟล์ตัวอย่างกระทู้เก่าให้แล้วนะครับ

82
> ต้องการให้อัพเดทฟิวล์ studstatus ในทุกข้อมูลตาม rank ที่อยู่บนหน้าฟอร์มหรือตาม rank ที่อยู่เก็บอยู่ใน M1_GIF(เท่ากับว่าใน M1_GIF ต้องมีฟิวล์ studstatus,rank)
> M1_GIF.studstatus ใช้แค่ studstatus
> ลองถอดวงเล็บออกจากเป็น DoCmd.RunSQL sql ครับ

83
ขอดูไฟล์หรือโค้ดที่ใช้ได้ใหมครับ
หรือแนวทางคือแก้หน้าที่จะพิมพ์ให้ดึงเลขใบกำกับภาษีจากหน้าฟอร์มเองเลยนะ

84
อย่างที่ อ.OddyWriter บอกด้านล่างครับว่าตัว Access ไม่มีความสามารถนี้ผมจึงใช้โปรแกรม Cobian Backup แล้วตั้งเวลาให้โปรแกรมค่อยแบ็คอัพนะครับ  :zzz:
รุ่นสุดท้าย: 11.2.0.582 / 6 ธันวาคม 2555 คงเพราะฟรีล่ะมั้งนี่ :cry:

85
AAABBB100 เป็นตัวอักษรไม่ใช้ตัวเลขดังนั้นการที่จะบวกได้ก็ต้องใช้ Left,Right แยกออกมาก่อนบวกแล้วรวมกลับเข้าไปจากนั้นถึงจะนำเข้าไปใส่ใน Database นะครับ
>จำนวนตัวอักษรต้องเท่ากันทุกครั้งในการใช้ Left,Right แยกออกมา
>เมื่อ 900+100 = 1000 แต่เมื่อวนกลับไปใช้ Left,Right จะได้ 000(ดึง3ตัวท้าย)
>ตัวอย่างชื่อเทเบิ้ล Table1 ,ชื่อฟิวล์ BCode

โค๊ด: [Select]
Private Sub QRCode_AfterUpdate()
Dim i As Integer
Dim X As Variant
Dim Y As Variant
Y = Me.QRCode
DoCmd.SetWarnings (0)
For i = N + 1 To Me.Text0 'ตั้งออโต้จำนวนใว้ที่ 6
    SQL = "insert into Table1 ([BCode]) values('" & Y & "');"
    DoCmd.RunSQL SQL
    X = Right(Y, 3) + 100
    Y = Left(Me.QRCode, 6) & X
Next
DoCmd.SetWarnings (1)
Me.Recalc
End Sub

86
คำตอบ
โค๊ด: [Select]
Private Sub Select_AfterUpdate()
    CurrentDb.Execute "UPDATE RssmNew_filter SET complete = " & Me.Select & " WHERE เลขที่ใบเบิก = '" & Me.IDNumber & "'", dbFailOnError
    Me.Recalc
End Sub

ขอบคุณวิธีทำจากโพสต์ของ อ.สันติสุข ครับ :love:
: Update ข้อมูล หลาย Record พร้อมกัน
> ขอสอบถามเรื่องการอัพเดทข้อมูลครับ


เลขที่ใบเบิก ใน VBA ก็อบมาใส่เว็บ = àÅ¢·ÕèãºàºÔ¡ ก็อบจากเว็บกลับไปวางใน VBA โดยไม่แก้ก่อนจะเป็น ????????????  :ouch:

87
จากไฟล์ จขกท ตัวฟอร์มย่อยจะดึงข้อมูลที่มีอยู่แล้วมาแสดง(Datasheet View)แล้วตัวฟอร์มหลักจะสั่งกรองให้เหลือ"เลขที่ใบเบิก"ที่ต้องการดู,แก้ไขเท่านั้น
โจทย์ ฟอร์มหลักจะเขียนคำสั่งอย่างไรให้แก้ไขฟิวล์ "complete" ในทุกเรคคอร์ดที่มี "เลขที่ใบเบิก" เดียวกัน :question:
คำตอบ อยู่โพสต์ถัดไป :smile:

ปล.ชื่อฟิวล์,ชื่อ....ที่ใช้ภาษาไทยแก้เป็นภาษาอังกฤษก่อนจะเกิดปัญหาในอนาคตนะครับ
ตย.ชื่อฟอร์มย่อย me.¿ÍÃìÁÂèÍÂ_RssmNew_filter เวลาเรียกใช้บน VBA

88



ปล.แล้วลองต่อออกจอทีวีดูหรือยังครับ
ปล2.ตัวอย่างโค๊ดจากเว็บที่ท่าน PNR แนะนำมานั่นก็ดีครับสามารถนำไปใช้ได้ในกรณีตอนเราออกออกแบบฟอร์มแล้วไปแสดงผมบนหน้าจออื่นที่ความละเอียดของหน้าจอไม่เท่ากันตัวโค้ดก็จะทำการย่อหรือขยายออกมาให้สังเกตุที่จุดแดง5จุดที่เขาทำใว้ภาพเล็กสี่เหลือจัตุรัสเมื่อใช้โค้ดจุดแดงกลายเป็นผืนผ้าแต่ตัวหนังสือยังคงเล็กเท่าเดิม
สรุปคือไปตั้งค่าความละเอียดหน้าจอให้เท่ากันหรือใกล้เคียงกันจะเป็นการดีที่สุดครับ

89
เอ๋ :question: ผมคิดว่าถ้าต่อตรงจากคอมพิวเตอร์ระบบมันจะอ้างอิงจากมาตราส่วนหน้าจอเฉยๆนะครับเช่นจอคอมฯตั้งใว้ที่ 1600x900 จอทีวีก็ตั้ง 1600x900 เท่ากันมันก็จะแสดงผลออกมาเต็มจอเท่ากันแต่ตัวใหญ่ขึ้นเท่านั้นนั่นล่ะครับ (คอมฯ20นิ้วตัว A=10cm. / ทีวี40นิ้วตัว A=20cm.)
ขนาดของหน้าฟอร์มหรือรีพอร์ทที่เราเห็นเป็นเซนติเมตรหรือนิ้วนั้นมันจะมีผลกับการสั่งพิมพ์ออกมาเป็นหลักเท่านั้นครับ

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


โค๊ด: [Select]
Option Compare Database

Private Sub SLBoss1_Click()
Call unOption
Me.SLBoss1 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30021.jpg"
End Sub
Private Sub SLBoss2_Click()
Call unOption
Me.SLBoss2 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30017.jpg"
End Sub
Private Sub SLBoss3_Click()
Call unOption
Me.SLBoss3 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30015.jpg"
End Sub
Private Sub SLBoss4_Click()
Call unOption
Me.SLBoss4 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30011.jpg"
End Sub
Private Sub SLBoss5_Click()
Call unOption
Me.SLBoss5 = True
Me.Image11.Picture = CurrentProject.Path & "\Pics\" & "card_30006.jpg"
End Sub

Sub unOption()
'ชุดคำสั่งเพี่อให้ตัวเลือกทั้งหมดถูกยกเลิก
Dim ctl As Control
    For Each ctl In Me.Controls
     Select Case ctl.ControlType
       Case acOptionGroup, acOptionButton
           ctl.Value = Null
       Case acCheckBox
          ctl.Value = False
    End Select
   Next
   Set ctl = Nothing
End Sub

หน้า: 1 2 3 4 [5] 6 7 8 ... 18