Search results

please... can you explain something better what you want?

If Me.Recordset.EOF Then ... ??

maybe you can find here what you're looking for? http://www.lebans.com/setgetsb.htm http://www.lebans.com/SelectRow.htm

:D great :D

Hi, with rowsource: All;(no filter);1;Critic;2;Normal and dependent column = 1 then defaultvalue should be: "All" (not: All)

Ok, I understood already what you want. When I try this: 1. Button on Mainform (with one subform) 2. Code under button:Private Sub cmdNext_Click() Screen.PreviousControl.SetFocus DoCmd.GoToRecord , , acNext End Sub 3. Set cursor in a textbox on the mainform and click the button -> navigates...

okay, you're right, my code isn't complete (because I wrote it in the forum-editor ;)) it must be:Public Function fConList() Dim tbl As AccessObject For Each tbl In CurrentData.AllTables If Left(tbl.Name, 4) <> "msys" Then DoCmd.DeleteObject acTable, tbl.Name End If Next...

And what's that problem exactly? What's the errormessage you get? BTW, the "" in gotorecord must be blank:Screen.PreviousControl.SetFocus DoCmd.GoToRecord , , acNext

Dim vControlName as String vControlName = "CustomerAttribute01" Forms("FORM1")(vControlName) = "Some Value"

okay, that seems to be your problem, but not the of uncle gizmo :P

Hi Steven, try this: Screen.PreviousControl.SetFocus DoCmd.GoToRecord , "", acNext

What's the problem you've?

No, we were looking for the question 'how to remove access-objects via code' ;) It's also possible with DAO and ADO, but why should you make it yourself difficult if it's so easy :) greetz, Bert

Strange... You can try to import everything in a new database and then compile again? Personally I compile my code very frequently (after a couple of changes), so that I know whát I've changed.

pleased to help you :)

Public Function DeleteAllTables() Dim tbl As Obejct For Each tbl in currentdata.alltables Docmd.deleteobject tbl.name next tbl End Function tables/queries are in currentdata, forms/reports are in currentproject

It's better to handle this external, because it's like asking for problems when you copy or rename an file that's in use (if you cán do it, because windows will trigger an error)

Hi, What property are you looking for? When you look for (for example) the 'date last modified', then use this code: Public Sub LastFileUpdate() Dim fso As FileSystemObject Dim dbFile As File Set fso = New FileSystemObject Set dbFile = fso.GetFile(CurrentProject.FullName) MsgBox...

Yes it is :) There are several ways: 1. Add the tabcontrol to your form, then select the controls you want to have on a tab-page, then cut (not copy) the controls, select the tabpage you want them on and paste. One problem: when cut-and-paste controls, all the event-procedures (such as...

It will work with the runcommand, but you should use 'acCmdSubformDatasheetView' Maybe you should first set the focus to your subform: Me!subMySubform.SetFocus DoCmd.RunCommand acCmdSubformDatasheetView Pat, why shouldn't that be possible if it's available in the default popupmenu?