Recent content by Sharkiness

Thanks for the solution it's working great horizontally. Is there any way to have the marquee scrolling vertically? Cheers

Ou should be able to do a docmd.close with an on timer event

Hi Nigel, Thankfully i got the answer from another forum but i thought i'd best share as it was quite easy. Open access without opening a database Press Alt+11 to open VBA Window Go back to Access Window and open the database Within the VBA window press Ctrl+G so the 'immediate' window is...

HI Guys, I have made a serious mistake. I used the code in this thread http://www.access-programmers.co.uk/forums/showthread.php?t=51479 To disable / enable shift key override. As explained I set the Bypasskeyon function on my database logo. Only I used the doubleclick function...

Worked a charm, Thanks Kiwiman

Hi Guys, I pinched some code from another thread but I thought I would start a new one as the other thread was quite old. For Each ctl In Me.Detail.Controls If ctl.ControlType = acTextBox Then If IsNull(ctl.Value) Then MsgBox "No information has been...

Hi All, It does seem to be working now with this code. Private Sub ListSearchresults() Dim strSQL As String Dim i As Integer Dim aSQL(8) As String Dim intCriteriaCount As Integer intCriteriaCount = 0 If Not IsNull(Forms![frmList2]![txtCustomerName]) Then aSQL(0) =...

Not sure that will work for me as I want to be able to search on one textbox value which would be fine, or a combination of any. So it could be Surname And Business Name Surname And Postcode Postcode And Business name. Not all fields have an entry though so if one of my fields are...

Afternoon Guys, I am a bit baffled at the moment. I am trying to create a search form that will provide the entries in my unbound textboxes as results in an unbound listbox. The textboxes I have are: txtCustomerForename - Text txtCustomerSurname - Text txtPostCode - Text txtAccountNumber...

Thanks Kiwiman, That works but has thrown up a new issue where I want the Customer ID to be populated if the value is null. I have tried placing before the rest of the code and again just before the DoCmd.RunSQL strSQL Add It doesnt seem to work at all which then throws an error when...

I tried that, but i get a compile error stating Block if without End If. If I put the END Sub after the END IF i get a compile error saying only comments maty appear after End Sub, End Function, or End Property. Very confused. Thanks for your quick replies up to now. Would you like me to...

Here it is: Dim strSQLAdd As String Dim strSQLchq As String strSQLAdd = "INSERT INTO tblCustomers(CustomerID, Title, Forename, MiddleName, Surname, DOB, NINO, Status_of_Compromise, UTR)" & _ "VALUES ('" & Me.txtCustomerID & "','" & Me.txtTitle & "','" & Me.txtForename & "','" &...

Thanks for that PBALDY, Now that I have this working. I want to make sure that if the surname is not complete that a message box will appear advising. I have got it working in as much that it will advise the box is not empty but it will go ahead and add the record anyway.

Hi, I am having a problem with a similar issue. I would like to search a customer table for forename and surname before adding to a table. The problem i have is regardless of whether there is an entry in the fields or if the forename and surname doesnt exist, I am getting the msgbox to say...

Hi, I am having a problem with a similar issue. I would like to search a customer table for forename and surname before adding to a table. The problem i have is regardless of whether there is an entry in the fields or if the forename and surname doesnt exist, I am getting the msgbox to say...