Search results

I have create a Form with two combo boxes in it to update a table... I have two fields both are combo boxes... the first combo box sets the high level value... the second is based on a query that filters from the high level value and re-queries the form... my problem is the second combo box...

rainman, thanks for your patience... I have used the last code you sent, but I get an error now at... expected list separator at ![form_field_to]"'"),0)<>0

rainman, I cannot see the difference :mad: here is mine: Code ............ if nz(DLookup("[Travel_placesID]", "[travel_places]",""[travelfrom]="'"& Forms![form_name]!form_field_from] &"'"AND [travelto]="'"& Forms![form_name]!form_field_to]"'"),0)<>0 then msgbox "A record Exists" ...

rainman, again thanks very much for this information, I still get an error: expected list separator at ' ",""[travelfrom]="'"& ' many thanks Paul

rainman, you are correct these are fields in a table... when I use this I get 2 errors one is ' = nz ' expected line number... and the other is a expected list separator at ' "'"&& ' regards - Paul

here is what I am trying to do... =DLookup("[tbl_Travel_from]", "Employees", "[EmployeeID] = " & _ Forms![FormName]![ctl_LastName]) so from the above I would like to check on the: tbl_Travel_from and tbl_Travel_to against ctl_Travel_from and ctl_Tarvel_to Regards - Paul

Ray, sorry I may not explain it correctly... I have a table with all the current places that people travel from to with a distance... When a user uses the application their can pick where their travel from and to and entered a date... this is saved to a table called "travel_date" I want to...

Ray, thanks for this... but I cannot see how it looks both fields up in the table... with what Criteria... =DLookup("[Travel_from]", "[travel_places]"," "[travelfrom]="'"&& Forms![form_name]![form_field_from] &"'" AND [travelto]="'"&& Forms![form_name]![form_field_to]"' I have looked at the...

I have not, but I will have a go... is this it... =DLookup("[Travel_from]", "[travel_places]","[travel_from]='" & Forms![form_name]![form_field_from] &Forms![form_name]![form_field_to "'") how do I get both fields to be checked? regards - PR

I would like to check that a record exists in a table when a user enters data into 2 fields on a form... it is travel database, it has a table called "travel_places" which has 3 fields called "travel_from", "travel_to" and "distance" on the from the user has 2 drop down combo boxes, the user...

Pat, this make sense and works well... again many thanks Regards - Paul

jal I have done it this way, because this is what was suggested... I would be intrested in what you mean by "I would use unbound forms and textboxes. I would try to do everything in code,. It's very rare that I can get the job done quicker using bound controls." Regards - Paul

Jal, sorry about this... I just quickly created a database to show what I was trying to do... I should off taken more care... You maybe right I may not be updating the correct record... Regards - Paul

Jal, I am missing something simple here I am sure... the record does not seem to update... have watch the code run and put watch points on the varibles... which gives me the signs that this should work... I have attached the db... Regards - Paul

Dear All, I thought I had this but the record does not update... have I done this correct? <<<<<Code>>>>> Private Sub AGA_BankSortCode_BeforeUpdate(Cancel As Integer) Dim db As Database Dim rstRecordset As Recordset Dim strFoundCount As Long Dim upFlag As Integer upFlag = -1 Set rstRecordset =...

Jal, You were absolutely right I had name a table incorrectly... thanks for the code your time and patience… Regards - Paul

Jal, Many thanks for this suggestion; I now get an error with this line highlighted: Stating runtime error 2001 – you cancelled previous operation? strFoundCount = DCount("*", "tblPersonnelDetails", "[AWSA_BankAccount No] = '" & Me.AGA_BankAccountNo & "' AND AWSA_BankSortCode = '" &...

Pat, have you had chance at looking at my code... Regards - Paul

I want to be able to create a table that contains all the database objects by name, created date and modify date... is there a way of doing this... or is there another way to achieve what I am trying to do... I have tried to use the following code my it does not pick up all objects or names...

sorry Pat, here is my code... but I may have over complicated it... >>>>>>>code start<<<<<<< Private Sub AGA_BankSortCode_AfterUpdate() Dim db As Database Dim rstRecordset As Recordset Dim strFoundCount As String Set rstRecordset = CurrentDb.OpenRecordset("tblPersonnelDetails") strFoundCount...