홈>

VBA code calling a stored proc - 스토어드 프로 시저를 호출하는 vba 코드 - 레코드가 반환되지 않으면 메시지 상자 표시

이 코드를 빌려서 제대로 작동하는 것 같습니다. 그러나 저장된 proc이 레코드를 반환하지 않으면 메시지를 표시하고 싶습니다. 도와 주셔서 감사합니다.

Private Sub CommandButton1_Click()
Dim property_id As Double
property_id = Sheets("Pro Forma Input").Range("AD3").Value
With ActiveWorkbook.Connections("MyDataConnection").OLEDBConnection
.CommandText = "EXEC dbo.my_stored_proc '" & property_id & "'"
ActiveWorkbook.Connections("MyDataConnection").Refresh
End With
Application.DisplayAlerts = True
End Sub

vba
  • 답변 # 1

    이것을 시도하십시오 :

    property_id = Sheets("Pro Forma Input").Range("AD3").Value
If property_id = "" Then
    MsgBox "There is nothing here!"
Else
End If

    이것이 도움이되기를 바랍니다!

  • 답변 # 2

    어떤 이유로 든 자신의 게시물이 삭제 된 솔루션에 대한 다른 포스터에 감사합니다. 다른 사람이 필요로하는 경우에 수행 한 작업은 다음과 같습니다.

    With ActiveWorkbook.Connections("FirstKey_One_Pager_connection").OLEDBConnection
.CommandText = "EXEC dbo.usp_FirstKey_One_Pager '" & property_id & "'"
ActiveWorkbook.Connections("FirstKey_One_Pager_connection").Refresh
If Sheets("DataSource").Range("B9").Value = "" Then
    MsgBox "No property found using the RR ID entered"
Else
End If

관련 자료

  • 이전 ios - iPad에서 Cordova iPhone 전용 앱이 아이콘을 표시하지 않음
  • 다음 javascript - 첫 TD 만 테이블 검색
    • 트렌드