按钮功能，急！

simple　发表于：2011-08-20 13:47:46 　

复制

见附本内有描述！

补充：如果颜色可以变最好，

按钮点之前是白色，条件符合是红色，不符合是绿色！

点击下载此附件

Top

煮江品茶发表于：2011-08-20 14:22:45

用Caption属性

Top

丘山发表于：2011-08-20 15:02:27

Private Sub Command12_Click()
If DCount("*", "表1", "[PN]='" & Me.Text0 & "' AND [OP]='" & Me.Text8 & "' AND [MA]='" & Me.Text10 & "'") > 0 Then
Me.Command12.Caption = "好的"
Else
Me.Command12.Caption = "不好"
End If
End Sub

Top

simple 发表于：2011-08-20 16:24:06

谢谢楼上的，能不能把按钮的变色功能也解决一下啊！！！

Top

丘山发表于：2011-08-20 18:14:21

http://zhidao.baidu.com/question/244278231.html

Top

simple 发表于：2011-08-20 18:52:53

没弄懂，高手能在我的那个里帮我处理一下吗，谢谢！（点按钮后变色）

Top

曹光耀发表于：2011-08-20 19:28:32

Private Sub Command12_Click()
Dim f1, f2, f3
Dim bln As Boolean
Dim i As Integer
Dim str As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
str = "select * from 表1"
rs.Open str, CurrentProject.Connection, 3, 3
f1 = Me.Text0
f2 = Me.Text1
f3 = Me.Text2

bln = False
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
    If f1 = rs("PN") And f2 = rs("Op") And f3 = rs("Ma") Then
        bln = True

    End If

    If bln = True Then
        Command12.Caption = "好的"
        Me.Command12.ForeColor = vbRed

    Else
        Command12.Caption = "不好"
        Me.Command12.ForeColor = vbBlue
    End If
rs.MoveNext
Next

rs.Close
Set rs = Nothing
End Sub

点击下载此附件

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

按钮功能，急！