Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
731 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【10356】ＣＳＶファイルの表示方法を変えたい たつ 08/5/7(水) 17:47 質問[未読]
【10359】Re:ＣＳＶファイルの表示方法を変えたい Gin_II 08/5/8(木) 13:15 回答[未読]
【10362】Re:ＣＳＶファイルの表示方法を変えたい たつ 08/5/8(木) 14:48 お礼[未読]
【10356】ＣＳＶファイルの表示方法を変えたい
質問  たつ  - 08/5/7(水) 17:47 -
引用なし
パスワード
   はじめまして、こんにちは。

現在、顧客情報を入力し登録するフォーム『F_顧客』を作成しています。
『F_顧客』内の「CSV出力」のボタンを押すと、フォーム内に入力したデータが
CSVファイルとして出力するロジックを考え中です。

Private Sub CSV出力_Click()
　　'Dim rs As New ADODB.Recordset
　　Dim strSql As String
　　Dim strFile As String

　　If IsNull(日付) Or IsNull(顧客ＩＤ) Or IsNull(原価) Then
　　
　　MsgBox ("未記入があります。")
　　　 DoCmd.CancelEvent
　　　　txtdate.SetFocus
　　　　Exit Sub
　　End If
　　　　　
　　　
strFile = "c:\顧客情報.txt"
　　Open strFile For Output Access Write As #1

　　
　　　　Write #1, _
　　　　CStr(日付); _
　　　　CStr(顧客ＩＤ); _
　　　　CStr(原価); _

　　Close #1 '

End Sub

このロジックではきちんとCSVに出力されるのですが、一つ問題があります。
このフォーム内に日付を入力するテキストボックス「txtdate」に
入力する際は○○/○○/○○（例：08/05/07)と入力し、
ＣＳＶファイルとして出力するデータの日付の表示を○○○○○(例:080507)と表示させたいのですが、今一歩のところでできません。
どこの設定でＣＳＶの表示方法をかえることができるのでしょうか？
どなたかご教授お願いします。

説明がへたくそですみません。
【10359】Re:ＣＳＶファイルの表示方法を変えたい
回答  Gin_II  - 08/5/8(木) 13:15 -
引用なし
パスワード
   > 入力する際は○○/○○/○○（例：08/05/07)と入力し、
> ＣＳＶファイルとして出力するデータの日付の表示を○○○○○(例:080507)と
> 表示させたいのですが

Format(日付,"yymmdd")
Format(CDate(日付),"yymmdd")
Replace(日付, "/", "")

などを試してみてください。
【10362】Re:ＣＳＶファイルの表示方法を変えたい
お礼  たつ  - 08/5/8(木) 14:48 -
引用なし
パスワード
   ▼Gin_II さん：
ご回答ありがとうございます。

>Format(CDate(日付),"yymmdd")

をコードを記入することで無事解決いたしました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
731 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1081110
(SS)C-BOARD v3.8 is Free