Sub test()
MsgBox CurrentDatabase
End Sub
を実行すると
「変数が定義されていません。」となってしまいます。
エクセルで言う
MsgBox ActiveWorkbook.Name
を行ないたいのですがどんなコードを書けばいいのでしょうか？
よろしくお願いします。
毎度お世話になっております。
WindowsXP ,Access2003を使用しております。
以下の2つのテーブルがあります。
・テーブル1
品番
A
B
・テーブル2
品番
A
AB
BC
D
テーブル1の品番を含むテーブル2の品番（A,AB,BC）を抽出したいのです。
SELECT テーブル2.品番
FROM テーブル2, テーブル1
WHERE テーブル2.品番 Like "*[テーブル1].[品番]*"
では文字列になるらしく1件も抽出されませんでした。
これはクエリで可能なのでしょうか。
ご教授お願いいたします。
お世話になります。
似たような問題をググッてみたのですが、イマイチ解決に繋がらず、
最終手段と質問させて頂きました。
現在、ACCESS2007で削除クエリを作成していますが、
題名のエラーが表示されてしまいます。
・テーブルAとBが存在します。
・テーブルBのレコードを削除したいです。
・削除条件は、テーブルAでSELECTした結果に対し、
テーブルAとテーブルBで一致するものを削除します。
・A/B両テーブルともに主キーは設定されていません。
・また、リレーションも張っていません。
・データシートビューは想定したものが表示されます
・作成したSQLは以下のような感じです。
---------------------------------------------------
DELETE T2.*
FROM
T2,
(
SELECT *
FROM T1
WHERE
T1.Fld1 = "01"
AND T1.Fld2 = "002"
AND T1.Fld3 BETWEEN #2008/4/1# AND #2009/3/31#
AND (T1.Fld4 ="A" OR T1.Fld5 = "B")
) AS T1a
WHERE
T2.Fld1 = T1a.Fld1
AND T2.Fld2 = T1a.Fld2
AND T2.Fld3 = T1a.Fld3
---------------------------------------------------
以上、解決策を伝授頂けないでしょうか？
よろしくお願いします。
お世話になります。
似たような問題をググッてみたのですが、イマイチ解決に繋がらず、
最終手段と質問させて頂きました。
現在、ACCESS2007で削除クエリを作成していますが、
題名のエラーが表示されてしまいます。
・テーブルAとBが存在します。
・テーブルBのレコードを削除したいです。
・削除条件は、テーブルAでSELECTした結果に対し、
テーブルAとテーブルBで一致するものを削除します。
・A/B両テーブルともに主キーは設定されていません。
・また、リレーションも張っていません。
・データシートビューは想定したものが表示されます
・作成したSQLは以下のような感じです。
---------------------------------------------------
DELETE T2.*
FROM
T2,
(
SELECT *
FROM T1
WHERE
T1.Fld1 = "01"
AND T1.Fld2 = "002"
AND T1.Fld3 BETWEEN #2008/4/1# AND #2009/3/31#
AND (T1.Fld4 ="A" OR T1.Fld5 = "B")
) AS T1a
WHERE
T2.Fld1 = T1a.Fld1
AND T2.Fld2 = T1a.Fld2
AND T2.Fld3 = T1a.Fld3
---------------------------------------------------
以上、解決策を伝授頂けないでしょうか？
よろしくお願いします。
初心者です。
Accessのクエリーで、生年月日から年齢を算出したいです。
Year(Date())-Year([生年月日])-Abs(Format(DateAdd('d',-((Year([生年月日]) Mod 4=0 And Year([生年月日]) Mod 100<>0) Or (Year([生年月日]) Mod 100=0)),[生年月日]),'mmdd')>Format(Date(),'mmdd'))
これをいれると、生年月日が空白のとき#Errorになります。
空白のときエラーが表示されないようにしたいです。
IIf(IsNull([生年月日])),"",Nz(Year(Date())-Year([生年月日])-Abs(Format(DateAdd('d',-((Year([生年月日]) Mod 4=0 And Year([生年月日]) Mod 100<>0) Or (Year([生年月日]) Mod 100=0)),[生年月日]),'mmdd')>Format(Date(),'mmdd')))
これでは、おかしいとAccessがいいます。
お願いします。
お世話になっております。
サブフォームは帳票型になっており、下記で表示されている全レコードのチェックが入ります。
これと平行して、各レコードを印刷したいのですが、カーソルがあるレコードのみがレコードの数だけ印刷されてしまいます。
これを各レコードごとに印刷したいと思います。
Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
Set dbs = CurrentDb
Set rst = Me.RecordsetClone
With rst
If .RecordCount > 0 Then
.MoveFirst
Do Until .EOF
.Edit
!チェック = True
DoCmd.OpenReport "印刷", acNormal, , "コード=" & Me.コード
.Update
.MoveNext
Loop
End If
.Close
End With
ご教授いただければ幸いです。よろしくお願いいたします。
お世話になっております。
サブフォームは帳票型になっており、下記で表示されている全レコードのチェックが入ります。
これと平行して、各レコードを印刷したいのですが、カーソルがあるレコードのみがレコードの数だけ印刷されてしまいます。
これを各レコードごとに印刷したいと思います。
Dim dbs As Database
Dim rst As Recordset
Dim strSQL As String
Set dbs = CurrentDb
Set rst = Me.RecordsetClone
With rst
If .RecordCount > 0 Then
.MoveFirst
Do Until .EOF
.Edit
!チェック = True
DoCmd.OpenReport "印刷", acNormal, , "コード=" & Me.コード
.Update
.MoveNext
Loop
End If
.Close
End With
ご教授いただければ幸いです。よろしくお願いいたします。
エクセル2000です。
たとえばA1セル内の文字列を一個ずつ取り出す場合、
Sub test01()
For i = 1 To Len(Range("A1").Value)
Cells(i, "B").Value = Range("A1").Characters(i, 1).Text
Next
End Sub
このように最初から最後の文字まで何番目で指定することはわかるのですが、これをFor Each で回すにはどうしたらよいでしょうか？
（⌒o⌒)？ お教えください。
Sub test02()
For Each ch In Range("A1").Characters
i = i + 1
Cells(i, "B").Value = ｃｈ
Next
End Sub
ではエラーになります。
