Search results

When you double click on the attachment control and choose Add from the box that pops up in my case my default file location is shown as Libraries > Documents with a list of files in that folder. I don't want this to be the default path I want something else. ---------- Neil

The title says it all. ---------- Neil

I didn't find the answer there so I changed tact. I've decided to add some separate buttons to do all the things that I wanted to do with one button. I've now got a strange error message when I try to enter data in the new record on the subform. As soon as I start to type anything in the...

Just the job, for some reason needed to use forms!message.caption = " " forms!message.Repaint works fine. Thanks everyone for your help, again. --------- Neil

I guess I want my cake and eat it. Thin keeps the title and none obviously removes the border but just makes it, in my opinion, a plain and somewhat ugly box. I'm just wondering whether the title can be temporarily removed and restored in code.

Hi, I have a form called Certificates with a subform on it called subClient. The subform is located on a tab control on the first tab. I have added a button below the subform to add a new record to it I'm using: Dim stDocName As String stDocName = "Forms![certificates]![subClient]"...

I've already done both of those, the only thing I'm left wondering is how to stop the title showing in the pop up form. ---------- Neil

Can anybody suugest a way of displaying an on screen message while something is being done in the background. ---------- Neil

I know it's not quite what you suggested but I came up with this. Option Compare Database Dim retz As Integer Sub subChecktxt(fieldname) Dim mmsg As String retz = 0 mmsg = Chr(13) & "Is invalid." mmsg = mmsg & Chr(13) & "It can not contain ' and " mmsg = mmsg & Chr(34) mmsg = mmsg & " in...

I'm going to have a go, wish me luck !!!! ---------- Neil

I just had a thought. I'd like to use this over and over again on different fields. Would I be right in saying that it could be written as a Public Function or Public Sub that can be called by passing the field name to it. If so can you guide me to where I can find out how to do it...

Got it, done it, works just fine. Thanks for your help. ---------- Neil

So I delete; If stpos <> 0 And stpos1 <> 0 Then xx = MsgBox(Me.FName & mmsg, vbCritical) Me.FName.SetFocus End If and replace those lines with Cancel = True ? ---------- Neil

I don't understand this bit. ---------- Neil

Hi, I have this code to validate input into a field. the problem is that the focus is not reset back to the field if there is a problem, it goes to the next field. Private Sub FName_LostFocus() mmsg = " is invalid. It can not contain ' and " mmsg = mmsg & Chr(34) mmsg = mmsg & " in the...

I found that the addition of Chr(34) will work as long as the field value is not empty or has a " in it. The code below will work if the field is empty, has a ' or a " in it. It will also work if there are more than one ' or " in the data. It will NOT work if the data contains any...

Galaxiom, I tried the list box but it doesn't work for what I want to do. Due to this problem and some inherent problems with sub reports I've decided to tackle it another way. Thanks again. ---------- Neil

Thanks for the quick reply. Due to other inherent problems with sub reports and this problem I've decided to go a different way. ---------- Neil

Pete, Thanks for that, works a treat. ---------- Neil

I have the following SQL statement under development. Dim ssql As String ssql = "INSERT INTO tblFC (CertNum, Work, Pipework, EMCV, Tightness, Bonding, DDate, NumAppl," ssql = ssql & "ClientID, FName, Add1, Add2, Add3, City, County, Post, Email, TelHome, TelMob," ssql = ssql & "TelOther) "...