Recent content by PWise

Try If Me.ListBox1.ListIndex >= 0 Then Me.ListBox2.AddItem Me.ListBox1.Column(0) & ";" & Me.ListBox1.Column(1) End If

Where do you define conn

You don't need records sets you can use a update Statement UPDATE [Item Table] As I INNER JOIN [Case Code Table] As C ON (CUBE Between cube_low AND cube_high ) AND (Weight Between weight_low AND weight_high ) SET Code = Type DIM STR As String Str = "UPDATE [Item Table] As I INNER JOIN [Case...

TRY DECLARE @Start int DECLARE @End int SELECT @Start =1, @End = 5000; -- recursive CTE WITH Alll (num) AS ( SELECT 1 UNION ALL SELECT num+1 FROM Alll WHERE num < @End ) insert into yourtable(yourfield) select * from Alll option (maxrecursion 0) select *...

you will need a table with date and left join this table to SOMETABLE Select AVERAGE(CURRENTACCOUNT), SUM(CURRENTACCOUNT), DateField As EXTRACTDATE From DatesTable DT left join SOMETABLE St on st.DateField=st.EXTRACTDATE WHERE st.DateField >= '01-APR-2016'

Docmd.RunSQL "UPDATE tblInstruments SET tblInstruments.ModDate =" & NOW() & ";"

TRY docmd.GoToRecord acDataForm,me.name,acFirst

better Dim r As Range Set r = ActiveCell 'note use of Set keyword as assigning an Object ref! MsgBox Replace(r.Address, "$", "")

try Dim r As Range Set r = ActiveCell 'note use of Set keyword as assigning an Object ref! MsgBox r.Column & Chr(r.Row + 64)'this will work till column z

wouldn't this shorten even more Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) Dim ctl As Control For Each ctl In Me.Controls 'If ctl.Tag = "Visible" Then 'debug.print ctl.name ctl.Visible = (Len(Me!txtXLst & "") and ctl.Tag = "Visible") 'End If...

for starters if not isnull(dlookup("Name" ,"MSysObjects","type in(1,6) and Name='Tablename'" )) then msgbox "Table Exist"

johnherman : see Term limits in the United States

try Select * From TableName Where IsNumeric (Mid(SerialNo, 1, 1) ) = 0 and IsNumeric (Mid(SerialNo, 2, 1) ) = 0 and IsNumeric (Mid(SerialNo, 3, 1) ) = 0

i dont know you want to delete try strSql = "Delete * FROM SameOrd_tbl WHERE (((SameOrd_tbl.License_PartNo)=''))" or strSql = "Delete * FROM SameOrd_tbl WHERE (((SameOrd_tbl.License_PartNo)=' '))" do you know what the difference between 1)null 2)empty string 3)space is?

try unhide columns