Recent content by Johnny42

I'm using this snipet to update records in an MSDE database. The code works fine, however it wont update the first record in the loop any reason why ? rs.Open "tblMaterial", cn, adOpenKeyset, adLockOptimistic, adCmdTable r = 2 Do While Len(Range("A" & r).Formula) > 0 With...

Can something like this be accomplished ? SELECT TOP 100 PERCENT dbo.tblClient.NomCompagnie, dbo.tblCommande.POClient, dbo.tblStatut.StatutCommande, dbo.tblCommande.DateCreation, dbo.tblCommandeProduit.Discount, dbo.tblCommandeProduit.NomProduit, dbo.tblCommande.PO...

Is it possible to obtain a grand total of NET PRICE ?

Thanks, ! :)

Thanks... Getting error because of 0 values as discount. could I use a case to select discount, if 0 then dbo.tblCommandeProduit.Prix * dbo.tblCommandeProduit.Qte AS [PRIX NET] else dbo.tblCommandeProduit.Prix * dbo.tblCommandeProduit.Discoun * dbo.tblCommandeProduit.Qte AS [PRIX NET] end

SELECT TOP 100 PERCENT dbo.tblClient.NomCompagnie, dbo.tblCommande.POClient, dbo.tblStatut.StatutCommande, dbo.tblCommande.DateCreation, dbo.tblCommandeProduit.Discount, dbo.tblCommandeProduit.NomProduit, dbo.tblCommande.PO, dbo.tblCommandeProduit.Qte...

I have a sheet which I need to sort.. However I have placed "Text Boxes" with related comments to the row the "TextBox" is aligned with..... How can I add rows, resort and STILL have the "TextBox" follow the origional row to which it was aligned with ?

Thanks ! :)

Sub FindDates() On Error GoTo errorHandler Dim startDate As String Dim stopDate As String Dim startRow As Integer Dim stopRow As Integer startDate = 151515 startRow = Worksheets("ATELIER").Columns("A").Find(startDate, _ LookIn:=xlValues, lookat:=xlWhole).Row MsgBox startRow End...

Why am I getting this error : error 91 Block With..... With this code: startRow = Worksheets("Sheet1").Columns("A").Find("100", _ LookIn:=xlValues, LookAt:=xlWhole).Row

wow...soooooo sorry.... .SelStart = Len(TB_BOM.Text) '- 1 .SelLength = 1 should be .SelStart = 0 .SelLength = Len(TB_BOM.Text)

Well if there is no match the text does not get selected....

I'm usingthis to check for duplicates ...however I cannot get the seltext to work,... Private Sub TB_BOM_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'msgbox TB_ With Sheet1.Range("R1:R1000") 'TB_BOM.Text Set C = .Find(TB_BOM.Value, LookIn:=xlFormulas, LookAt:=xlWhole) If Not C...

how could I call this sub (faq707-4114)and get the chosen file to be returned to the sub that call it ?

I'm setting FR as a range. How can I test to see if the range is null ?