作者:竹笛

簡(jiǎn)介:1.自增序號(hào)的程序代碼 2.對(duì)子窗體的允許新增、修改在代碼中進(jìn)行控制

代碼:
Private Sub cmdAdd_Click()
'新增
Dim i As Long
i = Me.labNum.Tag
    With frmChild.Form
        .AllowAdditions = True
          .AllowEdits = True
  End With
    DoCmd.SetWarnings False
    DoCmd.RunSQL "INSERT INTO tblWords ( WordID ) SELECT '" & i & "' AS Num;"
    DoCmd.SetWarnings True
    Me.frmChild.Requery
    Me.labNum.Tag = i + 1
End Sub

Private Sub cmdEdit_Click()
'修改
    With frmChild.Form
        .AllowEdits = True
    End With
End Sub

Private Sub cmdClose_Click()
DoCmd.Close
End Sub

Private Sub Form_Load()
'詞匯庫(kù)的記錄數(shù)量
Me.labNum.Tag = DCount("*", "tblWords") + 1
End Sub

(責(zé)任編輯：admin)

• ·Access窗體居中顯示技巧
• ·Access中Tab鍵的使用說(shuō)明【技巧】
• ·Access粘貼對(duì)象到Tab選卡上的技巧
• ·Access在窗體上顯示當(dāng)前記錄和總記錄數(shù)
• ·Access隱藏組合框的小箭頭
• ·Access窗體屬性表
• ·【技巧】Access選項(xiàng)組邊框變?yōu)閳A角邊框
• ·Access函數(shù)me.sfmsub.form 提示子窗體
• ·Access中使用縮放對(duì)話框顯示文本框文字
• ·access技巧-中文顯示星期幾的簡(jiǎn)單方法
• ·Access控件是否可見(jiàn),可編輯,鎖定的技巧
• ·根據(jù)查找窗體設(shè)定的條件篩選主窗體的數(shù)
• ·父子窗體的語(yǔ)法介紹
• ·access實(shí)現(xiàn)組合框聯(lián)動(dòng)詳細(xì)教程
• ·Web Service在Access中的應(yīng)用技巧
• ·Access窗體最大化，最小化等操作