Question

在访问表单中，我希望点击一个按钮，并使用更新查询将信息添加到现有记录中。理想情况下，当发生这种情况时，按钮将改变颜色并显示“激活”。

然后，如果用户决定需要删除已添加的信息，则可以再次单击相同的按钮。这将从表中删除以前添加的信息，并将按钮外观更改为“无效”＆＃39;

Answer 1

如果您使用的是Accesss 2003或更早版本，则无法更改命令按钮的颜色，但您可以使用标签模拟按钮，显然您可以更改标签标题和颜色。

如果您使用2007 on-wards，则将Label名称替换为您的Command按钮名称。

使用表单的On_current属性使用类似

的内容

If Me.AddData = 1 Then 
    Me.YourLabel.Caption = "Remove Data"
    Me.YourLabel.BackColor = VbRed
Else
    Me.YourLabel.Caption = "Add Data"
    Me.YourLabel.BackColor = VbGreen
End If

然后使用类似的逻辑从标签的On_click属性运行更新代码，具体取决于AddData的值。

Answer 2

如果您愿意在AddDate中使用function loadScript(url) { return new Promise(function(resolve reject) { var script = document.createElement("script"); script.onload = resolve; script.onerror = reject; script.src = url; document.getElementsByTagName("head")[0].appendChild(script); }); } function loadjQuery() { if (window.jQuery) { // already loaded and ready to go return Promise.resolve(); } else { return loadScript('https://ajax.googleapis.com/ajax/libs/jquery/2.1.4/jquery.min.js'); } } // Usage: loadjQuery().then(function() { // code here that uses jQuery }, function() { // error loading jQuery });和-1，则可以轻松将其转换为0。

这对你提供的信息有一些自由，但现在已经很晚了。

您的表单有一个命令按钮（TRUE/FALSE）和一个文本框（Command7） Text8有一个链接到AddData的控件源（因此它显示为-1或0）。

只要您移动到其他记录，就会执行此代码。它检查Text8中的值并相应地更改命令按钮的颜色：

Text8

命令按钮的单击事件上的此代码会将Text8中的值从True更改为False，反之亦然。
然后它将重新查询表单，强制Private Sub Form_Current() With Me Select Case .Text8 Case -1 .Command7.BackColor = RGB(0, 255, 0) Case Else .Command7.BackColor = RGB(0, 0, 255) End Select End With End Sub事件触发 requery将记录集移回第一个记录，因此书签将其移回到您正在查看的记录。

Form_Current

修改
报废-1和0 malarkey ....

在Private Sub Command7_Click() Dim bkmrk As String bkmrk = Me.Bookmark With Me .Text8 = Not CBool(.Text8) .Requery Me.Bookmark = bkmrk End With End Sub事件中将Select Case更改为Case 1。

将Form_Current事件中的.Text8 = Not CBool(.Text8)更改为
Command7_Click

按钮单击取消单击ms-access

2 个答案: