Search results

figured out what u meant, found the On Open event for report, (didnt even kno u could code a report), now im trying to ascertain how to identify the open form, any help in this regard ?

i have a report that is called from one of two forms, this causes the criteria prompts from the unopened form to be displayed . i need to check which form is open and set parameters to solve my issue. how do i check/determine which form is open ??

"...out code on the open event of the report and check whether those forms are open and set the default parameter when their not. then you set the reports recordsource. " im not sure how to do this .... point me to an example or something to use as a guide please. im baffled becuz it worked...

nothing changed. i was away for 3 weeks and i returned and resumed working on my project. when i said it worked previously ... i meant that it worked without showing the prompts. i changed nothing. i even reverted to the working version i had sent my instructor. now its prompting me. Both...

i have a report that can be called from 2 forms. it requires two values from each form. it worked perfectly previously. now whenever i try to call a report, it the querry for the report is prompting for all the criteria values specified in the query. Previously, its just get the values from...

yeah ... thanks. fixed. so here is another issue. sometimes the sum will return nothing due to the fact that there may not yet be entires in the DRAWS table. if there is no summations then, totaldraws = rst!SumOfDrawAmt throws an error Run-time error '3012': No current record. is there a...

SELECT DRAWS.PartnerId, Sum(DRAWS.DrawAmount) AS SumOfDrawAmount FROM DRAWS WHERE DRAWS.PartnerId = 23 GROUP BY DRAWS.PartnerId ; this is what i get. arnelgp ive done all uve suggested. all works. cust is an integer value. the resultset is what is giving an issue: Set rst =...

Dim strSql As String Dim total As Double Dim cust As Long cust = Me.cboPartnerId.Value MsgBox cust 'strSql = "SELECT DRAWS.PartnerId, Sum(DRAWS.DrawAmount) AS SumOfDrawAmount FROM DRAWS GROUP BY DRAWS.PartnerId HAVING (((DRAWS.PartnerId)= " & cust & "));" strSql = "SELECT DRAWS.PartnerId...

hi. this query is giving me issues. i created it in Access query design n then copied it over to vba. does not work n i cant seem to figure out why. plz help strSql = "SELECT DRAWS.PartnerId, Sum(DRAWS.DrawAmount) AS SumOfDrawAmount FROM DRAWS GROUP BY DRAWS.PartnerId HAVING...

thanks all. ive been working on other aspects of my project hence my inactivity. now im back at this issue. will let u know how it goes

ok. i have a table called Partner which holds all info for a partner: partnerid, startdate, enddate, startamount etc. i have a table called payments which has three fields, partnerid, amount and paymentdate. i want to pull all information for partner as well as sumofamount, countofPartnerid...

qryPartnerSummaryB should look like qryPartnerSummaryA with all records in one row except with the additional field at the end which is supposed to return a figure for each record. notice in qryPartnerSummaryB i have multiple records with the same partnerID. i want one record per...

no sorry. i didnt. i went camping for a few days. now im back and im back where i left my issue

thanks. small correction tho, ur missing a parenthesis If Trim((Me.cboPartnerId.Column(16) & "")= "") Then Me.earlybtn.Enabled = True Me!DrawDate.BackColor = vbWhite Me!ActualBalance.BackColor = vbWhite Else Me.earlybtn.Enabled = False Me.ActualBalance.Value = owe Me!DrawDate.BackColor = vbRed...

im not using a datasheet form. my textboxes Me!DrawDate & Me!ActualBalance are unbound textboxes. not sure how to use what uve just told me

Dim lngRed As Long, lngYellow As Long, lngWhite As Long lngRed = RGB(255, 0, 0) lngBlack = RGB(0, 0, 0) lngYellow = RGB(255, 255, 0) lngWhite = RGB(255, 255, 255) If Me.cboPartnerId.Column(16) = "" Or IsNull(Me.cboPartnerId.Column(16)) Then Me.earlybtn.Enabled = True Else...

yup, thats it. thanks a mil

tried your suggestion of using : Dim draw As String draw = Me.cboPartnerId.Column(16) & "" Me.earlybtn.Enabled = (draw <> "") still not getting the desired result bro. if the draw date is null, then set draw button to enabled. if draw date is not null, then disable the draw button.

Dim draw As Date If IsNull(draw = Me.cboPartnerId.Column(16)) Then Me.earlybtn.Enabled = True Else Me.earlybtn.Enabled = False End If i have null date fields in my database because i opted to not write anything to them in my insert statements. now i want to check to see if these...

thanks guys. all suggestions were tried and all worked.