Recent content by Steve2003

Your calendar was exactly what I was looking for and I had the same problem as you. I have managed to fix it by changing your code slightly. in your Displaymeetings I changed strApptDate = Left(strApptDate, intLen - intPos) to strApptDate = Left(strApptDate, 2) and then in your...

Your calendar was exactly what I was looking for and I had the same problem as you. I have managed to fix it by changing your code slightly. in your Displaymeetings I changed strApptDate = Left(strApptDate, intLen - intPos) to strApptDate =...

Ayyad, Sorry Richary if I am interferring but I use would use xlapp.ActiveWorkbook.Close savechanges:=false As for your first question I have the same problem. Steve

I have searched high and wide under field descritption but cannot find the answer so here we go...... Is there a way of populating a list box with the description text, it is the text you fill in next data type when you have a table in design view, decribing what the fields is for. Many thanks

Peter, Many thanks. Also finally sorted by removing the (frm as form) in the sub and placing Dim frmName As Form Set frmName = Forms(Application.Screen.ActiveForm.Name).Form within the module. Typical struggle for hours to fix it, post a question, try another way while you are waiting and...

To one and all, Thanks in advance for helping me. I have tried to lookup this answer, using error 13 and type mismatch, but to no avail and am sure it is easy but for the life of me cannot work it out. I have the following part of code in a module:- Sub CreateNewTableFromTextboxes(frm As...

The only way round this is in my experience is to bound the combo box. Hope this helps. Steve

I am having the same problem Butch just wondered if you found out or managed to solve this problem becasue I also cannot import the 'bcc' field but need to. Many thanks Steve

Okay sorry bit of a mis-understanding. Try..... Private Sub Command68_Click() On Error GoTo Err_Command68_Click Dim stDocName As String stDocName = "Label" DoCmd.PrintOut Copies:=Me.Colli, Pageto:=me.currentrecord ,Pagefrom:=me.currentrecord Exit_Command68_Click: Exit Sub...

set the howevermany to the field you want that contains how many copies you want. eg docmd.printout copies:=me.numberofcopies Hope this helps.

Not sure if this is what you want. Have you tried docmd.printout. Then adding how may copies you nedd by docmd.printout copies:= howevermany Steve

I have a report that is grouped according to Policy no.s In these groups are values. What I am trying to do within each group is show the percentage difference from the previous value to the next one. I have tried adding vb code to cycle throught he records but it cannot get passed the first...

Thank you dcx693 problem solved. I did not realise that long integer did not accept decimals. Thank you!!!:) :)

I am opening a recordset and then running the code below. This code runs fine apart from the fact that it is rounding up and figures that have decimal places. ie 2.6 becomes 3 in the table and cannot be changed back to 2.6. The only way is too set the properties of the table field to text which...

Meltdown, Thankyou for your reply. Unfortunately it does not seem to work. I am using Access 2000 so I selected that option but it is always printing to the default printer. The same problem as I had before. Although putting msgboxes in certain places to find out the string you are trying to...