利用追加查询来实现自增序号的示例
5 n; @( X, L& K8 T$ d/ I4 w, C6 m5 Q代码:
( M1 _, S/ H3 { b- o Private Sub cmdAdd_Click()4 a: Q X, Y& U8 R" M; }% e
'新增7 {; a( E7 `2 ?) {
Dim i As Long
8 b6 v' O( u1 x! c7 d$ q N i = Me.labNum.Tag
o$ K; \; J6 d With frmChild.Form, p: S. m. Y/ i; o2 X! N# M
.AllowAdditions = True
; W% @+ Q5 b4 ?, o .AllowEdits = True* T6 ^4 `9 m: i+ g* k9 ?
End With
9 X' h8 C# d: z7 n' }8 _6 Q DoCmd.SetWarnings False
# x: u5 V/ K9 y) p DoCmd.RunSQL "INSERT INTO tblWords ( WordID ) SELECT '" & i & "' AS Num;"1 O: r: p% S# C' `$ L: p- x1 V. T/ t) t. `
DoCmd.SetWarnings True
4 a& t9 k2 o6 O7 Q5 n2 O Me.frmChild.Requery% Q7 {4 T( L+ m6 p. y1 M
Me.labNum.Tag = i + 1
r4 \+ B$ n3 F! ^6 m1 S s End Sub
* [1 V6 {8 r* e Private Sub cmdEdit_Click()( P' o# R; }8 C; f3 A
'修改
K( k* b# }, \7 I4 N. @, D& E With frmChild.Form1 }: }+ D1 O" o. j2 u, J6 q2 j
.AllowEdits = True! k C1 ]- R" H6 u M/ O
End With9 n w, Y( ]+ J8 b; d E( S
End Sub) ?2 `- V# Z0 b$ U: B
Private Sub cmdClose_Click()
4 j, a1 L' L! C' d/ U9 K% {! n DoCmd.Close5 r: T# X4 E; n1 k! a9 w) }
End Sub
; i6 R$ {. @0 o$ O, h Private Sub Form_Load()
9 L7 K( P' I! L" R) W2 N6 K9 a% D '词汇库的记录数量
& A6 i7 j/ Z/ `$ l" j Me.labNum.Tag = DCount("*", "tblWords") + 1
3 ]0 K6 y$ h+ X4 `, [/ \7 a ] End Sub |
发表于 2012-7-31 22:26:35
