แสดงกระทู้

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

หน้า: [1]
1
ติดขัดคิวรี่มาตั้งแต่ปี 63 ได้คำตอบในปีนี้แล้วครับ ผมส่งเฉลยมาเพิ่มครับ
SELECT DISTINCTROW NetGrade.group, NetGrade.code, NetGrade.sTotal, NetGrade.sNet, scores.letterGrade
FROM scores, NetGrade
WHERE (((NetGrade.sNet) Between [scores].[lowerlimit] And [scores].[upperlimit]));
โพสต์นี้ได้รับคำขอบคุณจาก: nonc31

2
มีคนถามว่า อยากให้เช็คเท็กซ์บ็อกซ์ ถ้าว่างให้เปลี่ยนสีให้หน่อย
Text box name = HomeMobile

What event should I use on the report: • Private Sub Report_Load() • Private Sub Report_Open(Cancel As Integer)

Private Sub Report_Open(Cancel As Integer)

If IsNull(Textbox.Value) = True Then
Textbox.BackColor = vbRed

End If

End Sub

อีกคำตอบ


You could try with the Format or Print event, and also arrange for the colour to be reset:

Textbox.BackColor = IIf(IsNull(Textbox.Value), vbRed, vbWhite)

อันนี้คำถามว่า อยากให้ฟอร์มโหลดขึ้นมาแล้วเปลี่ยนสีทุกกล่องข้อความ

You can place this code in the Onload event of your form and this will change all of your boxes at one time.
Delcare the control:
Dim tb as Control
Code:
 For Each tb In Me.Controls
        If TypeOf tb Is TextBox Then
            tb.BackColor = 'your color goes here
        End If
    Next
-----------------------------------------------------------------------------
อันนี้โค้ดของคนถาม
For Each Ctl In Detail.Controls
'ตรวจสอบเฉพาะที่เป็นประเภท TextBox / Combo Box
If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox Then 'Or ctl.ControlType = acCheckBox
'และเฉพาะที่ชื่อชื้นต้นด้วย Status
If Ctl.Name Like "Status*" Then
'ถ้าได้ค่าว่างๆ
If Ctl &"" = "Less than 1 day" Then
isBlank = "LT"
Elsef Ctl &"" = "More than 1 day" Then
isBlank = "MT"
Elsef Ctl &"" = "Card expired" Then
isBlank = "C"
Exit For
End If
End If
Next
If isBlank = "LT" Then
Ctl.BackColor = vbYellow
Elself isBlank = "MT" Then
Ctl.BackColor = vbGreen
ElseIf isBlank = "C" Then
Ctl.BackColor = vbRed
Exit Sub
End If
End if

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

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

4
ไม่ได้ช่วยอะไรครับ ใช้คำค้น combobox report ในช่องค้นหานี้พอได้แนวไหมครับ
--ผมก็เขียนโค้ดไม่เป็นใช้วิธีแบบบ้านๆสำหรับผมก็ เพิ่มฟิลด์คำไปในตารงว่าติกเป็นแบบ y/n ถ้าโดนเลือกช่วยเอาไปออกคิวรี่ ทำปุ่มดูรายงานทั้งสองแบบ แบบ 1 คือครบทุกรายการ แบบที่สองก็เอาที่ทำเครื่องหมายไปออกรายงาน--
โพสต์นี้ได้รับคำขอบคุณจาก: Niky@cm5

5
ตรงช่อง google search แว่นขยายด้านบนลองใส่คำว่า print form มีหลายๆ ตัวอย่างเลยครับ
ทำได้ครับ form filter to print (ใช้คำค้นนี้ก็ได้ครับ) ลองค้นและอ่านๆ ดูว่าคำถามไหนคล้ายของเรา
โพสต์นี้ได้รับคำขอบคุณจาก: MiKu

6
มันขึ้นข้อผิดพลาดทั้งหมายเมื่อก่อนไม่รู้ ตอนนี้ขอติดตั้งเฉพาะแอคเซสอย่างเดียวครับ ต้องทำช้อตคัตไว้หน้าจอเลย...ขึ้นข้อความแปลกๆ ลงใหม่จบ แล้วฝังแอคเซสและอันอื่นๆ ที่น่าจะเชื่อมกันของโปรแกรมไมโครซอฟท์ เรียกใช้จากในพีซี ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Krathok-man

7
google ค้น is null isnull iif อ่านแป้บ ทำความเข้าใจ เดี๋ยวก็ได้
โพสต์นี้ได้รับคำขอบคุณจาก: tanuki

8
เราสั่งให้มันตรวจตรงวันเกิดก่อนว่าถ้าว่างไม่ต้องใช้สูตร iif aฟิลด์วันเกิด =is null="",สูตรคำนวณอายุ
โพสต์นี้ได้รับคำขอบคุณจาก: tanuki

9
อยากทำไมโครซอฟท์ออนไลน์ เหมือนพวกเวิร์ด เอ็กเซล มีตัวไหนที่ใช้ทำนองนี้ได้ไหมครับ ผมดูแอฟของไมโครซอฟท์ไม่พบมีชื่อ Microsoft access แต่มี Visio PowerPoint ทำนองนี้
โพสต์นี้ได้รับคำขอบคุณจาก: MR.Vinai Wetvithayaklung

10
ทำคิวรี่ขึ้นมาใหม่ เอาของที่เขาให้คำตอบข้างบน เลือกตาราง/คิวรี่ เลือกชื่อคิวรี แล้วก็สั่ง sum ในคิวรี่ที่สองที่สร้างขึ้นใหม่
โพสต์นี้ได้รับคำขอบคุณจาก: เก่ง

11
Public Function FancyDate(dteInput As Date) As String

'   Convert #6/12/2016#
'   To: 12th June 2016

    FancyDate = Day(dteInput)
   
    Select Case Day(dteInput)
    Case 4 To 20, 24 To 30
        FancyDate = FancyDate & "th"
    Case 1, 21, 31
        FancyDate = FancyDate & "st"
    Case 2, 22
        FancyDate = FancyDate & "nd"
    Case 3, 23
        FancyDate = FancyDate & "rd"
    End Select
   
    FancyDate = FancyDate & Format(dteInput, " mmmm yyyy")


End Function


Sub testdatefunction()

Dim datestr As Date

datestr = CDate("01/01/2017")

Debug.Print datestr, FancyDate(datestr)

End Sub

พอดัดแปลง ใกล้เคียงไหมครับ ไปค้นมาให้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Krathok-man

หน้า: [1]