Search results

I have currently migrating my applications to Access 2007 ADODB from Access 2000. Most of what I have done now works. I am having a minor problem with one of my forms though. When I save the form, and close it using DoCmd.Close acForm, Me.Name, the code closes the access application. The...

I have currently migrating my applications to Access 2007 ADODB from Access 2000. Most of what I have done now works. I am having a minor problem with one of my forms though. When I save the form, and close it using , the code closes the access application. The following is the code that runs...

Thanks very much bytemyzer, I am very grateful for your help

Sorry, please ignore my previous post. Thanks very much it now works. Below is what I did.

Thanks ByteMyzer, but when I run this query (it is similar to the one I first tried), access requests a parameter value for tblSchoolYear.schoolYearId. Please see the attached image

Hello Please can somebody help me. I have two tables, tblPupil and tblFSM. I have created a new field in tblFSM called schoolYearID. The tblSchoolYear is a brand new table. The fields in tblFSM are fsmID, surname, forname, dateofbirth, schoolyearID. The fields in tblSchoolYear are...

Please can someone help me, because I am having the same problem when I run this code

Hello I am currently having the above error in my code. I have searched the forum, but there is nothing similar. When the system gets to the code in RED, the above error is displayed. Please can anybody help me. Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim rstBatch As...

Thanks Tom, it worked. I am new to VBA, I used to program in a completely different language.

Sorry I missed the first couple of lines '''loop through for each dining centre in table ' problem is, don't want to write two lines where the cost code are the same, so need to keep ' a track of what cost codes have been processed, and check each new one against list TableSize = 1 Dim...

I am currently have the subscrpt out of range error when I run the code below. The error occurs when the code in red is run. I could not seem to find a similar problem here. Please can anybody help me. Ade Do While Not rst.EOF For I = 1 To CountList If CodeList(I) =...

Thanks it worked

Hello I am currently running some code, but I get the above error when it gets to the following SQL statement SELECT [MEAL-SERVICE-PRICE], [MEAL-TYPE-CODE], [WEEK-ENDING-DATE], [WEEK-ACTUAL-NO], [MEAL-TYPE-NAME], [CLIENT_SCHOOL_MEALS-CC] FROM qrymealsales WHERE [MEAL-TYPE-CODE] = 'M001' AND...

Hello I am having the following problem with my code. When it gets to the bit highlighted in red, it gives the following message. Too few parameters, Expected 20 Private Sub create_journal1C() ' journal1 - free pupil meals Dim Count As Integer, client_school_cc As String, meal_price As Double...

Thanks very much. That worked.

I am currently migrating my Access Application from Access95 to Access2000. I am having problem with the following code. Sub journal_header(batch_no As Integer, journal_no As String, j_date As Variant, post_year As String) '2. put values into tbjournal_header Dim db As Database...

Thanks I have chenaged the data type for the ID to be long and taken the = me.ApplicantID (this was an oversight). However, I am still getting the message.

Hello Please can someone tell me what is wrong with this code. Dim intApplicant As Integer intApplicant = DLookup("[ApplicantID]", "tblMedicalClearance", "[ApplicantID] = " & Me.ApplicantID & " And [PostNumber] = " & Me.PostNumber) = Me.ApplicantID the bold code generates the...

Hello I am currently working on a recruitment system. As part of this system, i am using the mail merge functionality. What I have done is create a table that contains data used for the mail merge. This table has userID as one of the fields, so as to identify the user currently writing data to...

Update I have gone through the code again with a colleague and these are our findings. Below is the code Form_sbfPostApp.Requery Me.txtTotalRecs = Form_sbfPostApp.Recordset.RecordCount Me.cmdMultipleSearch.Enabled = False Me.cmdNoprint.Enabled = True...