2013-08-13 5 views
0

에 더 나은 공식 오는에 제안을해야 할 필요가있다, 나는이 하나를 사용하여 시도하지만 (이 긴나는이 공식을 알아내는 데 도움이 아니면 내가이 공식에 도움이 필요 ACCESS

=하여 IIf이었다 나에게 말했다 [Combo5] = "건물 서비스 엔지니어", [양식]! [예상]! [Text787], IIf ([Combo5] = "목수", [양식]! [예상]! [Text788], IIf ([Combo5] IIc ([Combo5] = "보관 인 - Shift Pay (오전 5:00 - 6:00)", [양식], [견적]! [Text790], IIf ([Combo5] IIf ([Combo5] = "시설 프로젝트 감독자", [양식]! [견적]! [Text792], IIf ([Combo5] = "화재") "전기" (Combo5) = "원예 전문가", [양식]! [견적]! [Text794], IIf ([Combo5] = "Grounds Worker" 양식]! [견적]! [텍스트 795], IIf ([Combo5] = "인테리어 디자인", [양식]! [견적]! [Text796], IIf ([Combo5] = "관개 전문가", [양식]! [견적]! [Text797], IIf ([Combo5 IIf ([Combo5] = "리드 자동/장비 메카닉", [양식]! [견적]! [텍스트 799], IIf ([Combo5] = " "[견적]! [견적]! [예상]! [텍스트 800], IIf ([콤보 5] ="연근장 노동자 ", [양식]! [예상]! [Text801], IIf ([콤보 5] =" "[Combo5] ="자물쇠 ", [양식]! [예상]! [Text803], IIf ([Combo5] ="유지 보수 기술자 " IIf ([Combo5] = "Painter", [Forms]! [견적]! [Text805], IIf ([Combo5] = "해충 방제 전문가", [양식])! [견적]! [Text807], IIf ([Combo5] = "Recycler (Laborer)", [양식]! [견적] [Combo5] = "냉동 공수", [양식]! [견적]! [Text809], IIf ([Combo5] = "감독 서비스 엔지니어", [양식]! [견적] 텍스트 81 0, 0)))))))))))))))))))))))))

는 그래서 스위치 functnion로

= 스위치 ([Combo5 그것을 approced ] [건물 서비스 엔지니어], [양식]! [견적]! [Text787], [Combo5] = "목수", [Forms]! [Text788], [Combo5] = "Custodian", [Forms ] [견적]! [Text789], [Combo5] = "보관 담당자 - 교대 근무 (오전 5시 - 오전 6시)", [양식]! [견적]! [Text790], [Combo5] = "Electrician", [Forms]! [견적]! [텍스트 791], [콤보 5] = "시설 프로젝트 감독자", [양식]! [견적]! [텍스트 792], [콤보 5] = "소방 보안관", [양식]! [견적]! [텍스트] [Combo5] = "원예 전문가"[견적]! [견적]! [텍스트 794], [콤보 5] = "기초 작업자", [양식]! [견적]! [텍스트 795], [콤보 5] = " ", [양식]! [예상]! [텍스트 796], [콤보 5] ="관개 전문가 ", [양식]! [에스티마 [Text798], [Combo5] = "자동차 자동 매입", [Forms]! [Estimate]! [Text799], [Combo5] = "Laborer", [Forms] [Combo5] = "리드 보관자", [양식]! [예상]! [텍스트 800], [콤보 5] = "리드 그랜드 근로자", [양식]! [예상]! [텍스트 801], [콤보 5] = "빛 "[견적]! [견적]! [견적]! [견적]! [텍스트] [텍스트 802], [콤보 5] ="자물쇠 제조공 ", [견적] [Text805], [Combo5] = "해충 방제 전문가", [양식]! [견적]! [Text806] , [Combo5] = "배관공", [배관], [견적]! [Text807], [Combo5] = "Recycler (노동)", [양식] 메카닉 ", [양식]! [견적]! [텍스트 809], [콤보 5] ="감독 서비스 엔지니어 ", [양식]! [견적]!didnt 한 일이 그래서 모듈로 사용되는 [Text810])

Option Compare Database 
Public Function fncRetValBasedOnCmb4() As String 
Select Case Forms!ReportFinished!Combo4 
    Case "Building Service Engineer" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text787 
    Case "Carpenter" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text788 
    Case "Custodian" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text789 
    Case "Custodian - Shift Pay (5am - 6am)" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text790 
    Case "Electrician" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text791 
    Case "Facilities Project Supervisor" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text792 
    Case "Fire Marshal" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text793 
    Case "Gardening Specialist" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text794 
    Case "Grounds Worker" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text795 
    Case "Interior Design" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text796 
    Case "Irrigation Specialist" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text797 
    Case "Laborer" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text798 
    Case "Lead Auto/Equip Mechanic" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text799 
    Case "Lead Custodian" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text800 
    Case "Lead Grounds Worker" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text801 
    Case "Light Auto/Equip Operator" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text802 
    Case "Locksmith" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text803 
    Case "Maintenance Mechanic" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text804 
    Case "Painter" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text805 
    Case "Pest Control Specialist" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text806 
    Case "Plumber" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text807 
    Case "Recycler (Laborer)" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text808 
    Case "Refrigeration Mechanic" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text809 
    Case "Supervising Building Service Engineer" 
     fncRetValBasedOnCmb4 = Forms!Estimate!Text810 
    Case Else 
     fncRetValBasedOnCmb4 = 0 
End Select 

최종 기능 것은 내가이


I를 실행하는 방법을 몰라

데이터가 입력 된 양식이 있습니다 및 메신저 언 바운드 텍스트 상자에 연결된 금액을 표시합니다 한 번 선택한 콤보 상자가있는 새 양식을 만들려고 (calc 첫 번째 양식에서 ulated 필드)

답변

0

어떻게 식 배치에 대해 : 당신의 언 바운드 텍스트 상자의 컨트롤 소스에

=fncRetValBasedOnCmb4() 

를?