Search results

I Use this code: Function RemoveLinkedTables() On Error Resume Next Dim db As Database Dim tdf As TableDef Dim intCount As Integer, intPos As Integer Set db = DBEngine(0)(0) intCount = db.TableDefs.Count - 1 For intPos = intCount To 0 Step -1 Set tdf =...

Here in this forum i find out how we can hide/unhide the qry's. Can we do someyhing similar with forms-reports-modules? The code for the qry's: ====================== Function HideQuerys() Dim qry As QueryDef Dim x As Integer For Each qry In CurrentDb.QueryDefs If...

Dear Dave There is no any particular reason. I am just curious to find out. So do have any suggestion?

Hi all, Can someone show me how we can hide / unhide with a command button: all forms, reports and modules from a database? Thank you in advance.

Jdraw, Fantastic work... Thank you

jdraw Please check out this thread for extra ideas to solve my problem: http://www.access-programmers.co.uk/forums/showthread.php?t=149930

That's Correct Brian. Brian i am waiting for your opinion here....

Thank you both for the help but this is not what i am looking for. "It only does 1 Nid at a time". This is ok but i need with one qry to show me all the 3 rows from the closest number based on the nID. So i don't want to have a parameter. If i pull out the parameter then it show's me only...

Hi All, I Need a help with a qry. I have 2 tables and they are connected by nID. The table 2 is made by previous qry. The first table have 200 rows and the second have 50.000 rows. Each one have a column named DiffA with double numbers like: 2,02 – 7,89 – 15,01 etc… I Want from...

I Suggest you to hire Uncle Gizmo. Is one of the TOP developers on this forum.

I am guessing that you trying to copy the 'memo field' when you have opened the 'zoom box'. I see that bug only on access 2007. The best solution is to mark the total field with your mouse and then use the ctrl+c to COPY and then paste it with ctrl+V.

OK FINALLY THIS IS: Me.frmISSNSub.Form.RecordSource = "SELECT TOP 1 qryISSN.* FROM qryISSN " & BuildFilterSpec _ & " ORDER BY Abs(DiffB-" & str(Me.DiffB) & " );" Thank you wiklendt. Do you have paypall account for the 3$?

OK here is the situation: when i use 1 of this 2 examples everything is ok: ============================================================= Me.frmISSNSub.Form.RecordSource = "SELECT * FROM qryISSN " & BuildFilterSpec ========================= OR ==================...

[code] str(Me.DiffA - Me.txtMargin) & " AND " & str(Me.DiffA + Me.txtMargin) & " AND " Thank you for your reply Wiklendt. I am one step further now. Here is the SOLUTION i have but i am trying to figure out how i am going to do it and put them all together because this sql change...

Check your DB and inform if i have fix your problem and this is your solution.

Can you post a database with the apropriate tables and the qry? Your issue is simple to found a solution.

Create a module and put this function: '====================================== Function NullToZero(varValue As Variant) As Variant If IsNull(varValue) Then NullToZero = 0 Else NullToZero = varValue End If '========================================== End Function...

I found this and is ok for now but is not exactly what i am looking for. If Me.chkDiffA = -1 Then varWhere = varWhere & "[DiffA] Between " & _ str(Me.DiffA - 0.25) & " AND " & str(Me.DiffA + 0.25) & " AND " End If Some times the numbers are bigger or smaller. I need the...

Hi All, I am using the following filter on my form to see some results from a sub form when I press a button. ====================================================================== If Me.chkGrand = -1 Then varWhere = varWhere & "[GrandSyn] = " & str(Me.GrandSyn) & " AND "...

What is this? A Joke? If this is not a joke try this: Docmd.close acform, me.name Docmd.quit