Search results for query: *

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...

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 ?

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

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 ?

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...

COULD THIS BE USED BY vba TO RESET AUTONUMBER ? USE MyDatabase GO DBCC CHECKIDENT (MyTable, RESEED, 1) GO

I would like to loop all selected rows on an active sheet. the rows can be continuous or a ctrl select....can anyone suggest ?

can VBA DETERMINE IF THE OS IS WINDOWS OR MAC ?

I'm using this to insert an image into a comment... Set shp = rng.AddComment("") shp.Shape.Fill.UserPicture "C:\me.jpg" how can I detect the size of the image and resize it to 10% in scale ?

I'm using this to insert an image into a comment... Set shp = rng.AddComment("") shp.Shape.Fill.UserPicture "C:\me.jpg" how can I detect the size of the image and resize it to 10% in scale ?

Trying to use this: http://support.microsoft.com/default.aspx?scid=kb;en-us;Q321686 to update tables in an sql database: Dim cn As ADODB.Connection Dim strSQL As String Dim lngRecsAff As Long Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _...

I'm using this code to list all TABLES froma DB along with there column headings... I would like to also add the 1st row of data... [code] Sub ListTablesADO() 'http://www.motobit.com/tips/detpg_listdb/ Dim TablesSchema As ADODB.Recordset Dim ColumnsSchema As ADODB.Recordset Dim strConnect1...

can I delete all records from several tables at once ? The tables are not related

Can I Delete ALL records from multiple tables?

sub rename() Name "C\test.text" As "C\testbck.text" end sub I'm getting a file not found....what am I doing wrong ?

How would I loop through a user selection.... I use this , however the sheet must be the active one..... For Each cell In Selection.Rows 'do..... Next Cell I would like something like this .. For Each cell In Sheet("usersection").Selection.Rows 'do..... Next Cell