Private Sub txt행선지_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.ActiveConnection = CurrentProject.Connection
rs.Open "select * from 운행관리 where 행선지 " ' & txt행선지 & "'"
MsgBox "행선지가 " & [행선지] & "인 개수는 : " & rs.RecordCount
rs.Close
End Sub
입력하면 연두색으로 글씨가 변경되고
이런식으로 매크로창이 생겨요ㅠㅠㅠ
안녕하세요.
초록색으로 표시된 것은 "과 '의 입력순서가 바뀌어서 나온 것입니다. 수정해 주시면 됩니다.
수정 전 : " ' & txt행선지 & "'"
수정 후 : ' " & txt행선지 & "'"
매크로 화면이 나타나는 것은 문의하신 내용만으로 원인을 파악하기 어렵습니다.
실기 특성상 작업 파일을 확인해야 답변을 드릴 수 있는 경우가 많습니다.
파일 확인을 원하시면 작업 파일을 첨부하셔서 재질문 부탁드립니다.
좋은 하루 보내세요.
-
*2018-10-23 21:49:32
안녕하세요.
초록색으로 표시된 것은 "과 '의 입력순서가 바뀌어서 나온 것입니다. 수정해 주시면 됩니다.
수정 전 : " ' & txt행선지 & "'"
수정 후 : ' " & txt행선지 & "'"
매크로 화면이 나타나는 것은 문의하신 내용만으로 원인을 파악하기 어렵습니다.
실기 특성상 작업 파일을 확인해야 답변을 드릴 수 있는 경우가 많습니다.
파일 확인을 원하시면 작업 파일을 첨부하셔서 재질문 부탁드립니다.
좋은 하루 보내세요.