액세스 하위 폼 및

Question

를 참조하는 이유는이 코드가없는 runninig.I이 수 (COMM_NUM)과 약물에 대한 손 QTY_IHND1에 Mininimum (MIN_STOCK) 및 Maximum (Stock MAX_STOCK1)과 >quantity을 반환 할 것입니다.

If DCount(QTY_IHND1, "Stores_Table") = 0 Then 
    QTY_IHND1 = 0 

ElseIf DCount(QTY_IHND1, "Stores_Table") > 1 Then 
    QTY_IHND1 = DLast("QTY_IHND1", "Stores_Table", "COMM_NUM = [COMM_NUM]") _ 
      + ((SubStoresTable.Form!QTY_RECVD) - (SubStoresTable.Form!QTY_ISSUE)) 
Else 
    QTY_IHND1 = 0 
End If 

Forms!Pharmacytally.Controls("QTY_IHND1").Value = QTY_IHND1 
MAX_STOCK1 = DMin("QTY_IHND1", "Stores_Table", "COMM_NUM" = [COMM_NUM]) 
Forms!Pharmacytally.Controls("MAX_STOCK1").Value = MAX_STOCK1 
MIN_STOCK1 = DMin("QTY_IHND1", "Stores_Table", "COMM_NUM" = [COMM_NUM]) 
Forms!Pharmacytally.Controls("MIN_STOCK1").Value = MIN_STOCK1 

Answer 1

제목의 하위 양식 부분이 어디에 있는지 알 수 없습니다. MVP 사이트 here의 기사가 있습니다.

당신은 등호가 틀린 장소에 있습니다.

MAX_STOCK1 = DMin("QTY_IHND1", "Stores_Table", "COMM_NUM =" & [COMM_NUM]) 

COMM_NUM은 숫자 여야합니다. 그렇지 않으면 따옴표가 필요합니다.

코드 섹션 전체가 좋지 않아 재 작업이 가능합니다. 예를 들어 :

는

DCount(QTY_IHND1, "Stores_Table") 

이 상점 테이블이 완전히 비어, 또한, QTY_IHND1 인용되지 여부에 상당히 이상한 체크 것으로 보인다.

DLast("QTY_IHND1", "Stores_Table", "COMM_NUM = [COMM_NUM]" 

Comm_Num은 항상 그 자체와 같습니다.

또한 많은 조회가 있으므로 레코드 세트를 사용하는 것이 좋습니다.

마지막으로 전체가 있습니다. 마지막은 단일 사용자 시스템을 제외하고는 값을 얻는 아주 나쁜 방법이며 심지어 단일 사용자로 남아 있지 않을 수도 있다고 생각해야합니다.

제어 얻을 수있는 컨트롤 속성을 참조 할 필요가 없습니다 :

Forms!Pharmacytally.Controls("QTY_IHND1") 

컨트롤 폼의 속성이 될이 :

Forms!Pharmacytally.QTY_IHND1 

또는

Forms!Pharmacytally!QTY_IHND1 

또는 경우

코드가 Pharmacytally 양식으로 실행 중입니다.

Me.QTY_IHND1 

이렇게하면 intellisense를 활용할 수 있습니다. 기본 폼과 MySubformControl

MyQty = Me.MySubformControl.Form.QTY_RECVD 

그 MySubformControl주의하는 것이 중요하다라는 하위 폼 컨트롤에서 근무

편집을 다시 설명

가 하위 폼 컨트롤의 이름이 아닌 형태가 포함되어 있습니다.