質問編集履歴
1
ソース更新
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -32,4 +32,49 @@
|
|
|
32
32
|
初心者の質問大変申し訳無いのですが上記お問い合わせいたします。
|
|
33
33
|
|
|
34
34
|
本当に情けないのですがとっかかりが不明なため
|
|
35
|
-
どのような検索すればよろしいのかお教え頂けますと嬉しく思います。
|
|
35
|
+
どのような検索すればよろしいのかお教え頂けますと嬉しく思います。
|
|
36
|
+
|
|
37
|
+
【【【追記】】】
|
|
38
|
+
```
|
|
39
|
+
Private Sub コマンド86_Click()
|
|
40
|
+
Call print_sirial("TBL_SERIALNO", "serialno", "TBL_SERIAL", "RPT_SERIALNO", "QRY_SERIAL1")
|
|
41
|
+
End Sub
|
|
42
|
+
```
|
|
43
|
+
上記で呼んでいる
|
|
44
|
+
```
|
|
45
|
+
Public Sub print_sirial(tbl_name As String, teigi As String, csv_name As String, rpt_name As String, qry_name As String)
|
|
46
|
+
'TBL_SERIALを開いて上から見て顧客IDが空なヤツに
|
|
47
|
+
'顧客ID、購入日、を入れる。
|
|
48
|
+
Dim rData As String
|
|
49
|
+
rData = writePurchaseSerialDay()
|
|
50
|
+
MsgBox rData
|
|
51
|
+
End Sub
|
|
52
|
+
```
|
|
53
|
+
上記で呼んでいる
|
|
54
|
+
```
|
|
55
|
+
|
|
56
|
+
Function writePurchaseSerialDay() As String
|
|
57
|
+
Dim DB As DAO.Database
|
|
58
|
+
Dim RS As DAO.Recordset
|
|
59
|
+
Set DB = CurrentDb
|
|
60
|
+
Set RS = DB.OpenRecordset("SELECT TOP 1 シリアルNO, 購入日 FROM TBL_SERIAL " & _
|
|
61
|
+
"WHERE 購入日 IS NULL ORDER BY 管理番号;")
|
|
62
|
+
|
|
63
|
+
If RS.EOF Then
|
|
64
|
+
writePurchaseSerialDay = ""
|
|
65
|
+
Else
|
|
66
|
+
RS.Edit
|
|
67
|
+
RS!購入日 = Date
|
|
68
|
+
RS.Update
|
|
69
|
+
writePurchaseSerialDay = RS!ｼﾘｱﾙNO
|
|
70
|
+
End If
|
|
71
|
+
|
|
72
|
+
RS.Clone: Set RS = Nothing
|
|
73
|
+
Set DB = Nothing
|
|
74
|
+
End Function
|
|
75
|
+
```
|
|
76
|
+
で構文エラーとなってしまうのです……
|
|
77
|
+
writePurchaseSerialDay = RS!ｼﾘｱﾙNO
|
|
78
|
+
にフォーカスが当たって……
|
|
79
|
+
|
|
80
|
+
以上追記します。
|