谢谢您的回答。
这里是我从前列表格中得出的数据。 最后一个图像站以jpg格式显示,但当我们点击链接来源时,数据并不开放。
档案http:///E:/Tutorial%20Software/Geodatabase/Database%20Desain/GSN_SURVEY.html
我希望你能够打开上述联系。
I explain again the purpose of my formula. The data is originate from drilling activity coordinate with Total Station and GPS tools. There are several distance between coordinate hole, i call my data spasi in table field. The values of spasi like 25 meter, 50 meter, 100 meter and 200 meter with the error dictance tolerance are 10% for each spasi.
核对表、核对表、核对表、核对表X和核对表系统显示,在计划和协调方面有差异X和Y,从总站和全球定位系统工具衡量。 差异4领域的结果与错误的远程容忍的价值观不相同。
为此原因,我要检查公式。 我试图以表格方式在问询和 vba法典中使用“f”公式。 我希望能用两种方式。
缩略语:
Private Sub txtcheck_Click()
Dim CheckSurveyXTS As Integer
Dim CheckSurveyYTS As Integer
Dim CheckSurveyXGPS As Integer
Dim CheckSurveyYGPS As Integer
Dim SpasiBor As Integer
SpasiBor = Me!txtDrillSpacing
CheckSurveyXTS = Me!txtXCollar - Me!XPlan
CheckSurveyYTS = Me!txtYCollar - Me!YPlan
CheckSurveyXGPS = Me!XPostdrillGPS - Me!XPlan
CheckSurveyYGPS = Me!YPostdrillGPS - Me!YPlan
If SpasiBor = 25 And CheckSurveyXTS <= 2.5 Or CheckSurveyYTS <= 2.5 And CheckSurveyXGPS <= 2.5 Or CheckSurveyYGPS <= 2.5 And SpasiBor = 50 And CheckSurveyXTS <= 5 Or CheckSurveyYTS <= 5 And CheckSurveyXGPS <= 5 Or CheckSurveyYGPS <= 5 And SpasiBor = 100 And CheckSurveyXTS <= 10 Or CheckSurveyYTS <= 10 And CheckSurveyXGPS <= 10 Or CheckSurveyYGPS <= 10 And SpasiBor = 200 And CheckSurveyXTS <= 20 Or CheckSurveyYTS <= 20 And CheckSurveyXGPS <= 20 Or CheckSurveyYGPS <= 20 Then
do this
MsgBox ("Correct Collar")
ElseIf SpasiBor = 25 And CheckSurveyXTS > 2.5 Or CheckSurveyYTS > 2.5 And CheckSurveyXGPS <= 2.5 Or CheckSurveyYGPS <= 2.5 And SpasiBor = 50 And CheckSurveyXTS > 5 Or CheckSurveyYTS > 5 And CheckSurveyXGPS <= 5 Or CheckSurveyYGPS <= 5 And SpasiBor = 100 And CheckSurveyXTS > 10 Or CheckSurveyYTS > 10 And CheckSurveyXGPS <= 10 Or CheckSurveyYGPS <= 10 And SpasiBor = 200 And CheckSurveyXTS > 20 Or CheckSurveyYTS > 20 And CheckSurveyXGPS <= 20 Or CheckSurveyYGPS <= 20 Then
do this
MsgBox ("Please Check Collar TS")
ElseIf SpasiBor = 25 And CheckSurveyXTS <= 2.5 Or CheckSurveyYTS <= 2.5 And CheckSurveyXGPS > 2.5 Or CheckSurveyYGPS > 2.5 And SpasiBor = 50 And CheckSurveyXTS <= 5 Or CheckSurveyYTS <= 5 And CheckSurveyXGPS > 5 Or CheckSurveyYGPS > 5 And SpasiBor = 100 And CheckSurveyXTS > 10 Or CheckSurveyYTS > 10 And CheckSurveyXGPS <= 10 Or CheckSurveyYGPS <= 10 And SpasiBor = 200 And CheckSurveyXTS <= 20 Or CheckSurveyYTS <= 20 And CheckSurveyXGPS <= 20 Or CheckSurveyYGPS <= 20 Then
do this
MsgBox ("Please Check Collar GPS")
Else
do this
MsgBox ("Incorrect Collar")
End If
结尾处
如果你想要帮助我解决这一问题,我真心高兴。
谢谢。