Recent content by JSDART

still cant get it to work Thanks for the response I have been trying to gety this to work but no luck. I placed Meds = Me.OpenArgs on the load event of the Medication form but it still opens blank. whatr am I missing? Thanks for your help J

Hi I am successfully using the following code for the Not In List Private Sub Meds_NotInList(NewData As String, Response As Integer) 'Add a new Medication by typing a name in the Meds box Dim intNewMeds As Integer, strTitle As String, intMsgDialog As Integer 'Display message box asking if...

Thannks Thanks DCX693 I was able to attach that code to the exit of the code number and it poputated the unbound perfectly thanks again J

I've done this before but it is escaping me now any help would be appreciated. I have a combo Box that looks up activity code and activity desc it then saves the code on the form. What I want to do is then have an unbound field on the form that displays the description so the users sees both...

Print report on 1 record Lister Thanks you so much . Needed this fix, searched the forum and you are aces. worked like a charm J

Thank you Thanks I was experiencing the same problem and your solution was aces. J

Thanks I thought I might be. After some more tries I can get the database to open but it is empty. Not sure if it is safe to re key in all the info of if there is something inherently wrong. Do you knoe of any diagnostics to be sure it is safe to add the data back in? Thanks

Thanks I tried both the shift and the Jetcomp program but get the same result. Any other Ideas?

Need help. I have a database that I keep stats in for a league. It has multiple forms, subforms, reports in it. It starts with a timed splash screen that then opens to the switchboard. Last night after entering the data and running the reports there was an error and the database closed. I was...

Hi I have searched and have not found and answer. I have a loan database and need to calculate a Due date for return. The catch is that each item has a max days out number that the date is calculated on. I have tried an unbound text box on the form with the following in it's control =[loan...

I got it to work!!!! I limited the Allow Addition to NO then added Code to the on open event With CodeContextObject If (.RecordsetClone.RecordCount = 0) Then DoCmd.Close MsgBox "There are No Records that Match entered Criteria", vbOKonly, "No Records" DoCmd.OpenForm "frm-initial client" End If...

Thanks I tried that. It does force them to use my command button, and my parameter runs ok for if they use the last name But if they use 1st initial or there is more then 1 person with the same last name they can not tell that or go to the proper record. I guess I have to choose the least...

HI I have a form that begins with a parameter Q thast asks for last name or 1st initial if you just enter with nothing it gives you all the records. When you enter D and there are no Ds yo9u get a blank record and I have a command button that takes you to add a new record. The issue is that I...

I guess I do not need excel open. I am trying to run a qry of the numbers of assessments in the month. that number gets pluged into a cell in the excel spreadsheet for that month and the spread sheet calculates the YTD totals. What VBA would I use to complete this task?

Looking for some direction. I have a form with a command button that opens a particular excel spreadsheet. the form runs a count of records between a start and stop date. this number then needs to be entered into this excel spreadsheet. the way it operated now it opens excel and takes the user...