49
ห้อง MS Access / : ได้วิธีหาเลขคี่และเลขคู่แล้วอยากให้แสดงภาพ อักษร ที่เป็นวงกลมสี่่เหลี่ยมสีดำทึบ
« เมื่อ: 28 ก.พ. 63 , 14:56:00 »
ทำนองนี้ก็ได้ครับ กระดาษคำตอบมีวงกลม เปล่าๆ รอไว้แล้ว O O
Private Sub SetFormattingControl()
Dim StrDate As String
Dim StrDatePre As String
Dim x As Integer
For x = 1 To 12
If Me("date" & x) = "LL" Or Me("date" & x) = "PA" Or Me("date" & x) = "PS" _
Or Me("date" & x) = "AS" Or Me("date" & x) = "P" Or Me("date" & x) = "A" Or Me("date" & x) = "S" Then
If Me("date" & x) = "LL" Then
Me("date" & x).BackColor = vbBlack
Me("date" & x).ForeColor = vbBlack
Private Sub SetFormattingControl()
Dim StrDate As String
Dim StrDatePre As String
Dim x As Integer
For x = 1 To 12
If Me("date" & x) = "LL" Or Me("date" & x) = "PA" Or Me("date" & x) = "PS" _
Or Me("date" & x) = "AS" Or Me("date" & x) = "P" Or Me("date" & x) = "A" Or Me("date" & x) = "S" Then
If Me("date" & x) = "LL" Then
Me("date" & x).BackColor = vbBlack
Me("date" & x).ForeColor = vbBlack