แสดงกระทู้

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 ... 38 39 40 [41] 42 43
641
โค้ดนี้แต่เดิมอาจารย์ pizza_p แนะนำไว้ในกระทู้นี้ครับ

https://www.thai-access.com/index.php?topic=220.msg784

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

642
จุดที่ต้องทำเหมือนกันที่ Combobox คือ

1.การกำหนดเรียงลำดับจาก ID / ชื่อรายการ
โดย ID จะอยู่คอลัมน์แรก แล้วตามด้วย ชื่อรายการที่จะแสดง

2.การกำหนดรูปแบบหรือ Format ของ Combobox ที่เราจะเลือกรายการโดยกำหนด
จำนวนคอลัมน์ = 2
ความกว้างคอลัมน์ = 0ซม.;5ซม.


3.กำหนดการผูกคอลัมน์ไว้ = 1


โค้ดยังคงเป็นแบบเดิมนะครับ ลองแก้ไขตามนี้ดูครับ

หมายเหตุดูตรง แหล่งข้อมูลแถวดีๆนะครับ ต้องเรียงจาก ID ก่อน แล้วตามด้วยรายการ

643
สมมุติว่ามันไม่ยอมเซฟให้เรา ๆ ก็โกงๆมันหน่อยแบบนี้เลยครับ สมมุติ text1 , text2 เป็น default Value

คำสั่งที่ปุ่มเซฟ
Private Sub Save_Click()
If Me.NewRecord Then
Me.Text1 = Me.Text1
Me.Text2 = Me.Text2
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub

644
อ่อคำนำหน้ากับชื่อติดกันตามนั้นเลยครับ

645
ใช้ IIF สร้างเงื่อนไขก็ได้คับ

เช่น
โค๊ด: [Select]
คำนำหน้าชื่อ: IIf([title]="MR","นาย") & IIf([title]="MISS","นางสาว") & IIf([title]="MRS","นาง")

646
ห้อง MS Access / : วิธีการ Freeze Page Header ใน report
« เมื่อ: 30 ส.ค. 62 , 10:22:53 »
ลองดูวิธีนี้นะครับ

ให้ดูการกำหนด Format (รูปแบบ) ของรายงานหลัก และ รายงานที่จะทำหัวของรายงาน นะครับ
ส่วนโค้ดก็มีไม่เยอะครับ เป็นการใช้ Move , SelectObject เข้ามาช่วย

647
=[add] & " " & IIF(([moo])IsNull," ",("ม."& " " & [moo]))"& " " & [tumbol]    ไม่รู้ผิดตรงไหนครับ


น่าจะแบบนี้คับ

=[add] & " " & IIf(IsNull([moo])," ","ม." & " " & [moo] & " " & [tumbol])

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

648
ผมสมมุติ Combobox ค้นหาชื่อ Cb_UserAge นะครับ
ใส่โค้ด Event AfterUpdate ดังนี้

Private Sub Cb_UserAge_AfterUpdate()
    Me.Filter = "[Age]=" & Me.Cb_UserAge
    Me.FilterOn = True
End Sub

หมายเหตุ Age คือ ชื่อฟิลล์ที่เราต้องการกรอง ครับ

649
  :cry: :cry:(มือใหม่หัดใช้โปรแกรม) ขั้นตอนการสร้าง Table Design และ Form Design ที่ถูกต้อง คือ ต้องการสร้างฐานข้อมูล ใบ Job Order เพื่อนำมาใช้ในระบบ บริษัท ได้ ทำการสร้าง Form Design แล้ว แต่พอมา กดดูแบบ กดคลิกเมาไปที่ Form ที่บันทึกแล้วที่อยู่แทบข้างซ้ายมือ มันขึ้นแต่ช่องข้อความมาและมีข้องความว่า #Name แต่ข้อมูลที่เราป้อนเข้าไปมันไม่ขึ้น  แต่ถ้าเรากดเข้าไปที่ Design View มันจะขึ้นปกติแบบที่เราออกแบบไว้ ไม่ทราบว่าเราใส่อะไรผิดหรือป่าว

ขึ้น #Name? แบบนี้หรือเปล่าครับ ถ้าใช่
เกิดจากการกำหนด แหล่งระเบียน ไม่ถูกต้อง ในตัว Controlครับ เช่นมีการกำหนด =................ ใน แหล่งระเบียนไม่ถูกต้องเวลารันฟอร์มเลยขึ้น Error #Name?
มีรูปหน้า Desize และ ตอนรัน Forms หรือเปล่า

650
สมมุติผมมีฟิลล์ ID / Close / Field1 / Field2 / Field3
มีตารางชื่อ Table1
ที่ปุ่มสีเขียวผมก็ใส่โค้ดไปว่า

โค๊ด: [Select]
Me.RecordSource = "SELECT Table1.ID, Table1.Close, Table1.Field1, Table1.Field2, Table1.Field3  FROM Table1 WHERE (((Table1.Close)=False));"

พอเรากด ติ๊กที่ Checkbox Close แล้วข้อมูลจะหายไปครับ

651
เงื่อนไข หลังจาก Close  หรือ Delete เป็นแบบไหนครับ

Form แบบ continuous และต้องการใช้ Checkbox เลือกข้อมูลแบบนี้เราอาจจะสร้าง Field Close / Field Delete เพิ่มในตาราง
แล้ว Bound Field ให้กับ Checkbox ด้วย ก็จะสามารถคลิ๊กได้ทีละอันแล้วคับ

หรือลองอธิบายความต้องการเพิ่มเติมหน่อยครับว่า ทำ Checkbox นี้ต้องการกำหนดให้ Record นั้นเป็นอย่างไร

652
ต้องตั้งค่าภาษาของเครื่องครับ ต้องให้ซัพพอร์ต ภาษาไทย ด้วยครับ
ไปตั้งค่า ตรง regional and language options ดูคับ

หรือกด Start > RUN > ใส่ intl.cpl > regional and language options > advance > language for non-Unicode programs เลือก thai และ  เปลี่ยน system locale เป็น Thai  > standard and format เป็น thai แล้ว reboot เครื่องใหม่ดูครับ

หรือให้ตั้งค่าเลียนแบบเครื่องที่เปิดใช้งานได้อยู่แล้วครับ

653
ขอโทษนะคะ รบกวนอีกซักรอบนะคะ คือ ลองเเก้ดูเเล้ว มันไม่ได้อ่ะค่ะ สงสัยจะเขียนอะไรผิด เเหะๆ >..<

ของคุณน่าจะกำลังหาวิธีเลือกข้อมูลจาก Combobox แล้วให้แสดงใน Textbox ใช่ไหมครับ
ลองดูตัวอย่างนี้ครับ

654
จาก Combobox แสดง ID / รายการ

ถ้าต้องการให้ textbox แสดงรายการให้กำหนด สถานะ AfterUpdate เป็นแบบนี้ครับ

Private Sub ComboboxName_AfterUpdate()
Me.TextboxName = Me.ComboboxName.Column(1)
End Sub


รายการก็จะแสดงที่ Textbox แทนที่ ID แล้วครับ

655
ไม่รู้ว่าแบบนี้หรือเปล่านะครับ
ถ้าเป็นการอ้างอิงวันที่ไปใส่ ลองวิธีนี้ดูครับ


ผมสมมุติ textbox ชื่อตามในรูปนะครับ
โค๊ด: [Select]
Private Sub DtDateBorrow1_AfterUpdate()
If Not IsNull(Me.DtDateBorrow1) Then
Me.DtDateBorrowBack = Me.DtDateBorrow1
Me.DtDateBorrowOut = Me.DtDateBorrow1
End If
End Sub

656
Zone มีทั้ง ตัวเลข และ ตัวอักษร ลองใช้วิธีนี้ดูครับ

หน้า: 1 ... 38 39 40 [41] 42 43