Recent content by smed

  1. S

    TableDef connection - Appending & Removing

    I am using the following code to append a password protected paradox database Dim dbs As Database Set dbs = CurrentDb Dim strTableName As String strTableName = "Data-PL" Dim tdf As TableDef Set tdf = dbs.CreateTableDef(strTableName) tdf.Connect =...
  2. S

    Run Report A or B based on Item in Table

    in the Click event of your button, enter something like ... Private Sub btn_OK_Click() On Error GoTo Err_btn_OK_Click Me.Visible = False Dim strReportName As String Select Case Me![fld_FieldName] Case "yes": strReportName = "Report_A" Case "no": strReportName =...
  3. S

    Can I move a field in a table?

    I know this reply is a bit late, but I had the same problem and have worked out a solution. Sub SetFieldPosition(strTableName As String, strFieldName As String, intFieldPosition As Integer) Dim dbs As Database Dim tdf As TableDef Set dbs = CurrentDb() Set tdf =...
  4. S

    Default View - Continuous/Single Forms

    Does anyone know how to change the Default View of form from "Single Form" to "Continous" whilst the form is Open using VBA ?. Thanx Smed
  5. S

    Sending mail via Lotus Notes R5 using VBA

    Does anyone know how to send a lotus notes email to multiple recipients using the previous code. I can only get it to work with one recipient in each of the To, cc & bcc fields. A comma (,) does not seem to separate recipients. Thanks Smed
  6. S

    Message box question

    Have a look at the attached db as an example. Smed
  7. S

    Message box question

    have a look at this : Private Sub Textbox0_BeforeUpdate(Cancel As Integer) Dim counter As Integer counter = (DCount("*", "TableName", "FieldName=Textbox0")) If counter > 0 Then MsgBox "Duplicate Value" Me.Undo End If End Sub HTH Smed
  8. S

    Date Diff

    Try: DaysService: DateDiff("d",#01/04/2002#,[Enter Date]) HTH Smed
  9. S

    Print 3 almost the same reports for one record......

    Lynsey, I think I have found your problem. The recourd source of your ART report was specified in such as way that a cascading effect was being created due to the filtering with the report. Instead of using the filter option in the report, change the record source of the report into an SQL...
  10. S

    Display bottom of Memo Field

    Create another Text control of your form/report to display the last 100 character of the memo filedand specify its control source to: =Right(memo,100) (N.B. both the original memo field and the shortened emeo field must be present on the form/report, however the original memo field does not...
  11. S

    Relating sub sub forms

    This site might also be useful : http://www.mvps.org/access/forms/frm0031.htm Smed
  12. S

    IIf Statement with a Check Box Question

    Any form control items (eg. field, checkbox etc) value cannot be changed if its control source is based an a calculation. Instead created an afterudate event of your check box and change its value based on a calculation e.g suppose your check box is called "chk_ontime", simply overright the...
  13. S

    Filtering a Form

    Base your reports record source on a query and set the criteria for the date field to something like : Between [Forms]![form_name]![fld_BeginningDate] And [Forms]![form_name]![fld_EndingDate]. HTH Smed
  14. S

    Calendar

    Ust the Microsoft Date and Time Picker Control 6.0 (SP4) ActiveX. If you need to register the ActiveX, it can be located at C:\WINNT\SYSTEM32\MSCOMCT2.OCX HTH Smed
  15. S

    Compact Table

    Thanks, that works perfect ! :) I have another related question, do you know how to compact data in different format (e.g. dbase, paradox) ? Smed
Back
Top Bottom