如何通过B窗体保存按钮控制A窗体的操作

凌云　发表于：2012-12-17 16:31:59 　

假如有两个窗体A（收入窗体）和B（成本窗体）, 收入表和成本表示通过收入编号建立了一对一的关系，只有做了收入数据保存后，收入表的状态显示为“收入已输入”，这时候才能在B窗体中做新增数据操作，一旦B窗体（成本）数据保存后，收入表的状态就显示为“成本已输入”，这时候A窗体相对应的数据将不能再做任何修改，只有当B窗体相应的数据删除或用一个反审核的按钮确认，A窗体才能进行修改等操作。如何解决数据表状态改变后不允许修改A窗体的问题。

Top

煮江品茶发表于：2012-12-17 16:58:18

阁下的窗体对象.AllowEdits=false/true

Top

缪炜发表于：2012-12-17 19:48:41

窗体名.AllowEdits=false

Top

凌云发表于：2012-12-18 09:10:42

我并不是需要将整个窗体锁定，我是对应的相应记录锁定。

Top

煮江品茶发表于：2012-12-18 09:21:17

http://www.accessoft.com/article-show.asp?id=4433

Top

凌云发表于：2012-12-18 15:08:55

我想到一个更好的办法来解决！

在窗体的加载事件中

Dim i As Integer
Dim STemp As String
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
'为打开数据表“查询语句”字符变量赋值
STemp = "Select * From tblscsr"
'打开“商超收入”数据表
Rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Rs.RecordCount > 0 Then
            Rs.MoveFirst
            For i = 1 To Rs.RecordCount
   If Rs("srid") = Me.收入编号 And Rs("zt") = "运输成本已输入" Then   用这个条件去判断，然后就可以达到自己的要求
   Me.仓租成本.Locked = True
   Me.叉车成本.Locked = True
   Me.装卸成本.Locked = True
   Me.劳务费成本.Locked = True
   Else

   End If
   Rs.MoveNext
    Next i
        End If
    Set Rs = Nothing

Top

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

Access交流中心

[5分]如何通过B窗体保存按钮控制A窗体的操作