사용자 양식의 텍스트 자동 입력

-1

사용자 폼이 있는데 특정 giftcard가 데이터베이스에 있는지 여부를 확인하고 해당 텍스트 상자에 값을 가져오고 싶으면 확인하고 싶습니다.사용자 양식의 텍스트 자동 입력

아래 코드를 사용하고 있습니다. 이 코드는 유효한 기프트 카드를 확인합니다 (이 부분은 작동합니다).

iRow는
ValueToFind는
WithType 선물 카드의 유형입니다 선물 카드의 ID입니다 데이터베이스의 마지막 행입니다.

코드 :

For i = 1 To iRow + 1 
    If ws.Cells(i, 2).Value = ValueToFind And _ 
     ws.Cells(i, 1).Value = WithType And _ 
     ws.Cells(i, 6).Value = "" Then 

     ... 

     Exit Sub 
    End If 
Next i

하지만 사용자 정의 폼의 텍스트 상자에 Me.TXT_MONEY.Value 및 Me.TXT_DATE.Value를 업데이트 할 수있는 방법을 찾을 수 없습니다.

이 코드를 사용하면 도움을받을 수 있습니까?

출처

2014-04-29 Musebo

이 제발 읽어 : [?한다 질문들이 제목에 "태그"를 포함 (http://meta.stackexchange.com/questions/19190/should-questions-include-tags-in-their-titles/130208# 130208) –

너무 많이 ... 텍스트 ... 나는 읽기를 포기했고, 다른 사람들도 아마 그렇게 할 것입니다. 도움이 필요하면 질문을 자신이 겪고있는 문제로 끓여보십시오. 나는 당신이 5 줄 또는 그 이하로 그것을 할 수있을 것이라고 확신합니다. –

@ Jean-FrançoisCorbett에 동의합니다. 너무 많은 관련없는 정보 :) 질문을 업데이트했습니다. –

이게 당신이하려는 것입니까?

For i = 1 To iRow + 1 
    If ws.Cells(i, 2).Value = ValueToFind And _ 
     ws.Cells(i, 1).Value = WithType And _ 
     ws.Cells(i, 6).Value = "" Then 
      TXT_MONEY.Value = ws.Cells(i, X).Value 
      TXT_DATE.Value = ws.Cells(i, Y).Value 
     Exit Sub 
    End If 
Next i

당신이 값을 데리러 원하는 위치에서 해당 열 번호 위의 코드에 X 및 Y를 교체합니다.

루핑 대신 실제로 .Find을 사용 하시겠습니까? 내 블로그의 THIS 링크를 참조하십시오.

출처

2014-04-29 11:55:49

사용자 양식의 텍스트 자동 입력

답변

관련 문제