Search results for query: *

...cn, adOpenKeyset, adLockOptimistic, adCmdTable r = 2 Do While Len(Range("A" & r).Formula) > 0 With rs strSQL = "select * from tblMaterial where refMaterial = " & Int(Range("A" & r).Value) 'Item1'" On Error Resume Next .Open strSQL, cn, adOpenKeyset...

...dbo.tblCommandeProduit.Qte, dbo.tblCommandeProduit.Prix, dbo.tblCommandeProduit.Prix * (CASE WHEN dbo.tblCommandeProduit.Discount = 0 THEN 1 ELSE dbo.tblCommandeProduit.Discount END) * dbo.tblCommandeProduit.Qte AS [PRIX...

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 ?

Thnaks, GOT IT !

strSQL3 = "INSERT INTO tblInventaireManip (refInventaire,Qty,Remarque)" strSQL3 = strSQL3 & " SELECT refMaterial,0,'Initial quantity' " strSQL3 = strSQL3 & "FROM tblMaterial" strSQL3 = strSQL3 & "WHERE [tblMaterial].Rouleau = 0" why is the where not working ?

Table1=tblAssMaterialSupplier(,refMaterial,Defaut) Table2=tblSupplier(refSupplier,NomCompagnie) Table3=tblMaterial(refMaterial,Material,Marque) I would like to insert into table1 all records from table3 where Table1.refMaterial =Table3.refMaterial Table1.Defaut=1...

Thanks.. DBCC CHECKIDENT ('MyTable', RESEED, 1) works fine :)

Sorry for the caps....Will this work on an MSDE?