Recent content by Xenocide

Hi I'm having an error in this string Depense2 = DLookup("Sum(Depense)", "[C:\Documents and Settings\schiasson\Bureau\bd2].[" & Me!lst3.Column(0) & "]", "Maitre= IdEngagementA AND IdEngagementA <> '01-000000-BU'") The error is being cause by this part "[C:\Documents and...

Thanks PHV it helped

thanks a lot is there a way to do the same but in a Query instead of a onthefly one

Hi I wanna insert that in my table strSQL4 = "INSERT INTO Date850([Date], [IdEngagementA], [Depense]) " & _ "VALUES ('X','" & lst2.Value & "','" & txt2.Value & "') ;" The first value, X, is suppose to be the date of the day. Is there a way to get the date on the computer and insert it...

thanks TheAceMan1 it helped a lot

Thanks it helped But when I try to reset the focus on my previous control a error pop-up. Say something like : can't activate lst4 control here's my code lst1.SetFocus lst1.ListIndex = lst4.ListIndex lst4.SetFocus

Hi I would like that when for exemple I pick the first row in a listbox, the first row in a second listbox is also selected Thanks

How can I include a graph in an Access Form. The graph would be using a table in my databse for his data Thanks

Hi I'm doing this Total1 = DLookup("MontantActuel", "Table850", "IdEngagementA='" & lst1.Value & "' ") Total2 = DLookup("Sum(MontantActuel)", "Table850", "Maitre='" & lst1.Value & "' AND IdEngagementA <> '" & lst1.Value & "' ") The first line (Total1) return a Null (which is causing me...

Hi I just got a really weird problem and I really don't know what is going on Here's the code that cause the problem Private Sub lst1_AfterUpdate() Dim Total1, Total2 As Long If IsNull(DLookup("IdEngagementA", "Table850", "Maitre='" & lst1.Value & "' AND IdEngagementA <> '" &...

it gave me 01-000000-BU (one of the data under IdEngagementA) and yur other thing worked perfectly thank you

txt1 as no format selected.. it's simply text

ok that,s the complete code where I do the if : Private Sub cmd1_Click() On Error GoTo Err_cmd1_Click Dim strSQL1, strSQL2, numero As String Dim Total1, Total2, Total3 As Long numero = Format(txt1.Value, "00-000000-00") If (DLookup("IdEngagementA", "Table850"...

Hi I'm trying to do a If that would check the database to see if the record that the user wanna create already do so I can tell him Here's what I have If (DLookup("IdEngagementA", "Table850", "IdEngagementA = '" & txt1.Value & "'")) Then txt1.Value is what the user is gonna enter...

it's a text date with this input mask 00-000000-AA (sorry I forgot I changed to AA when I wrote just before, but I changed to AA in my code so it'S not the problem)