2010-06-09 12 views
0

내 VBA 코드에서 SQL 테이블을 쿼리합니다. if/then 문을 추가하여 하나의 라디오 버튼을 선택하면 특정 값을 가져오고 다른 라디오 버튼을 선택하면 다른 값을 가져옵니다. 내 if는 radiobutton1이고 else는 radiobutton2입니다. else는 다른 값을 가질 수 있습니다./RadioButton을 사용하는 경우

여기에 특정 코드의 일부 :

strSQL = strBeginSQL1(strRiskSegment, "Detail") 
strSQL = strSQL & "a.field1, b.field1, " 
strSQL = strSQL & "a.field2, b.field2, a.field3, b.field3," 

만약 내/후 (라디오 버튼이 입력란 4 가리 킵니다.)

나는 경우/다음 문을 추가하려면 어떻게 FIELD3위한 경우 이 시점에서? 나는 그것이라고 생각했다 :

strSQL = strBeginSQL1(strRiskSegment, "Detail") 
strSQL = strSQL & "a.field1, b.field1," 
strSQL = strSQL & "a.field2, b.field2, If radiobutton2.true then a.field4, b.field4, else a.field3, b.field3," 
strSQL = strSQL & "a.field5, b.field5," 

나는 무엇을해야만 하는가?

답변

1

저장 프로 시저를 사용해야합니다.

그것은 아마 당신의 코드 단지 예를

strSQL = strBeginSQL1(strRiskSegment, "Detail") 
strSQL = strSQL & "a.field1, b.field1," 
if (radiobutton2.value = true) then 
strSQL = strSQL & "a.field4, b.field4" 
else if (radiobutton3.value = true) 
strSql = strSQL & "a.field3, b.field3" 
endif 
strSQL = strSQL & "a.field5, b.field5," 

에 대한 두 개의 서로 다른 STRSQL & 문을 구축 조금 청소기 만들 것이라고하지만,이 끔찍한 방법이며 당신은 단지 저장된 프로 시저에 이들 변수를 전달해야한다.

+0

나는 이것을 시도했지만 얻은 것이있다 : 런타임 오류 '438'; 개체가이 속성 또는 메서드를 지원하지 않습니다. – Daniel

+0

어, 구문 오류입니다. 그것은 (radiobutton2.value = true) 도움을 주셔서 감사합니다! – Daniel

+0

호기심에서 벗어난이 프로젝트에는 옵션이 저장되어 있습니다. –

관련 문제