2014-04-16 1 views
0

이 문제를 명확하게 설명하는 가장 좋은 방법은 확실하지 않습니다. 최근에 이전에 표준 필드였던 양식의 필드를 변경했지만 사용자 편의 및 데이터 품질 제어를 위해 이제는 테이블에 연결된 드롭 다운 필드가되어 사용자가 드롭 다운 목록을 제공합니다 (입력하는 대신) 데이터를 입력하십시오.) txtTeam 나열 이하 (A 팀이 경우 이름 값 (입력시필드를 드롭 다운 메뉴로 변경 한 후 ADO 코드가 더 이상 복사/붙여 넣기를 수행하지 않습니다.

이 필드를 ADO 코드를 사용하는 팀을 발생하도록 업데이트 이벤트 후에 트리거 다음과 같이

문제의 encounterd은 "txtCity", "txtCountry", "txtCountry", "txtCAP", txtOfficialTeamName, ect (아래 참조)

불행히도, 일단 팀을 변경하면 필드를 테이블에 링크 된 목록 필드에 추가하면 아래에 표시된 플래그 (* 여기 내 문제 ... -)가 더 이상 유효하지 않으며 불행히도 ADO 복사/붙여 넣기 코드가 더 이상 작동하지 않습니다.

** 참고 : VBA 편집기로 이동하여 마우스를 "Team_name"및 "txtTEam"위로 가져 가면이 필드가 드롭으로 변환 된 사실과 직접 관련된 문제가 있음을 나타내는 다음 결과가 나타납니다 다운 필드.

TEAM_NAME = 운영 효율성 (선택한 팀의 실제 이름) txtTEam = '71'(

나는 사람이 좀 도와 수 있기를 바랍니다 기본 테이블에있는 팀 "운영 효율성"의 ID 번호 이 양식이 코드없이 나를 정말 유용하기 때문에, 그것은 alot을 잃는다.

Dim rstTEAM As New ADODB.Recordset 

    rstTEAM.Open "tblTeams", CurrentProject.Connection, _ 
       adOpenForwardOnly 



    Do Until rstTEAM.EOF 
     If rstTEAM!Team_name = txtTEam Then (*** HERE IS MY PROBLEM- this statement is no longer TRUE) 
      txtCity = rstTEAM!City 
      txtCountry = rstTEAM!Country 
      txtCAP = rstTEAM!CAP 
      txtOfficialTeamName = rstTEAM!Official_Team_Name 
      txtStreet = rstTEAM!Street 
      txtDivision = rstTEAM!Division 
      txtNumerotel.SetFocus 
      blnAggiunto = True 
      Exit Sub 
     Else 
      rstTEAM.MoveNext 
     End If 
    Loop 

    rstTEAM.Close 
    Set rstTEAM = Nothing 
+0

PS-을 나는 또한 시도 필드 이름 "Team_name"을 "ID"로 대체하면 값이 코드에서 기본 ID 번호가 아닌 텍스트로 표시되지만 그 중 하나는 작동하지 않는다고 생각할 수 있습니다. –

답변

1

지금 당신이 목록 상자를 사용하고 있는지, 제대로 컨트롤을 참조 할 필요가 감사합니다. 나는 당신이없는 가정 다중 선택을 허용하므로 참조해야합니다. CE (키를 가정하는 것은 골 0, 다른 사용 1 또는 2를 다음과 같이

If rstTEAM!Team_name = Me.txtTEam.Column(0) Then 

다중 선택, 당신은 같은 것을 사용하는 것이 허용하는 경우

Dim varItem As Variant 
For Each varItem In Me.txtTEam.ItemsSelected 
    strSQL = strSQL & Me.txtTEam.Column(0, varItem) 
Next varItem 
+0

웨인에게 감사드립니다. 나는 그것을 내 도서관에 넣을 것이다 .. btw- 내가 일하러 갔을 때 나는 동료에게서이 문제를 해결하는 또 다른 방법을 발견했다. –

+0

rstTEAM! Team_name = Me.txtTEam.text Then –

+0

My 동료가 나에게 이것이 왜 그런지에 관해 설명 할만큼 충분히 좋았다. 생산적인 날! –