แสดงกระทู้

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

หน้า: [1] 2 3 4 5
1
ยังไม่ได้ประกาศตัวแปร
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

2
จากโค้ดที่ให้ไป แก้ชื่อตารางจาก mytable เป็น ptt ก้อนครับผมลืมแก้ให้ :prettiness: :prettiness:

ได้แล้วครับพี่สุดยอดเลยครับ
เดี๋ยวตอนบ่ายผมมาถามเรื่องตั้งกระทู้ถามเรื่อง MsgBox ใน กรณีที่ใช้ Sub อีกครับนะครับขอบคุณครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

3
ถ้าใช้ 1 กับ 2 แบบนี้ เวลาทำ Total Query เพื่อหาผลรวม มันก็ทำได้นะครับ แต่จะยุ่งยากหน่อยๆ
แนะนำให้เปลี่ยนจาก 1 กับ 2 เป็น 1 กับ -1 แล้วเพิ่มคอลัมน์ ที่นำจำนวนมาคูณกับ 1 กับ -1

จากนั้นทำ Total Query จากค่าผลลัพธ์ที่ได้

อีกอย่าง "ตัวแปร" คือ Variable ส่วน "ตัวแปล" ก็ประมาณ "วุ้นแปลภาษาของโดเรมอน" ครับ



ขอ Query Running sum ฟิลด์ Totel ครับ
โดย MCode เป็นตัวแปลตามชนิดวัสดุ
      MType เป็นตัวแปลถ้ารับ(เท่ากับ1)จะเอาค่าที่รับมาบวก ถ้าเบิก(เท่ากับ2)เอามาลบ
Table แรกชื่อ qMrep

ขอความช่วยเหลือด้วยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

4
ทำแล้วครับ ตอนนี้ Query ที่ส้รางมาใหม่ตามที่พี่บอก อัพเดตค่าตามคนเราดูอยู่แล้วครับ แต่ตอนกดปริ้นมันโชว์แต่รูปของคนแรกครับ ไม่ทราบว่าผมอิงอะไรผิดรึเปล่าครับ

ได้แล้วครับ อิง Record Source ผิดครับ อิงเป็น Query ที่ส้รางมาใหม่ได้ผลแล้วครับ ขอบคุณครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

5
ห้อง MS Access / : export to excel
« เมื่อ: 22 มิ.ย. 64 , 11:36:53 »
เปิดทั้งหมดตามภาพท่าน PNR ดูครับ
ตรง Tool >> Reference
เพิ่มตัว MS OFFICE XX Object libary ด้วยครับ ตามภาพ

โพสต์นี้ได้รับคำขอบคุณจาก: PNR

6
ลองดูนะครับ


โพสต์นี้ได้รับคำขอบคุณจาก: PNR

7
ทำตามคำแนะนำของอาจารย์แล้วได้ตามใจต้องการแล้วครับ แล้วค่อยไปจัดการด้วยวิธีอื่นๆ ต่อ สามารถปรับลด เพิ่มหรือเปลี่ยนจำนวนดวง ขนาดสติกเกอร์สำเร็จรูปได้หลายๆแบบสบายเลย แปะขวดเครื่องปรุง อุปกรณ์ในบ้านก็ได้
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

8
-> กรองชื่อลูกค้าโดยวิธีลิ้งฟอร์มหลัก-ฟอร์มย่อย
-> กรองวันที่ออกบิลโดยใช้คำสั่ง Filter
โค๊ด: [Select]
Private Sub cmdDate_Click()
Me.fm_Invoice_sub2.Form.Filter = "[Saledate] BETWEEN #" & Format(Me.BeginDate, "dd mmm yyyy") & "# AND #" & Format(Me.EndDate, "dd mmm yyyy") & "#"
Me.fm_Invoice_sub2.Form.FilterOn = True
Me.fm_Invoice_sub2.Form.Refresh
Call Form_Current
End Sub

ไฟล์ตัวอย่างผมสร้างตาราง,ฟอร์มหลัก,รีพอร์ทชื่อ Invoice มาให้ใหม่ ส่วนฟอร์มย่อย Invoice_sub จะดึงข้อมูลบิลที่เคยออกไปจากตาราง Sale_H
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

9
เผื่อไม่เข้าใจที่ อ.PNR บอกนะครับ
ทำ Query ให้ใหม่ ชื่อ Query1
ทำ Report ให้ใหม่ ชื่อ Report
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

10
วิธีที่1.ทำให้ทุนรวมเก็บค่าอยู่ในตารางถึงจะ Sum ได้(ผมใช้วิธีีนี้อยู่แต่มันยุ้งยากไปพึ่งจะเจอวิธีที่2นี่ล่ะ)

วิธีที่2.นำตารางที่ใช้ไปทำคิวรี่แล้วเพิ่มฟิวล์ ทุนรวม: [จำนวน]*[ทุน] ที่ฟอร์มก็เปลี่ยนจากที่ดึงข้อมูลจากตารางมาเป็นคิวรี่,กล่องทุนรวม([text34])ก็ดึงผลมาจากคิวรี่ได้เลย,=SUM([ทุนรวม])

ตย.คิวรี่
  จำนวน    ทุน   ทุนรวม: [จำนวน]*[ทุน]

ตย.ฟอร์ม
          =SUM([ทุนรวม]) 1000
  จำนวน    ทุน   ทุนรวม
  10  100   1000
  0  200   0
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

11
ขอบคุณมากครับ กรรมจริงๆผมไม่รู้เลย ไปหาตรง Property อย่างเดียว
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

12
ไม่รู้ว่าใช่ Version ที่ต้องการหรือเปล่า
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

13
เจอไฟล์ Excel คำนวนดอกเบี้ยเอามาฝากครับโดยแนวทางการคำนวนเขาคือ ใส่เงินต้น,ดอกเบี้ย/ปี,จำนวนงวด โปรแกรมก็จะคำนวนมาให้ว่าจ่ายงวดล่ะเท่าไหร่โดยเท่ากันทุกงวด(ทศนิยมสองตำแหน่ง) เพื่อเป็นแนวทางครับ

ปล.ไฟล์ Excel เขาทำตารางคำนวนเผื่อไว้เฉยๆนะ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

14
ใช้​ BeforeUpdate event หลัง​ texbox อันที่2 ดีกว่าครับ

 If (not isnull(me. textbox_id) or me.textbox_id<>""​)​ and (not isnull(textbox_disease) or me. textbox_disease<>""​) then
        If dcount("*", "table_name", "id=forms! Formname!textbox_id and   disease =forms! Formname!textbox_disease" ) >0
       then
       Msgbox "ข้อมูลซ้ำ"
       Cancel=true
       End if
Else
Msgbox "ใส่ข้อมูลไม่ครบ"
End if
ลองประยุกต์ดูครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

15
ถ้าหากจะใช้การตัดวันที่ ที่ผ่านมาออกไปแสดงเฉพาะวันที่ปัจจุบันเป็นต้นไปยังไม่เคยทำครับ

แต่ถ้าจะใช้การกำหนดเงื่อนไขว่าถ้าเลือกวันที่ๆผ่านมาแล้วให้แจ้งเตือนและให้ระบุใหม่ก็ลองแบบนี้
สมมุติ textbox เลือกวันที่ ชื่อ txtDatePick

Private Sub txtDatePick_AfterUpdate()
If Me.txtDatePick < Date() Then
MsgBox "ไม่สามารถเลือกวันที่ย้อนหลังได้", vbCritical, "แจ้งเตือน"
Me.Text0 = Null
End If
End Sub

ถ้าผมตอบก่อนจะบอกว่า"กรุณาเลือกวันที่ปัจจุบันหรืออนาคต"นะนี่ :shout:
โค๊ด: [Select]
Private Sub Text20_AfterUpdate()
    If Me.Text20 < Date Then
         MsgBox "กรุณาเลือกวันที่ปัจจุบันหรืออนาคต"
    End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

16
ถามผิดแนบไฟล์ผิดก็แก้คำถามแก้ไฟล์แนบหรือโพสตอบที่กระทู้เดิมได้นะครับ :sweat:
เพิ่มเติมคือซ้ำเหมือนเดิมกับ https://www.thai-access.com/index.php?topic=1079.msg4818#msg4818 เลยนะนี่  :dizzy:
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

หน้า: [1] 2 3 4 5