Search results

On the On Click event of your button add: Name_Of_Your_Subform_Control.SourceObject = "Name_Of_Your_Subform"

Actually, it should be a semi-colon like MStef said. In VBA code it's a comma but MStef told OP to put it in the Control Source property.

Could you post the query behind the listbox and the code you currently have on the double click event.

Woops sorry about the missing "End If". Did you place it under "Loop"? That's where it should be. On what line are you getting that error? Also, yes you can use a query in OpenRecordset. Just use CurrentDb.OpenRecordset("yourQueryName")

If they are, then couldn't you just use something like this? Function SendRTFFiles() On Error GoTo Err_Command0_Click Dim strSQL As String Dim strFileName As String Dim rstVendors As DAO.Recordset Set rstVendors = CurrentDb.OpenRecordset("SELECT Vendor_No, Vendor_Name FROM...

Aren't these vendors stored in a table?

Show us the part where you assign a value to "cVendorName". It seems a bit weird that you can get the vendor name but have trouble getting the vendor number.

Dim rstTable As DAO.Recordset Set rstTable = CurrentDb.OpenRecordset("SELECT Name FROM tblTable", dbReadOnly) If Not rstTable.EOF Then rstTable.MoveFirst Do While Not rstTable.EOF cbxYourComboBox.AddItem rstTable.Fields("Name")...

You had "Next" on the wrong spot. If you use tabs in your code, these errors are much easier to identify. Dim DQ As String Dim ctl As Control Dim strMbox DQ = """" If Not IsNull(Text409) Then strMbox = MsgBox("Same release for new record?", 4, "Check") If strMbox = 6 Then...

Looking at this purely in a mathematical way, this could do the job. At the textbox with the running SUM, use this as control source: =((yourrunningsumnumber/10)-Int(yourrunningsumnumber/10))*10 or shorter: =yourrunningsumnumber Mod 10 That way, 115 will be shown as 5 and 8768 as 8 (for example):p

So you have the column TotalTime (or was it Time_Total) in your query. What keeps you from ordering by that column?

No, you can not use local variables or objects within an Eval expression that way. May I ask why you want to use it that way? Surely we can find another way. Are you perhaps trying this? Debug.Print rsMatter_Details.Fields(!Database_Name)

Do you have this anywhere (preferably at the top) in the same file where you have that sub? Private Counter As Integer If not, add it :)

Strange, I recreated that scenario in my test database and the field just gets empty when there are no records. But hmm.. perhaps this might work? =nz(frmYourSubform.Form!txtYourTextbox;0)

How are you getting the total? With Sum? Because then it shouldn't give #Error but just.. emptiness.

I'm not completely sure if I get what you mean but have you linked the the DonorID field on the main form to the DonorID on the subform? This can be done in the Data tab of the properties of the subform. Note: The properties of the subform object, not the properties of the form IN the subform...

When you use the fnFindWindowLike function, do you use it like this? fnFindWindowLike("YourTitle*") Note the asterisk which indicates that the title should start with "YourTitle" and can have any text behind it.

Ah, I must have missed that part of your question. Check this out: Function yourFunction() As Boolean Dim rstTable As DAO.Recordset Set rstTable = CurrentDb.OpenRecordset("SELECT * FROM yourTable") rstTable.FindFirst "FieldA=1 AND FieldB=2" If rstTable.NoMatch Then 'no...

This bit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private booIsAppRunning As Boolean goes in the same file as the code of your events. The "module" that comes with the form. You could place it in a...

Included a sample database. Check out frmMain and rptMain. Hope this helps :)