Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2024 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4210】DCountでファイルの有無を調べる方法 はな 05/1/19(水) 17:50 質問[未読]
【4212】Re:DCountでファイルの有無を調べる方法 かろちん 05/1/19(水) 21:31 回答[未読]
【4235】Re:DCountでファイルの有無を調べる方法 はな 05/1/21(金) 11:11 お礼[未読]
【4210】DCountでファイルの有無を調べる方法
質問  はな  - 05/1/19(水) 17:50 -
引用なし
パスワード
   フォームから、新規で作成したいテーブル名を入力して
新規でテーブルを作成したいのですが
もしも、同名前が存在した場合、存在するテーブルを削除し
新規にて、テーブルを作成したいのですが。

If DCount("*", "MSysObjects", _
　　"Name='" & Forms!F_メインメニュー1!txtテーブル名 & "'　And Type=1") > 0 Then

　　MsgBox ("あった")
　　
　　　Set cat = New ADOX.Catalog
　　　cat.ActiveConnection = CurrentProject.Connection

　　
　　　cat.Tables.Delete fname
　　
　　End If

　　Set cat = Nothing

上記の様に書いてみましたが、構文エラーになってしまいます。
詳しく分かる方、教えて下さい。
【4212】Re:DCountでファイルの有無を調べる方法
回答  かろちん  - 05/1/19(水) 21:31 -
引用なし
パスワード
   私はこんな方法でやってます。


　　Dim i　　　　　　　 As Long
　　Dim strTableName　　As String
　　Dim strName　　　　 As String

　　strName = Forms!F_メインメニュー1!txtテーブル名
　　For i = 0 To CurrentData.AllTables.Count - 1
　　　　strTableName = CurrentData.AllTables(i).Name
　　　　If strName = strTableName Then
　　　　　　DoCmd.DeleteObject acTable, strTableName
　　　　　　Exit For
　　　　End If
　　Next i


気になることがあります。間違っていたらごめんなさい。
　何度も、消したり書いたりしました。
　ここの掲示板は、管理人さんのご好意（趣旨）でマルチポストは
　禁止となっておりませんので、マルチポストはしても良いことに
　なっていますので問題はありませんが、向こうは問題がありそう
　です。

　この掲示板もマルチポストは全てＯＫではなく条件があります。
　この掲示板の上の方に「マルチポストに関して、主宰者の意見を
　まとめました」の横の「ここ」をクリックして、議論された内容
　を読んでおいてください。
【4235】Re:DCountでファイルの有無を調べる方法
お礼  はな  - 05/1/21(金) 11:11 -
引用なし
パスワード
   ありがとうございました。
解決出来ました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2024 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078265
(SS)C-BOARD v3.8 is Free