Search results

Hi Guys could someone advise me how to resolve an issue I have with the following please. I have a subform set as continueous. I have various controls of which two are cascading combo's. I have a case function on one of the controls to show the dose numbers used for a particular vaccine as...

thanks David ! :)

follow up to above post How would I multiply the answer by 2 so if the datedifference is 10 (days) + 9 we get 19 (days) but I need it to be multiplied by 2 (or anther number depending on the case? thanks for any replies

Thanks Byron (I could only of worked it out thatnks to your teachings !) I will reply to your email later today

I thinnk I may of worked it out ! If Me.cboProduct.Column(1) = "Malarone Tablet" Then Me.txtDurationOfStay = DateDiff("d", Me.txtStartDate, Me.txtEndDate) + 9 Me.txtTabletsReq = Me.txtDurationOfStay End If End Sub does anyone see any problems with this code? thanks

Hi guys could someone point me in the right direction please. I need to calculate the numbers of days between two dates based on a selection in a combo and also add extra days to it. e.g. the difference between 01-01-11 and 30-01-11 plus 9 What I have done so far is 'Case function to...

Hi John thanks for the reply as below If IsNull(Me.cboProductionEmployerName) = True Then Me.cboProductionEventTitleID.Enabled = False Beep Msgresponse = MsgBox("You have not entered a Production or Employer name." _ & vbCrLf & vbCrLf & "Do you have a Production or...

Hi Guys could someone tell me how (if it's possible that is) to disable a lostfocus event on a control in the notinlist event? I have 2 combos for simplicty cbo1 & cbo2. If the user tabs out of cbo1 leaving it empty the lostfocus event triggers - msgbox do you have name yes or no? if they...

thank you so much it is now finally working I coulsd not of done this without your help and guidance thank you again

Ahh this is where my lack of knowledge shows up soo much - I thought I had put it there but didn't actually know the difference - I really apprciate the help you and others give people like me !!

Yes it is I have just double checked it. Not sure if it makes a difference but the control is in a subform called VaccineConsumablesSubform ?

sorry me again now I getting the error 'Invalid use of Me.' Select Case Nz(Me.cboVaccineProductID.Column(1), vbNullString)

I really must open my eyes !! sorry ! will post back with the results - thanks again

Many Thanks VBA thats in pllace now but I am getting a complie error 'Arguments not optional' any ideas on this?

hopefully final question on this one where do I put the function on the controls in the form. I have tried the following but nothing is coming up this was put in the control sourse of txtExpiryDate =VacDate([txtDateGiven]) Where VacDate is the functions name many thanks

ooops - sorry I have just noticted it is a Public Function - not privae - sorry back to the drawing board !

VBA Firstly I think I understand about the Private Function - needed to return a calculation? But where do I put it? i.e Form Current / Load on on the txtDateGiven control ect.. Also the cboVaccineProductID control is sourced from a select query formatted with column count as 3, column width...

thanks all for the repllies - I think I will try both options to see what is easier for me. I think I understand what you mean John & David so will try that first but I'm not 100% sure I am firstly competentant enough to set this up and secondly the details I put in the original post were just...

Hi John - sorry I do not have a clue what you mean !! my access knowledge is very limited I only know what I know now thanks to guys like you !! could you explain please?

Hi all, the following is a request for some code please - I don't like asking striaght out for code but what I need it for is critical to a person's medical records and I don't want to mess it up and to be honest I don't have a clue where to start! I have a Subform set as Continuous which...