使用滾動條制作調(diào)色板

Public Sub 設(shè)置背景色()

If Me.TextR <> "" And Me.TextG <> "" And Me.TextB <> "" Then

Me.顏色顯示.BackColor = RGB(CInt(Me.TextR), CInt(Me.TextG), CInt(Me.TextB))

End If

End Sub

Private Sub Form_Load()

Call 設(shè)置背景色

End Sub

Private Sub ScrollBarB_Updated(Code As Integer)

Me.TextB = CInt(Me.ScrollBarB.Value)

Call 設(shè)置背景色

End Sub

Private Sub ScrollBarG_Updated(Code As Integer)

Me.TextG = CInt(Me.ScrollBarG.Value)

Call 設(shè)置背景色

End Sub

Private Sub ScrollBarR_Updated(Code As Integer)

Me.TextR = CInt(Me.ScrollBarR.Value)

Call 設(shè)置背景色

End Sub

收支記賬程序

收支記賬程序

Private Sub Command生成報表_Click()

DoCmd.OpenReport "賬戶收支報表", acViewReport, , "賬戶名稱='" & Me.賬戶名稱 & "'"

End Sub

Private Sub Form_AfterUpdate()

Me.賬戶列表.Requery

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo 數(shù)據(jù)更新前提醒_Err

? ? If (MsgBox("是否保存對記錄的修改", 1, "修改記錄提醒") = 1) Then

? ? ? ? Beep

? ? ? ??

? ? Else

? ? ? ? DoCmd.RunCommand acCmdUndo

? ? End If

數(shù)據(jù)更新前提醒_Exit:

? ? Exit Sub

數(shù)據(jù)更新前提醒_Err:

? ? MsgBox Error$

? ? Resume 數(shù)據(jù)更新前提醒_Exit

End Sub

Private Sub Form_Load()

Me.賬戶收入 = Nz(DLookup("賬戶收入", "賬戶收支查詢", "賬戶名稱='" & Me.賬戶名稱 & "'"), 0)

Me.賬戶支出 = Nz(DLookup("賬戶支出", "賬戶收支查詢", "賬戶名稱='" & Me.賬戶名稱 & "'"), 0)

Me.賬戶余額 = Me.賬戶收入 - Me.賬戶支出

Call 總收支計算

End Sub

收支數(shù)據(jù)表

Private Sub Form_AfterUpdate()

Call 總收支計算

Forms(收支記賬程序).賬戶收入 = Nz(DLookup("賬戶收入", "賬戶收支查詢", "賬戶名稱='" & Forms(收支記賬程序).賬戶名稱 & "'"), 0)

Forms(收支記賬程序).賬戶支出 = Nz(DLookup("賬戶支出", "賬戶收支查詢", "賬戶名稱='" & Forms(收支記賬程序).賬戶名稱 & "'"), 0)

Forms(收支記賬程序).賬戶余額 = Forms(收支記賬程序).賬戶收入 - Forms(收支記賬程序).賬戶支出

End Sub

Private Sub 日期_DblClick(Cancel As Integer)

Me.日期 = Date

End Sub

賬戶收支查詢數(shù)據(jù)表

Private Sub 賬戶名稱_DblClick(Cancel As Integer)

Forms("收支記賬程序").Filter = "賬戶名稱='" & 賬戶名稱 & "'"

Forms("收支記賬程序").FilterOn = True

Forms("收支記賬程序").賬戶名稱.SetFocus

Forms("收支記賬程序").賬戶收入 = Nz(DLookup("賬戶收入", "賬戶收支查詢", "賬戶名稱='" & Me.賬戶名稱 & "'"), 0)

Forms("收支記賬程序").賬戶支出 = Nz(DLookup("賬戶支出", "賬戶收支查詢", "賬戶名稱='" & Me.賬戶名稱 & "'"), 0)

Forms("收支記賬程序").賬戶余額 = Forms("收支記賬程序").賬戶收入 - Forms("收支記賬程序").賬戶支出

End Sub

模塊1

Public Sub 總收支計算()

Forms("收支記賬程序").總收入 = Nz(DSum("金額", "收支表", "收支='收入'"), 0)

Forms("收支記賬程序").總支出 = Nz(DSum("金額", "收支表", "收支='支出'"), 0)

Forms("收支記賬程序").總余額 = Forms("收支記賬程序").總收入 - Forms("收支記賬程序").總支出

End Sub

輸入中文字符英文字符

Private Sub Command測試1_Click()

If Me.輸入中文 <> "" Then

? ? Dim i

? ? Dim checkitem As String

? ? Dim checktext As String

? ? checktext = Trim(Me.輸入中文)

? ? '-----------------------------------------提取中文

? ? For i = 1 To Len(checktext)

? ? ? ? checkitem = Mid(checktext, i, 1)

? ? ? ? If checkitem Like "[一-龥]" Then

? ? ? ? Else

? ? ? ? MsgBox "只能輸入中文字符"

? ? ? ? Exit Sub

? ? ? ? End If

? ? Next i

End If

End Sub

Private Sub Command測試2_Click()

If Me.輸入英文 <> "" Then

? ? Dim i

? ? Dim checkitem As String

? ? Dim checktext As String

? ? checktext = Trim(Me.輸入英文)

? ? '-----------------------------------------提取中文

? ? For i = 1 To Len(checktext)

? ? ? ? checkitem = Mid(checktext, i, 1)

? ? ? ? If checkitem Like "[a-zA-Z]" Then

? ? ? ? Else

? ? ? ? MsgBox "只能輸入英文字符"

? ? ? ? Exit Sub

? ? ? ? End If

? ? Next i

End If

End Sub

Private Sub Command提取_Click()

If Me.原文本 <> "" Then

? ? Dim i

? ? Dim checkitem As String

? ? Dim checktext As String

? ? checktext = Trim(Me.原文本)

? ? '-----------------------------------------提取中文

? ? For i = 1 To Len(checktext)

? ? ? ? checkitem = Mid(checktext, i, 1)

? ? ? ? If checkitem Like "[一-龥]" Then

? ? ? ? Me.中文 = Me.中文 & checkitem

? ? ? ? End If

? ? Next i

? ? '-----------------------------------------提取英文

? ? For i = 1 To Len(checktext)

? ? ? ? checkitem = Mid(checktext, i, 1)

? ? ? ? If checkitem Like "[a-zA-Z]" Then

? ? ? ? Me.英文 = Me.英文 & checkitem

? ? ? ? End If

? ? Next i

End If

End Sub