แสดงกระทู้

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 - ิboonyarit

หน้า: [1] 2 3
1
ขอบคุณสำหรับคำแนะนำมาก ๆ เรยค่ะ  :yuush: :yuush:
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

2
String ="00" & [Text30] ตรงนี้เอาไปใส่ไว้ในไหนหรอครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

3
สร้าง อีก TextBox นึง แล้วต่อ String ="00" & [Text30] จากนั้นซ่อน visible Text30 Running Sum เลือก Over All
ถ้าข้อมูลมีหลาย record จะแสดง 001,002,...,0010,...
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

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

5
ขอบคุณมากเลยนะคะ ทำได้แล้วค่ะ  :miao:
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

6
คือ ทำฟอร์มขึ้นมา 1 ฟอร์มแล้วบันทึกไว้ในตาราง A
จากนั้นสร้างฟอร์มที่ 2 ขึ้นมาแล้วอยากดึงข้อมูล ID(บันทึกเลขออโต้) ของตาราง A ที่เพิ่งบันทึกไปจากฟอร์มที่แล้วขึ้นมา
ต้องเขียนยังไงคะ  :cry:

ปล.ดึงข้อมูลจากฟอร์มเก่าไม่ได้นะคะ

ใช้ Dmax() กรณีที่ ID คือตัวเลขก็จะได้ ID ที่มีตัวเลขมากที่สุด ลักษณะการใช้งานเช่น
Dmax("ID","[TableA]")

หรือถ้า ID ใน TableA ไม่ใช้ก็เลข ก็ใช้ Dlast เพื่อดึง ID ที่จัดเก็บไว้ล่าสุดมา ลักษณะการใช้งาน
DLast("ID","[TableA]")
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

7
คือ ทำฟอร์มขึ้นมา 1 ฟอร์มแล้วบันทึกไว้ในตาราง A
จากนั้นสร้างฟอร์มที่ 2 ขึ้นมาแล้วอยากดึงข้อมูล ID(บันทึกเลขออโต้) ของตาราง A ที่เพิ่งบันทึกไปจากฟอร์มที่แล้วขึ้นมา
ต้องเขียนยังไงคะ  :cry:

ปล.ดึงข้อมูลจากฟอร์มเก่าไม่ได้นะคะ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

8
ห้อง MS Access / : Auto number ไม่ทำงานบน Form
« เมื่อ: 16 พ.ค. 64 , 08:29:58 »
ก็ปกตินี่ครับ
พอเปิดเรคอร์ดใหม่ ช่องที่เป็น AutoNumber จะขึ้นคำว่า New พอพิมพ์ข้อมูล เลขใหม่ก็ใส่ทันที

ปกตินะครับ ปกติ

แนะนำว่าให้ใส่ปุ่ม ไปเรคอร์ดใหม่ หรือกำหนด Navigation Buttons เป็น True



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

9
ห้อง MS Access / : Auto number ไม่ทำงานบน Form
« เมื่อ: 15 พ.ค. 64 , 17:02:57 »
ลองแปะไฟล์ไว้ดีกว่าครับ
นี่ค่ะ ฟอร์มชื่อ Borrhead มาจากคิวรี่ชื่อ Borrhead ค่ะะ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

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

11

พอจะเป็นไปได้ไหมถ้าผมสร้าง Text Box Doc ขึ้นมา ใส่ข้อมูลกรอง คือ ถ้าใส่Doc 1 แล้วให้ข้อมูล Detail Doc 1 เด้งขึ้นมา แล้วถ้าใส่ ข้อมูล 3 อีกก็ให้ ให้ข้อมูล Detail Doc 3 ต่อจากข้อมูล Doc คล้ายเป็นตัวกรอง


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

12
ยังมีอีกหลายอาขารย์ที่หายไปครับ แต่ผมเชื่อว่าท่านยังเข้ามาอ่าน และเห็น ว่ามีคนมาตอบอยู่ เลยอาจจะไม่ได้มาตอบครับ

ผมส่งไฟล์ให้หลังไมค์แล้วนะครับ มันมีชื่อบุคคลอื่นอยู่ด้วย เลยไม่ได้โพสข้องหน้า

ขอบพระคุณอาจารย์มากครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

13
เป็นช่อง เลขใบกำกับภาษีค่ะ

เมื่อกดเริ่มเขียนใหม่ ในฟอร์ม ช่องเลขใบกำกับภาษีต้องกรอกเอง อยู่ค่ะ  ถ้าจะเปลี่ยนเป็นให้ขึ้นมาให้เลย 6 หลัก โดยเรียง 000001,000002,000003

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

14
ต้องการ update ฟิลด์ studstatus ให้เป็น 1 โดยมีเงื่อนไขว่า ถ้า rank น้อยกว่าหรือเท่ากับ 36 แต่ถ้า rank > 36 ให้ update ฟิลด์ studstatus ให้เป็น 2
โดยเขียนคำสั่งโค้ดด้านล่าง  จะได้ ฟิลด์ studstatus ให้เป็น 2  อย่างเดียว รบกวนอาจารย์ทุกท่าน จะแก้ไขคำสั่งอย่างไรครับ

Private Sub Command145_Click()
On Error Resume Next
Dim sql As String
Dim rank As Integer
If Me.rank <= 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 1"
DoCmd.RunSQL (sql)
Else
If Me.rank > 36 Then
sql = "UPDATE M1_GIF SET M1_GIF.studstatus = 2"
DoCmd.RunSQL (sql)
End If
End If

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

15
ห้อง MS Access / : เปิดฟอร์มแล้ว ...
« เมื่อ: 09 เม.ย. 64 , 09:59:27 »
1. เปิดฟอร์มแล้วให้ซ่อนหน้าต่างนำทาง โค้ดอย่างไรครับ
2. เปิดฟอร์มแล้วให้ขอบซ้ายของฟอร์มชิดขอบหน้าต่าง (ตอนนี้หน้าต่างมันอยู่กึ่งกลาง) กำหนดตรงไหนครับ
ข้อ1 ใส่ใน Event Form_Load ก็ได้ครับ

    Private Sub Form_Load()
    DoCmd.ShowToolbar "Ribbon", acToolbarNo  'ซ่อน Ribon ด้านบน
    DoCmd.NavigateTo "acNavigationCategoryObjectType"
    DoCmd.RunCommand acCmdWindowHide  'ซ่อนหน้าต่างนำทาง
    End Sub

ข้อ2
1.ประกาสตัวแปลไว้บนสุดของคำสั่ง
    Public FrmTop  As Long
    Public FrmLeft As Long

2.ที่ Event Form_Activate() ใส่โค๊ดนี้เข้าไป
    Private Sub Form_Activate()
    FrmTop = Forms![ชื่อฟอร์ม].WindowTop
    FrmLeft = Forms![ชื่อฟอร์ม].WindowLeft
    FrmTop = Me.WindowTop
    FrmLeft = Me.WindowLeft
    End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

16
ห้อง MS Access / เปิดฟอร์มแล้ว ...
« เมื่อ: 09 เม.ย. 64 , 09:52:58 »
1. เปิดฟอร์มแล้วให้ซ่อนหน้าต่างนำทาง โค้ดอย่างไรครับ
2. เปิดฟอร์มแล้วให้ขอบซ้ายของฟอร์มชิดขอบหน้าต่าง (ตอนนี้หน้าต่างมันอยู่กึ่งกลาง) กำหนดตรงไหนครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

17
พึ่งคิดได้ว่าก็ใช้คำสั่งให้ทุกปุ่มที่มีซ่อนก่อนแล้วค่อยมาสั่งแสดงตามตัวเลขที่หลังอีกที  :meaw:

โค๊ด: [Select]
Private Sub Text5_AfterUpdate()

Me.Command1.Visible = False
Me.Command2.Visible = False
Me.Command3.Visible = False
Me.Command4.Visible = False

GetNum = Me.Text5
    Select Case GetNum
        Case "1": Me.Command1.Visible = True
        Case "2": Me.Command2.Visible = True
        Case "3": Me.Command3.Visible = True
        Case "4": Me.Command4.Visible = True
    End Select
End Sub

โค้ดข้างบนสามารถลดรูปลงมาได้นะครับ พร้อมกับรองรับกรณี Text5 ไม่ได้เป็นตัวเลข

   Dim I   As Integer
   Dim J   As Integer

   If IsNumeric(Me.Text5) Then J = CInt(Me.Text5)
   For I = 1 to 12
      Me("command" & Cstr(I)).Enabled = (I = J)
   Next

แต่สงสัยว่าทำไมต้องทำ 12 ปุ่ม สร้างปุ่มเดียวแล้วพิจารณาการทำงานของโค้ดในปุ่มนั้นด้วยค่าจาก Text5 ไม่ง่ายกว่าหรือ ?
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

18
พึ่งคิดได้ว่าก็ใช้คำสั่งให้ทุกปุ่มที่มีซ่อนก่อนแล้วค่อยมาสั่งแสดงตามตัวเลขที่หลังอีกที  :meaw:

โค๊ด: [Select]
Private Sub Text5_AfterUpdate()

Me.Command1.Visible = False
Me.Command2.Visible = False
Me.Command3.Visible = False
Me.Command4.Visible = False

GetNum = Me.Text5
    Select Case GetNum
        Case "1": Me.Command1.Visible = True
        Case "2": Me.Command2.Visible = True
        Case "3": Me.Command3.Visible = True
        Case "4": Me.Command4.Visible = True
    End Select
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

หน้า: [1] 2 3