选择RGB颜色

Private Sub B值_AfterUpdate()

Call 设置颜色

End Sub

Private Sub B值_Change()

Call 设置颜色

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

!数值.Value = i

.Update

Next i

.Close

End With

Set add_rs = Nothing

End Sub

Sub 设置颜色()

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 设置颜色

End Sub

Private Sub G值_Change()

Call 设置颜色

End Sub

Private Sub R值_AfterUpdate()

Call 设置颜色

End Sub

Private Sub R值_Change()

Call 设置颜色

End Sub

循环更新记录

Private Sub Command更新_Click()

Dim search_rs As DAO.Recordset

Dim search_sql As String

search_sql = "Select * From 股票数据表 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.数据表子窗体.Requery

End Sub

循环生成记录

Private Sub Command查询_Click()

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

Me.数据表子窗体.Form.Filter = "年份=" & Me.年份 & " and 月份=" & Me.月份

Me.数据表子窗体.Form.FilterOn = True

Else

MsgBox "年份月份不能为空"

End If

End Sub

Private Sub Command全部_Click()

Me.数据表子窗体.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("该年份考勤记录已存在，是否继续添加？", 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!员工号.Value = search_rs!员工号.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.数据表子窗体.Requery

End Sub