Search results for query: *

Thanks for the interset but I solved the problem myself. It seems I was supposed to load the DataEnviroment object then test the state of the recordset i was trying to update and if it was open I needed to close it. Then I updated the SQL and refreshed the report object. The code I used was...

I'm creating a front end to a MS Access DB linked to a Ctree++ Db using VB. I want to create a report based on some selections the user checks on a form. For example the user selects the various types of services to be reported for and the report is supposed to show all the vendors who offer...

=DLookUp("[Cost per Metre]","MainTeesQ","[txtMainTcost] =" & [txtMainTcost]) This is wrong. the lookup function is used like this: Dlookup(field1, table, field2 = value) field1 - the field whose value you want to return table - the name of the table/query the...

Try this code: Private Sub ShowFreeSpace() Dim fs, d, s Dim drvPath as String drvPath = "C:" Set fs = CreateObject("Scripting.FileSystemObject") Set d = fs.GetDrive(fs.GetDriveName(drvPath)) s = "Drive " & UCase(drvPath) & " -...

Run this procedure: Private Sub CreateLogFile() Dim fs as Object Dim a as Object Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.CreateTextFile("c:\testfile.txt", True) For index = 0 to list0.ListCount-1 a.writeline(list0.itemdata(index)) Next index a.Close...

You should save the values to some table so that the options will be available every time the database is run. Make the form based on the table and on closing the form update the table as necessary. When you open the form it will get the data from the table. ntp

you could use DLookup to get the value. Example, me.txtFieldValue = Dlookup For a string value ("[FieldName]", "queryName", "[SomeField] ='" & Somevalue & "'") For a numerical value ("[FieldName]", "queryName", "[SomeField]...

I noticed something in your last message >>try to run it in the VBA Editor, it just comes up looking for the macro name. Are you getting the same error when you open the form? Your code should look like this - Private Sub cboEmployeeID_AfterUpdate() me.filter "[EmployeeID] = &quot...

yes you need to change Ocmbo0 to cboEmployeeID. I'm sorry I assumed you would have realised my code was only a sample that needed to be adapted to your variables. That is why you were getting the Macro problem. The interpreter did not know what combo0 was so it assumed it was some macro. ntp

Your forms data source should be the Training table. The combobox should be bound to the employeeId field and consist of three columns: employeeID, FName, LName. You select an item from the combobox it returns the employeeid. the filter is applied to the form, all training records for the...

Your combobox afterupdate event might look like this: Private Sub combo0_AfterUpdate() me.filter "[EMPLID] = " & me.combo0 me.requery End Sub This is assuming your form has a specified data source with a field called EmplID. The filter will return all records with an...

Sounds like your report is taking very long to format itself so you have to wait a long time to actually view the output. Could be that you have a slow machine, little RAM, or extremely complex reports/subreports. ntp

Put this in the AfterUpdate event of your cmbCategory combobox. ntp

instead of using the refresh mthod use Requery. datMem.Requery ntp

Manowar, Send me a copy of the database with the table structures, and How you what calculations you need performed. I'll be able to better help you like that. ntp nparray@plipdeco.com

What criteria are you using? let's say you are using the category the person belongs to. Write a function like this: Public Function score(intValue as Integer) as Integer Select case (intValue) case 1: score = 3 case 2: score = 4 End Select End Function Then in your...

Create a query based on the table. Add four expression fields which will return the score for Calls, Speed, Time and Total and then return the TOP 3. There is a reserved word you can use to return the top n records based on the order by specification. ntp

If "test" is a table you can't use the findfirst method unless the field you are applying the criteria to is an indexed field. If that is the case one way to get around is to create a temporary query and base your recordset on that. Example: ... Set qdf =...

Why create a lookup table when a function can more than handle your four possiblevalues. Use caibo's solution. You can call the function in your query wherever you want the numerical value. "Select GetSeason(table1.Season) as NumericalSeason FROM table1" No need to use a lookup...

If what you are trying to do is perform an action if CNT is greater than 1 then you should do something like Private Sub TheCleaner() On Error Goto TheCleaner_Err Dim rst as recordset Set rst = currentdb.openRecordset("SELECT * FROM Table1") rst.movefirst if rst!CNT > 1...