回答編集履歴
1
コード修正
test
CHANGED
|
@@ -4,7 +4,7 @@
|
|
|
4
4
|
|
|
5
5
|
```vba
|
|
6
6
|
|
|
7
|
-
strSQL1 = "SELECT Count(ID) As Cnt FROM student WHERE ID = '" & Me.DeleteForm.
|
|
7
|
+
strSQL1 = "SELECT Count(ID) As Cnt FROM student WHERE ID = '" & Me.DeleteForm.Value & "'"
|
|
8
8
|
|
|
9
9
|
oraRs.Open strSQL1, oraCon
|
|
10
10
|
|