Dear Duane,
After running, I got the error as following;
Run-time error '3075':
Syntax error (missing operator) in query expression 'Checked=TrueAND OfficeLocatonID=1AND CostType=17AND GroupID=5'.
Please help.
Best Regards,
Kevin
--------------------------------------------
On Tue, 1/29/19, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
Subject: Re: [MS_AccessPros] Debug.Print does not work
To: "MS_Access_Professionals@yahoogroups.com" <MS_Access_Professionals@yahoogroups.com>
Date: Tuesday, January 29, 2019, 12:31 PM
Also remove your error handling that does nothing to help
you find problems..
From:
MS_Access_Professionals@yahoogroups.com
<MS_Access_Professionals@yahoogroups.com> on behalf of
qingqinga@yahoo.com [MS_Access_Professionals]
<MS_Access_Professionals@yahoogroups.com>
Sent: Monday, January 28, 2019 10:27 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Debug.Print does not
work
Dear
Duane,
After running the code, debug.print didn't print
anything. And I don't know how to set a break point.
Please help.
Best Regards,
Kevin
--------------------------------------------
On Tue, 1/29/19, Duane Hookom duanehookom@hotmail.com
[MS_Access_Professionals]
<MS_Access_Professionals@yahoogroups.com> wrote:
Subject: Re: [MS_AccessPros] Debug.Print does not work
To: "ms_access_professionals@yahoogroups.com"
<ms_access_professionals@yahoogroups.com>
Date: Tuesday, January 29, 2019, 12:10 PM
Does the code compile? Have
you set a break point and stepped through the lines of
code?
Duane
Get Outlook for iOS
From:
ms_access_professionals@yahoogroups.com on behalf of
qingqinga@yahoo.com [MS_Access_Professionals]
<ms_access_professionals@yahoogroups.com>
Sent: Monday, January 28, 2019 9:47 PM
To: ms_access_professionals@yahoogroups.com
Subject: [MS_AccessPros] Debug.Print does not work
Dear All,
Debug does not work this this code. Please help:
Private Sub Form_BeforeUpdate(Cancel As Integer)
On Error GoTo ErrHandle
Me.RecordDate = Date
Me.TransactionEmployeeID = Forms!frmWelcome!EmployeeID
Dim strSQL As String
Dim strContractCurrency As String
Dim strFinalCurrency As String
Dim strContractTotalAmount As Long '地接合同款
Dim strContractTotalAmountReceived As Long
'地接团款已收
Dim strContractTotalAmountReceivedTXT As String
Dim strContractTotalAmountNotReceived
'地接团款未收
Dim strContractTotalAmountNotReceivedTXT As String
Dim strContractTotalAmountReceivedPercent As Long
'收到百分比
Dim strContractTotalAmountNotReceivedPercent As Long
'未收到百分比
Dim strAirTicketInsuranceVisaTotal As Long
'机保签款
Dim strTotalAirVisaInsuranceReceived As Long
'机保签已收
Dim strTotalAirVisaInsuranceReceivedTXT As String
Dim strTotalAirVisaInsuranceNotReceived As Long
'机保签未收
Dim strTotalAirVisaInsuranceNotReceivedTXT As String
Dim strTotalAirVisaInsuranceReceivedPercent As Long
'收到百分比
Dim strTotalAirVisaInsuranceNotReceivedPercent As Long
'未收到百分比
strContractCurrency =
ELookup("ContractCurrency",
"tblGroup", "GroupID=" &
Nz(Me.GroupID, 0))
strFinalCurrency = ELookup("FinalCurrency",
"tblGroup", "GroupID=" &
Nz(Me.GroupID, 0))
strContractTotalAmount =
ELookup("ContractTotalAmount",
"tblGroup", "GroupID=" &
Nz(Me.GroupID, 0))
strAirTicketInsuranceVisaTotal =
ELookup("AirTicketInsuranceVisaTotal",
"tblGroup", "GroupID=" &
Nz(Me.GroupID, 0))
strContractTotalAmountReceived =
Nz(DSum("AmountContract",
"qryTransactionTotalCalc",
"Checked="
& True & "AND OfficeLocationID=" &
1
& "AND CostTypeID=" & 17 &
"AND
GroupID=" & Nz(Me.GroupID, 0)), 0)
strContractTotalAmountReceivedTXT = strContractCurrency
& " " &
strContractTotalAmountReceived
strContractTotalAmountNotReceived = strContractTotalAmount
-
strContractTotalAmountReceived
strContractTotalAmountNotReceivedTXT =
strContractCurrency
& " " &
strContractTotalAmountNotReceived
strContractTotalAmountReceivedPercent =
IIf(strContractTotalAmount = 0, "",
strContractTotalAmountReceived /
strContractTotalAmount)
strContractTotalAmountNotReceivedPercent =
IIf(strContractTotalAmount = 0, "",
strContractTotalAmountNotReceived /
strContractTotalAmount)
strTotalAirVisaInsuranceReceived =
Nz(DSum("AmountFinal",
"qryTransactionTotalCalc",
"Checked="
& True & "AND OfficeLocationID=" &
1
& "AND CostTypeID=" & 21 &
"AND
GroupID=" & Nz(Me.GroupID, 0)), 0)
strTotalAirVisaInsuranceReceivedTXT = strFinalCurrency
&
" " & strTotalAirVisaInsuranceReceived
strTotalAirVisaInsuranceNotReceived =
strAirTicketInsuranceVisaTotal -
strTotalAirVisaInsuranceReceived
strTotalAirVisaInsuranceNotReceivedTXT =
strFinalCurrency
& " " &
strTotalAirVisaInsuranceNotReceived
strTotalAirVisaInsuranceReceivedPercent =
IIf(strAirTicketInsuranceVisaTotal = 0, "",
strTotalAirVisaInsuranceReceived /
strAirTicketInsuranceVisaTotal)
strTotalAirVisaInsuranceNotReceivedPercent =
IIf(strAirTicketInsuranceVisaTotal = 0, "",
strTotalAirVisaInsuranceNotReceived /
strAirTicketInsuranceVisaTotal)
strSQL = "UPDATE tblGroup " & _
"SET [ContractTotalAmountReceived] = " &
strContractTotalAmountReceived & ", " &
_
"SET [ContractTotalAmountReceivedTXT] = '
"
& strContractTotalAmountReceivedTXT & "
',
" & _
"SET [ContractTotalAmountNotReceived] = "
&
strContractTotalAmountNotReceived & ", "
&
_
"SET [ContractTotalAmountNotReceivedTXT] = '
"
& strContractTotalAmountNotReceivedTXT & "
', " & _
"SET [ContractTotalAmountReceivedPercent] = "
& strContractTotalAmountReceivedPercent &
",
" & _
"SET [ContractTotalAmountNotReceivedPercent] =
"
& strContractTotalAmountNotReceivedPercent &
",
" & _
"SET [TotalAirVisaInsuranceReceived] = "
&
strTotalAirVisaInsuranceReceived & ", "
&
_
"SET [TotalAirVisaInsuranceReceivedTXT] = '
"
& strTotalAirVisaInsuranceReceivedTXT & "
', " & _
"SET [TotalAirVisaInsuranceNotReceived] = "
&
strTotalAirVisaInsuranceNotReceived & ",
"
& _
"SET [TotalAirVisaInsuranceNotReceivedTXT] = '
" & strTotalAirVisaInsuranceNotReceivedTXT
&
" ', " & _
"SET [TotalAirVisaInsuranceReceivedPercent] =
"
& strTotalAirVisaInsuranceReceivedPercent &
",
" & _
"SET [TotalAirVisaInsuranceNotReceivedPercent] =
"
& strTotalAirVisaInsuranceNotReceivedPercent &
_
" WHERE GroupID = " & Me.GroupID
Debug.Print strSQL
CurrentDb.Execute strSQL, dbFailOnError
ErrExit:
Exit Sub
ErrHandle:
Resume ErrExit
End Sub
Thanks in advance,
Best Regards,
Kevin
------------------------------------
Posted by: <zhao.liqing@yahoo.com>
------------------------------------
------------------------------------
Yahoo Groups Links
http://groups.yahoo.com/group/MS_Access_Professionals/
Individual Email | Traditional
http://groups.yahoo.com/group/MS_Access_Professionals/join
(Yahoo! ID required)
MS_Access_Professionals-digest@yahoogroups.com
MS_Access_Professionals-fullfeatured@yahoogroups.com
MS_Access_Professionals-unsubscribe@yahoogroups.com
https://info.yahoo.com/legal/us/yahoo/utos/terms/
#yiv1931897865 #yiv1931897865 --
#yiv1931897865ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}
#yiv1931897865 #yiv1931897865ygrp-mkp hr {
border:1px solid #d8d8d8;}
#yiv1931897865 #yiv1931897865ygrp-mkp #yiv1931897865hd
{
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}
#yiv1931897865 #yiv1931897865ygrp-mkp #yiv1931897865ads
{
margin-bottom:10px;}
#yiv1931897865 #yiv1931897865ygrp-mkp .yiv1931897865ad
{
padding:0 0;}
#yiv1931897865 #yiv1931897865ygrp-mkp .yiv1931897865ad p
{
margin:0;}
#yiv1931897865 #yiv1931897865ygrp-mkp .yiv1931897865ad a
{
color:#0000ff;text-decoration:none;}
#yiv1931897865 #yiv1931897865ygrp-sponsor
#yiv1931897865ygrp-lc {
font-family:Arial;}
#yiv1931897865 #yiv1931897865ygrp-sponsor
#yiv1931897865ygrp-lc #yiv1931897865hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}
#yiv1931897865 #yiv1931897865ygrp-sponsor
#yiv1931897865ygrp-lc .yiv1931897865ad {
margin-bottom:10px;padding:0 0;}
#yiv1931897865 #yiv1931897865actions {
font-family:Verdana;font-size:11px;padding:10px 0;}
#yiv1931897865 #yiv1931897865activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}
#yiv1931897865 #yiv1931897865activity span {
font-weight:700;}
#yiv1931897865 #yiv1931897865activity span:first-child
{
text-transform:uppercase;}
#yiv1931897865 #yiv1931897865activity span a {
color:#5085b6;text-decoration:none;}
#yiv1931897865 #yiv1931897865activity span span {
color:#ff7900;}
#yiv1931897865 #yiv1931897865activity span
.yiv1931897865underline {
text-decoration:underline;}
#yiv1931897865 .yiv1931897865attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}
#yiv1931897865 .yiv1931897865attach div a {
text-decoration:none;}
#yiv1931897865 .yiv1931897865attach img {
border:none;padding-right:5px;}
#yiv1931897865 .yiv1931897865attach label {
display:block;margin-bottom:5px;}
#yiv1931897865 .yiv1931897865attach label a {
text-decoration:none;}
#yiv1931897865 blockquote {
margin:0 0 0 4px;}
#yiv1931897865 .yiv1931897865bold {
font-family:Arial;font-size:13px;font-weight:700;}
#yiv1931897865 .yiv1931897865bold a {
text-decoration:none;}
#yiv1931897865 dd.yiv1931897865last p a {
font-family:Verdana;font-weight:700;}
#yiv1931897865 dd.yiv1931897865last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}
#yiv1931897865 dd.yiv1931897865last p
span.yiv1931897865yshortcuts {
margin-right:0;}
#yiv1931897865 div.yiv1931897865attach-table div div a
{
text-decoration:none;}
#yiv1931897865 div.yiv1931897865attach-table {
width:400px;}
#yiv1931897865 div.yiv1931897865file-title a,
#yiv1931897865
div.yiv1931897865file-title a:active, #yiv1931897865
div.yiv1931897865file-title a:hover, #yiv1931897865
div.yiv1931897865file-title a:visited {
text-decoration:none;}
#yiv1931897865 div.yiv1931897865photo-title a,
#yiv1931897865 div.yiv1931897865photo-title a:active,
#yiv1931897865 div.yiv1931897865photo-title a:hover,
#yiv1931897865 div.yiv1931897865photo-title a:visited {
text-decoration:none;}
#yiv1931897865 div#yiv1931897865ygrp-mlmsg
#yiv1931897865ygrp-msg p a span.yiv1931897865yshortcuts
{
font-family:Verdana;font-size:10px;font-weight:normal;}
#yiv1931897865 .yiv1931897865green {
color:#628c2a;}
#yiv1931897865 .yiv1931897865MsoNormal {
margin:0 0 0 0;}
#yiv1931897865 o {
font-size:0;}
#yiv1931897865 #yiv1931897865photos div {
float:left;width:72px;}
#yiv1931897865 #yiv1931897865photos div div {
border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}
#yiv1931897865 #yiv1931897865photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}
#yiv1931897865 #yiv1931897865reco-category {
font-size:77%;}
#yiv1931897865 #yiv1931897865reco-desc {
font-size:77%;}
#yiv1931897865 .yiv1931897865replbq {
margin:4px;}
#yiv1931897865 #yiv1931897865ygrp-actbar div a:first-child
{
margin-right:2px;padding-right:5px;}
#yiv1931897865 #yiv1931897865ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}
#yiv1931897865 #yiv1931897865ygrp-mlmsg table {
font-size:inherit;font:100%;}
#yiv1931897865 #yiv1931897865ygrp-mlmsg select,
#yiv1931897865 input, #yiv1931897865 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv1931897865 #yiv1931897865ygrp-mlmsg pre,
#yiv1931897865
code {
font:115% monospace;}
#yiv1931897865 #yiv1931897865ygrp-mlmsg * {
line-height:1.22em;}
#yiv1931897865 #yiv1931897865ygrp-mlmsg #yiv1931897865logo
{
padding-bottom:10px;}
#yiv1931897865 #yiv1931897865ygrp-msg p a {
font-family:Verdana;}
#yiv1931897865 #yiv1931897865ygrp-msg
p#yiv1931897865attach-count span {
color:#1E66AE;font-weight:700;}
#yiv1931897865 #yiv1931897865ygrp-reco
#yiv1931897865reco-head {
color:#ff7900;font-weight:700;}
#yiv1931897865 #yiv1931897865ygrp-reco {
margin-bottom:20px;padding:0px;}
#yiv1931897865 #yiv1931897865ygrp-sponsor
#yiv1931897865ov
li a {
font-size:130%;text-decoration:none;}
#yiv1931897865 #yiv1931897865ygrp-sponsor
#yiv1931897865ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}
#yiv1931897865 #yiv1931897865ygrp-sponsor
#yiv1931897865ov
ul {
margin:0;padding:0 0 0 8px;}
#yiv1931897865 #yiv1931897865ygrp-text {
font-family:Georgia;}
#yiv1931897865 #yiv1931897865ygrp-text p {
margin:0 0 1em 0;}
#yiv1931897865 #yiv1931897865ygrp-text tt {
font-size:120%;}
#yiv1931897865 #yiv1931897865ygrp-vital ul li:last-child
{
border-right:none !important;
}
#yiv1931897865
------------------------------------
Posted by: <zhao.liqing@yahoo.com>
------------------------------------
------------------------------------
Yahoo Groups Links
http://groups.yahoo.com/group/MS_Access_Professionals/
Individual Email | Traditional
http://groups.yahoo.com/group/MS_Access_Professionals/join
(Yahoo! ID required)
MS_Access_Professionals-digest@yahoogroups.com
MS_Access_Professionals-fullfeatured@yahoogroups.com
MS_Access_Professionals-unsubscribe@yahoogroups.com
https://info.yahoo.com/legal/us/yahoo/utos/terms/
#yiv7328330493 #yiv7328330493 --
#yiv7328330493ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}
#yiv7328330493 #yiv7328330493ygrp-mkp hr {
border:1px solid #d8d8d8;}
#yiv7328330493 #yiv7328330493ygrp-mkp #yiv7328330493hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}
#yiv7328330493 #yiv7328330493ygrp-mkp #yiv7328330493ads {
margin-bottom:10px;}
#yiv7328330493 #yiv7328330493ygrp-mkp .yiv7328330493ad {
padding:0 0;}
#yiv7328330493 #yiv7328330493ygrp-mkp .yiv7328330493ad p {
margin:0;}
#yiv7328330493 #yiv7328330493ygrp-mkp .yiv7328330493ad a {
color:#0000ff;text-decoration:none;}
#yiv7328330493 #yiv7328330493ygrp-sponsor
#yiv7328330493ygrp-lc {
font-family:Arial;}
#yiv7328330493 #yiv7328330493ygrp-sponsor
#yiv7328330493ygrp-lc #yiv7328330493hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}
#yiv7328330493 #yiv7328330493ygrp-sponsor
#yiv7328330493ygrp-lc .yiv7328330493ad {
margin-bottom:10px;padding:0 0;}
#yiv7328330493 #yiv7328330493actions {
font-family:Verdana;font-size:11px;padding:10px 0;}
#yiv7328330493 #yiv7328330493activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}
#yiv7328330493 #yiv7328330493activity span {
font-weight:700;}
#yiv7328330493 #yiv7328330493activity span:first-child {
text-transform:uppercase;}
#yiv7328330493 #yiv7328330493activity span a {
color:#5085b6;text-decoration:none;}
#yiv7328330493 #yiv7328330493activity span span {
color:#ff7900;}
#yiv7328330493 #yiv7328330493activity span
.yiv7328330493underline {
text-decoration:underline;}
#yiv7328330493 .yiv7328330493attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}
#yiv7328330493 .yiv7328330493attach div a {
text-decoration:none;}
#yiv7328330493 .yiv7328330493attach img {
border:none;padding-right:5px;}
#yiv7328330493 .yiv7328330493attach label {
display:block;margin-bottom:5px;}
#yiv7328330493 .yiv7328330493attach label a {
text-decoration:none;}
#yiv7328330493 blockquote {
margin:0 0 0 4px;}
#yiv7328330493 .yiv7328330493bold {
font-family:Arial;font-size:13px;font-weight:700;}
#yiv7328330493 .yiv7328330493bold a {
text-decoration:none;}
#yiv7328330493 dd.yiv7328330493last p a {
font-family:Verdana;font-weight:700;}
#yiv7328330493 dd.yiv7328330493last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}
#yiv7328330493 dd.yiv7328330493last p
span.yiv7328330493yshortcuts {
margin-right:0;}
#yiv7328330493 div.yiv7328330493attach-table div div a {
text-decoration:none;}
#yiv7328330493 div.yiv7328330493attach-table {
width:400px;}
#yiv7328330493 div.yiv7328330493file-title a, #yiv7328330493
div.yiv7328330493file-title a:active, #yiv7328330493
div.yiv7328330493file-title a:hover, #yiv7328330493
div.yiv7328330493file-title a:visited {
text-decoration:none;}
#yiv7328330493 div.yiv7328330493photo-title a,
#yiv7328330493 div.yiv7328330493photo-title a:active,
#yiv7328330493 div.yiv7328330493photo-title a:hover,
#yiv7328330493 div.yiv7328330493photo-title a:visited {
text-decoration:none;}
#yiv7328330493 div#yiv7328330493ygrp-mlmsg
#yiv7328330493ygrp-msg p a span.yiv7328330493yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}
#yiv7328330493 .yiv7328330493green {
color:#628c2a;}
#yiv7328330493 .yiv7328330493MsoNormal {
margin:0 0 0 0;}
#yiv7328330493 o {
font-size:0;}
#yiv7328330493 #yiv7328330493photos div {
float:left;width:72px;}
#yiv7328330493 #yiv7328330493photos div div {
border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}
#yiv7328330493 #yiv7328330493photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}
#yiv7328330493 #yiv7328330493reco-category {
font-size:77%;}
#yiv7328330493 #yiv7328330493reco-desc {
font-size:77%;}
#yiv7328330493 .yiv7328330493replbq {
margin:4px;}
#yiv7328330493 #yiv7328330493ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}
#yiv7328330493 #yiv7328330493ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}
#yiv7328330493 #yiv7328330493ygrp-mlmsg table {
font-size:inherit;font:100%;}
#yiv7328330493 #yiv7328330493ygrp-mlmsg select,
#yiv7328330493 input, #yiv7328330493 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}
#yiv7328330493 #yiv7328330493ygrp-mlmsg pre, #yiv7328330493
code {
font:115% monospace;}
#yiv7328330493 #yiv7328330493ygrp-mlmsg * {
line-height:1.22em;}
#yiv7328330493 #yiv7328330493ygrp-mlmsg #yiv7328330493logo {
padding-bottom:10px;}
#yiv7328330493 #yiv7328330493ygrp-msg p a {
font-family:Verdana;}
#yiv7328330493 #yiv7328330493ygrp-msg
p#yiv7328330493attach-count span {
color:#1E66AE;font-weight:700;}
#yiv7328330493 #yiv7328330493ygrp-reco
#yiv7328330493reco-head {
color:#ff7900;font-weight:700;}
#yiv7328330493 #yiv7328330493ygrp-reco {
margin-bottom:20px;padding:0px;}
#yiv7328330493 #yiv7328330493ygrp-sponsor #yiv7328330493ov
li a {
font-size:130%;text-decoration:none;}
#yiv7328330493 #yiv7328330493ygrp-sponsor #yiv7328330493ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}
#yiv7328330493 #yiv7328330493ygrp-sponsor #yiv7328330493ov
ul {
margin:0;padding:0 0 0 8px;}
#yiv7328330493 #yiv7328330493ygrp-text {
font-family:Georgia;}
#yiv7328330493 #yiv7328330493ygrp-text p {
margin:0 0 1em 0;}
#yiv7328330493 #yiv7328330493ygrp-text tt {
font-size:120%;}
#yiv7328330493 #yiv7328330493ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv7328330493
Posted by: <zhao.liqing@yahoo.com>
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (9) |
Tidak ada komentar:
Posting Komentar