Do While Not rs.EOF
If Text1(0).Text <> rs.Fields(1) Then
/*--*--*/
rs.MoveNext
Else
msg = "コードが重複しています."
MsgBox msg, vbOKOnly, "重複チェック"
Text1(0).Text = ""
Text1(0).SetFocus
End If
Loop
*------
text1(1) = rs.fields(1)
text1(2) = rs.fields(2)
-------*
データベース(Access)にデータが３件入っていて、例えば、１件目のデータを更新したいのですが今のソースでは、/*--*--*/でデータベースを次々読んでいるので、３件読み終えたときにカレント行が４件目にあると思うので、それを”任意”の行にしたいのですが教えてください。
発信者：MAILER-DAEMON@mail.goo.ne.jp
件名：failure notice
Hi. This is the qmail-send program at mail.goo.ne.jp.
I'm afraid I wasn't able to deliver your message to the following addresses.
This is a permanent error; I've given up. Sorry it didn't work out.
<相手のメールアドレス>:
210.196.3.136 does not like recipient.
Remote host said: 550 <相手のメールアドレス>... User unknown
Giving up on 210.196.3.136.
--- Below this line is a copy of the message.
Return-Path: <自分のメールアドレス>
Received: (qmail 57415 invoked by uid 65534); 28 Jan 2002 19:37:08 +0900
Date: 28 Jan 2002 19:37:08 +0900
Message-ID: <20020128103708.57414.qmail@mail.goo.ne.jp>
From: 自分のメールアドレス
To: 相手のメールアドレス
Subject: =?ISO-2022-JP?B?GyRCI0gjUDgrJF4kNyQ/ISMbKEI=?=
Mime-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-type: text/plain; charset=iso-2022-jp
本文
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
友人にメールを送信したところ、
以上の様な、エラーメールが届きました。
送信先のメールアドレスを確認しましたが、間違いはありません。
Ｑ１．友人に送信したメールは、友人の元に届いているのでしょうか？
Ｑ２．もし届いていない場合、何故この様な現象は起こるのでしょうか？
もし知っている方がおられたら、お答え頂けると大変嬉しいですm(__)m。
こんにちは、次のようなアドレスを入力するとそのソースを表示するプログラムを作ったのですがこれで表示されるソースに名前を付けて保存することってできますか？お願いします。
Private Sub Command1_Click()
Dim strUrl As String
Dim strBuf As String
Command1.Enabled = False
strUrl = InputBox("URLを入力して下さい.")
If (Len(strUrl) = 0) Then
Exit Sub
End If
Command1.Enabled = True
strBuf = Inet1.OpenURL(strUrl)
Form2.Show
Form2.Text1.Text = strBuf
End Sub
Function Getsource() As String
Dim strBuf As String
Dim strUrl As String
strBuf = Inet1.OpenURL(strUrl) 'ファイル内容を取得
Getsource = strBuf
End Function
Sub InStrSample1()
Dim myData As String
Dim i As Integer
myData = "*******@projecta.co.jp"
i = InStr(myData, "@")
MsgBox Left(myData, i - 1)
End Sub
ネット上で上のようなプログラムを見つけ、VBで書いてみたら何も動きませんでした。ダイアログボックスに*******と表示されるらしいんですが、その設定プロパティがわかりません。お願いします。
Sub InStrSample1()
Dim myData As String
Dim i As Integer
myData = "*******@projecta.co.jp"
i = InStr(myData, "@")
MsgBox Left(myData, i - 1)
End Sub
ネット上で上のようなプログラムを見つけ、VBで書いてみたら何も動きませんでした。ダイアログボックスに*******と表示されるらしいんですが、その設定プロパティがわかりません。お願いします。
