Search results

yes sir, I have to fixed it well >I hope could run it smoothly

ok sir, thanks > could I also make change of this: Set F = Application.FileDialog /"(msoFileDialogFilePicker)"/: to Dim F As Object Set F = Application.FileDialog(3)

good day merry christmas >is it possible to omit some parts of the codes that are having compile error?

good day merry christmas see attachments

I found it interesting, a craft of Isladogs "IMAGE VIEWER" but when i use it and add to my Accdb an errror occured with this lines below, (but i'm still working to fixed the error, still hope I could do it) Dim F As /"FileDialog"/ Set F = Application.FileDialog...

More time to spent, more analysis to do, to reach the peak. This is big enough to work on. Thanks.

How you do it, on your way? Thanks.

Form, Module, Macro and Report count is done aleady, some code Syntax vary as obejct type changes. Thanks for the help: "arnelgp" and "moke123", good hints.

You allow me to keep going, thanks much to your guidance. i try this way; Dim i As Long i = 0 If Left(aob.Name, 5) = "MSys" And Not Me.chkSystem Then GoTo skip i = i + 1 Debug.Print "Number of Queries: " & i skip: Next MsgBox "Number of...

If Not Left(tdf.Name, 5) = "MSys", is the count of Local tables and Linked Tables plus "Msys" Not the query counts-total

Not exactly, because the result of Left(tdf.Name, 4) is the count of Local tables and Linked Tables minus "Msys"

Something wrong with this code for query, total does not match the actual number of Queries Dim qdf As DAO.QueryDef Dim obj As Object Dim tdf As DAO.TableDef Dim i As Long i = 0 Debug.Print CurrentDb.TableDefs.Count For Each tdf In CurrentDb.TableDefs If Not...

Ive been using different approach for objects navigation, but this one on current is unique. I made little modification for (open/close, max/min), looks like something i missed. My idea is to count the number of tables on_click "Tables" button, as table names shown on the list, i wish to...

Most people who made comments, does not know how to help. >better have a solution oriented comments not finding errors of what has done improvement >i made a solution to my post, beacuse i continued to search ideas on AWF from present and previous posts >But Isaac has made his clue for me, what...

Nice, i like this, useful one. DoCmd.RunCommand acCmdSpelling

Yeah

Thanks for this code; I make use of it... for file path name Dim f As Object Dim strFile As String Dim strFolder As String Dim varItem As Variant Set f = Application.FileDialog(1) f.AllowMultiSelect = False If f.show Then For Each varItem In f.SelectedItems strFile...

MajP, post: Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Wow it works, i'm done. Thank you very much.

[/CODE] Nice; i'll try this code; Thanks MajP

I love to play the Number Puzzle. This game is somewhat short term memory and past solving. It needs quick series thinking. Ive' done someways to make it possible. I only use click command through the shuffle numbers, using textbox, 1 to 16. My look out is how to make it possible using arrows...