選擇RGB顏色

Private Sub B值_AfterUpdate()

Call 設(shè)置顏色

End Sub

Private Sub B值_Change()

Call 設(shè)置顏色

End Sub

Private Sub Command生成列表_Click()

DoCmd.SetWarnings (False)

Dim del_sql As String

del_sql = "Delete From 顏色值列表"

DoCmd.RunSQL del_sql

Dim add_rs As DAO.Recordset

Set add_rs = CurrentDb.OpenRecordset("顏色值列表", dbOpenTable)

With add_rs

Dim i

For i = 0 To 255

.AddNew

!數(shù)值.Value = i

.Update

Next i

.Close

End With

Set add_rs = Nothing

End Sub

Sub 設(shè)置顏色()

If Me.R值 <> "" And Me.G值 <> "" And Me.B值 <> "" Then

Me.背景顏色顯示.BackColor = RGB(Me.R值, Me.G值, Me.B值)

Me.前景顏色顯示.ForeColor = RGB(Me.R值, Me.G值, Me.B值)

Me.背景代碼 = "控件名稱.BackColor = RGB(" & Me.R值 & "," & Me.G值 & "," & Me.B值 & ")"

Me.前景代碼 = "控件名稱.ForeColor = RGB(" & Me.R值 & "," & Me.G值 & "," & Me.B值 & ")"

Else

Me.背景代碼 = ""

Me.前景代碼 = ""

End If

End Sub

Private Sub G值_AfterUpdate()

Call 設(shè)置顏色

End Sub

Private Sub G值_Change()

Call 設(shè)置顏色

End Sub

Private Sub R值_AfterUpdate()

Call 設(shè)置顏色

End Sub

Private Sub R值_Change()

Call 設(shè)置顏色

End Sub

循環(huán)更新記錄

Private Sub Command更新_Click()

Dim search_rs As DAO.Recordset

Dim search_sql As String

search_sql = "Select * From 股票數(shù)據(jù)表 order by 日期 ASC"

Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)

Dim a1 As Long

a1 = 0

Dim reclose As Currency

Do While search_rs.EOF = False

If a1 = 0 Then

reclose = search_rs!收盤.Value

a1 = 1

Else

search_rs.Edit

search_rs!漲幅.Value = (search_rs!收盤.Value - reclose) / reclose

reclose = search_rs!收盤.Value

search_rs.Update

End If

search_rs.MoveNext

Loop

search_rs.Close

Set search_rs = Nothing

Me.數(shù)據(jù)表子窗體.Requery

End Sub

循環(huán)生成記錄

Private Sub Command查詢_Click()

If Me.年份 <> "" And Me.月份 <> "" Then

Me.數(shù)據(jù)表子窗體.Form.Filter = "年份=" & Me.年份 & " and 月份=" & Me.月份

Me.數(shù)據(jù)表子窗體.Form.FilterOn = True

Else

MsgBox "年份月份不能為空"

End If

End Sub

Private Sub Command全部_Click()

Me.數(shù)據(jù)表子窗體.Form.FilterOn = False

End Sub

Private Sub Command生成_Click()

If Me.年份 <> "" And Me.月份 <> "" Then

? ? If Nz(DCount("ID", "考勤表", "年份=" & Me.年份 & " and 月份=" & Me.月份), 0) > 0 Then

? ? ? ? If MsgBox("該年份考勤記錄已存在，是否繼續(xù)添加？", vbOKCancel) <> vbOK Then

? ? ? ? Exit Sub

? ? ? ? End If

? ? End If

Else

MsgBox "年份月份不能為空"

End If

Dim search_rs As DAO.Recordset

Dim search_sql As String

search_sql = "Select * From 員工表"

Set search_rs = CurrentDb.OpenRecordset(search_sql, dbOpenDynaset)

Dim add_rs As DAO.Recordset

Set add_rs = CurrentDb.OpenRecordset("考勤表", dbOpenTable)

Do While search_rs.EOF = False

add_rs.AddNew

add_rs!員工號(hào).Value = search_rs!員工號(hào).Value

add_rs!年份.Value = Me.年份

add_rs!月份.Value = Me.月份

add_rs.Update

search_rs.MoveNext

Loop

add_rs.Close

Set add_rs = Nothing

search_rs.Close

Set search_rs = Nothing

MsgBox "添加成功"

Me.數(shù)據(jù)表子窗體.Requery

End Sub