Search results

  1. S

    reducing value to 2 decimals

    in the after update event of the field
  2. S

    reducing value to 2 decimals

    Hello, I tried it like this: me.txttesting = round (me.txttesting,2) but this doesn't do the trick ... Sven.
  3. S

    reducing value to 2 decimals

    Hello, how can I make sure that when a user write 12,4423 in a independent field this value change into 12,44 (with vba). Is this possible? Thanks in advance, Sven.
  4. S

    Functionkey F1

    Hello, is there an easy way to disable the F1 key so there is no possibility to enter the helpfile? Thanks in advance, Sven.
  5. S

    how to filter a listbox

    Hello, no, it isn't working. the msgbox is showing the following (see attachment). Sven.
  6. S

    how to filter a listbox

    Hello, I have made the change, but even then it is not working. I get no error but the list is always empty when I fill something in ... strSQL = " SELECT KlantID, Klantnaam, Actief " & _ " FROM TblOpzoekenKlanten " & _ " WHERE (((TblOpzoekenKlanten.klantnaam) Like...
  7. S

    how to filter a listbox

    Hello, I am trying to filter a listbox with rhe folowing code: strSQL = " SELECT KlantID, Klantnaam, Actief " & _ " FROM TblOpzoekenKlanten " & _ " WHERE (((TblOpzoekenKlanten.klantnaam) Like '*(me.txtzoeken.value)*' )" Me.lstklanten.RowSource = strSQL But this doesn't do anything at all...
  8. S

    Storage of numbers

    Hello, I need to store numbers in a table between 0 and 9999,99. What kind of type should i use? I have tried decimal but I still get an error! Thanks in advance, Sven
  9. S

    null and dlookup

    Hello, what is the most easy way to prevent an error with a null value in a dlookup? I have an field on a form that sometimes is = 0 then I get an error in the following code: DLookup("[Date]", "Tblusers", "[user] =" & Me.lastuser & "") Is it possible that when lastuser = 0 the text "no...
  10. S

    Night shift

    Hello, I want to check for particular users if they have made some new records. I have found some code that is working during the day ... like If DateValue(Me.txtnamiddagploegpm7) = Date Then If TimeValue(Me.txtnamiddagploegpm7.Text) > TimeValue("14:00:00") And...
  11. S

    database users

    Hello, I am working with an adp project with 10 users. Is it possible to get a list from all the users that are logged in at a certain time? I tried it like this: Private Sub ShowUsers() Dim cn As New ADODB.connection Dim rs As New ADODB.Recordset Dim i, j As Long Set cn =...
  12. S

    Calling a subroutine on a different form access

    Hello, works great! Thank you. Best regards, Sven.
  13. S

    Calling a subroutine on a different form access

    Hello, in the form FrmIngaveParameters I hav a procedure to lookup some data like: Private Sub OpzoekenMoederrolGegevens(Optional dMoederrolnummer As Double) Dim strSQL As String If dMoederrolnummer = 0 Then strSQL = " SELECT TOP 1 TblMoederrollen.Moederrolnummer, MachineID...
  14. S

    Close button

    Hello, in my access application I have made a button to close this application and make a log. Now when somebody hit the cross in the right corner to close access I have a problem with my logtable. I know you can disable this button but I want to do the following: when somebody hit this button...
  15. S

    Export pivot

    Hello, indeed I amworking wth Access but when i do it like you wrote I get an error 91 object variable not set. When I compile there is no problem, error 91 appears when I run the code. This is the complete code: Private Sub cmdexporteren_Click() Dim strName As String Dim strPath As String...
  16. S

    Export pivot

    Hello, also the currentdb doesn't work ... object "with" isn't defined. Keep in mind that I am working with SQL tables as backend ... Transfer to a spreadsheet seem very hard to accomplish ... Best regards, Sven. P.S. now the real disappointment ... I am from Belgium
  17. S

    Export pivot

    Hello, seems simple but ... I created a dummy query ... with the name Q_exporteren Then i changed the code like: CurrentProject.connection.Querydefs("Q_exporteren").Sql = strSQL DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Q_exporteren", strPath Then I get an error wrong...
  18. S

    Export pivot

    Hello, if I try the Transferspreadsheet command I get an error. DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strSQL, strPath Is it not allowed to use strSQL in this context? Sven.
  19. S

    Export pivot

    Hello, because I want to keep it a pivot (draaitabel). Best regards, Sven.
  20. S

    Export pivot

    Hello, I have made a access application that has a OWC 10 pivottable control on it. I use the function pivottable.export("") to export the pivot table to excel. When I do this I always get an error in Excel. When I take a look to the logfile ... the information about this error is missing...
Back
Top Bottom