|
안녕하세요...
좀 도와주세요..
검색란를 만들고자 여기저기를 다녀보니 ado우편번호.mdb가 있어 다운 받아
살펴보면서 이것 저것 해보았지만, 저의 실력으로 무엇을 잘못 하였는지 잘 모르겠네요
폼에서 우편번호 검색과 같이 한번 만들어 보고자 폼 form1만들어습니다.
고수님들 이 하수 한수 지도 부탁...
무엇을 잘못하였는지...
==============[용용님 글에 대한 답변입니다]==============
언뜻보니 에러나는 원인은 변수가 지정되지 않아서인것 같습니다.
Private Sub lstresult_DblClick(Cancel As Integer)
Dim inta As Integer
Dim stra As String ------> 여기(추가하세요)
Dim strb As String ------> 여기(추가하세요)
Dim strc As String
Dim code As String
If 동명 <> "" Then
stra = 동명
Set db = CurrentProject.Connection
code = lstresult
Set rs = New ADODB.Recordset
sql = "select * from post2000 where zipcode= "" & code & """
rs.Open sql, db, 1
strb = rs!ZIPCODE
strc = rs!SIDO & " " & rs!GUGUN & " " & rs!DONG & " " & rs!BUNJI & " " & rs!HO
[Forms]![주소]![Text0] = strb
[Forms]![주소]![Text2] = strc
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
DoCmd.Close
End If
End Sub
|
|