I have a code as follows:
Dim strConnect As String
Dim strMsg As String
Dim db As Database
Dim tdfLocal As TableDef
Dim varTblArray As Variant
Dim varTblItem As Variant
Dim conn As ADODB.Connection
Dim rstmat As ADODB.Recordset
Dim strc As String
Dim...
I was afraid of that. I get that msg in Access2000 everytime my query reffers to a field on a form and is triggerred from the code. I haven;t figured out why its giving me the problem. It used to work with Access 97.
Thy puting Dynaset but its doubtful.
set...
oh oh I found another error
iff((Mid(homephone,4,1)=")"),(Mid(homephone,2,2) & Mid(homephone,6,10)), (Mid(homephone,2,4) & Mid(homephone,7,10)))
and in the subroutine change line
if Mid(tmpPhone,4,1=")") then
to
if Mid(tmpPhone,4,1)=")" then
this should work
Oh I know what the problem is the coma's try this if it still gives you an error write a subroutine.
iff((Mid(homephone,4,1=")")),(Mid(homephone,2,2) & Mid(homephone,6,10)), (Mid(homephone,2,4) & Mid(homephone,7,10)))
the subroutine will go something like this
sub updateit()
Dim...
run update query on it
try iff(Mid(homephone,4,1=")",Mid(homephone,2,2) & Mid(homephone,6,10), Mid(homephone,2,4) & Mid(homephone,7,10))
if it it has a problem you will have to write something like that in a code and run it on your table
I don;t see anything wrong. This is what I use. Sorry no help here.
"SELECT [tblEmployees].* FROM [tblEmployees]WHERE [tblEmployees].Emp_tracker)='" & tmpstring & "';"
Try putting this on one line make sure after Emp_tracker)=
put single quote double space & space tmpstring...
I desperately need help on this one
I have a code someone posted for me but I am running into a missing expression error.
Set conn = New ADODB.Connection 'Define new ADO connection
Set rstmat = New ADODB.Recordset...
You need to group the records by employee. Create a query select employeeID and expr where you put the two fields to subtract. Click on Totals and under employeeID select GroupBy and under expr select Sum. It will give you the total per employee. Now that is the easiest approach. Or you can...
If you are doing this in a query. Create query for the firs and a next query for the second select. create a third query and add the two above joining them on year. Select all from first and all from second. Or in VBA same way.
Dim dbs As Database
Dim rstSet As DAO.Recordset
Dim strSQL As String
Dim tmpstring As String, tmpSupervisor As String
Set dbs = CurrentDb()
tmpstring = Me![UserId]
strSQL = "SELECT [Employee].*"
strSQL = strSQL & " FROM [Employee]"...
I am getting an error msg on .Open
error msg [ORACLE][ODBC][Ora]ORA-0093:missing expression
But if I just use straight access such as:
Sub CreateNewRec()
Dim dbs As Database
Dim rstSet As DAO.Recordset
Dim strSQL As String
Dim tmpstring As String, tmpSupervisor As String...
I have a code:
Dim wrkRemote As Workspace
Dim dbsRemote As Database
Dim strConnect As String
Dim rst As ADODB.Recordset
Dim db1 As Database
Dim rst2 As Recordset
Dim rname As String
strConnect = "ODBC;DSN=ORAPRD0;UID=******;DBQ=PRD0;ASY=OFF;PWD=****"...
No no no there was something. Maybe it was the developpers version but it was creating an exe app and would implement as much of Access into it as needed to run it.
I am looking for tha name of utility that creates exe files. In access there is an option to create an mde. But I want a stand alone app so people won;t have to have access installed. I know there was a utility on the cd of access 97 professional but I have no idea what it was called. Now I...
I have a form with 30 buttons on it named cmd1, cmd2 and so on. They all have different Caption which is cost ID.
along with buttons I have display fields that holds the description of the corresponding button. However the description is captured from a table onLoad.
to get the description and...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.