이 문제를 명확하게 설명하는 가장 좋은 방법은 확실하지 않습니다. 최근에 이전에 표준 필드였던 양식의 필드를 변경했지만 사용자 편의 및 데이터 품질 제어를 위해 이제는 테이블에 연결된 드롭 다운 필드가되어 사용자가 드롭 다운 목록을 제공합니다 (입력하는 대신) 데이터를 입력하십시오.) 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
PS-을 나는 또한 시도 필드 이름 "Team_name"을 "ID"로 대체하면 값이 코드에서 기본 ID 번호가 아닌 텍스트로 표시되지만 그 중 하나는 작동하지 않는다고 생각할 수 있습니다. –