조금 번외된 질문이긴 합니다만
RecordSource 속성을 이용해서 조회기능을 구현했는데
여기에 추가적인 기능으로
조회정보가 없을 시 "해당하는 이메일이 없습니다."
라는 Msgbox를 띄우고 싶습니다.
if문을 사용했을 경우 어떻게 구현해야 하나요.
Me.RecordSource = "SELECT * FROM 제품별판매현황 where 담당자이메일 like '*" & txt이메일 & "*'"
If Then
MsgBox "해당하는 이메일이 없습니다.", vbOKOnly, "알림"
End If
이렇게 짜봤는데 If 와 Then 사이에 어떻게 문장을 짜야할 지 모르겠네요..
'담당자 이메일 <> txt이메일'
이렇게 해봤는데 전체를 조회하는 거라
문구가 항상 떠버리네요.
굳이 If 문이 아니어도 상관은 없는데
메시지박스는 거의 If문과 연결되는 것 같더라고요 ㅜㅠ
능력자분들 답변 부탁드립니다~~
안녕하세요.
아래와 같이 작성하시면 됩니다.
Private Sub cmd이메일찾기_Click()
Me.RecordSource = "SELECT * FROM 제품별판매현황 where 담당자이메일 like '*" & txt이메일 & "*'"
a = DCount("담당자이메일", "제품별판매현황", "담당자이메일 like '*" & txt이메일 & "*'")
If a = 0 Then
MsgBox "해당하는 이메일이 없습니다.", vbOKOnly, "알림"
End If
End Sub
즐거운 하루 되세요.
"-
*2012-02-03 09:44:22
안녕하세요.
아래와 같이 작성하시면 됩니다.
Private Sub cmd이메일찾기_Click()
Me.RecordSource = "SELECT * FROM 제품별판매현황 where 담당자이메일 like '*" & txt이메일 & "*'"
a = DCount("담당자이메일", "제품별판매현황", "담당자이메일 like '*" & txt이메일 & "*'")
If a = 0 Then
MsgBox "해당하는 이메일이 없습니다.", vbOKOnly, "알림"
End If
End Sub즐거운 하루 되세요.
"