Search results

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...

Option Compare Database Option Explicit Public txtScrollStatus As String Private Sub Form_Open(Cancel As Integer) On Error GoTo Err_Form_Open Dim MyDb As Database Dim sMessage As String Dim sMessages As String Dim rMessage As Recordset Set MyDb = CurrentDb()...

Thanks for this. I have used it in my database based on a field in a particular table with many fields. I get one problem where an error message occurs if there is no data in this field. Is there a way to insert into the code something that will change the scrolling text to 'No Message to...

Morning All, I have having a little difficulty here. I have a user form where users will add a number of accounts for one person. Each person has a unique ID. What I want is when each account for this person is added to the form for some type of autonumber but for the autonumber to restart...

Hi all who wish to help, I have created a database that contains five different tables. Each linking to a main table through an ID. The database opens asking for an ID. When ID is input and the relevant command button is clicked a form opens spplying details for this individual as well as...

Hey Mate, Can you still offer some help on this. I am working on a new form. I have three sections where the form can be open based on certain criteria. The first search can be a search on ID. The second search can be on Surname and Postcode. Up to now these two searches work. The...