Search results

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 =...

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 =...

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 =...

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

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

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

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

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

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...

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...

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

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...

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

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

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

I have attached a sample db for you to look at. Smed

Does anyone know of a way to compact a linked table ? Smed

When working with serial number I would not advised use a field which is set to autonumber. (There are many reasons for this) A possible solution would be to only allocate the order# to a form field once a record has been saved. The order# number would be automatically generated by using a...

Another simply way is to old down the Alt key and press the Down arrow to expland the combo box. Or use the SendKey function in the OnEnter Event for the field eg. =Sendkeys("%{Down}") Lookup SendKeys Statement in help for complete list of keys. Smed

Richio Have a look at this Private Sub fld_Date_Click() Dim DateClicked As Date DateClicked = Me.fld_Date If IsNull(DateClicked) Then ' Click date on new record to show all records again Me.RecordSource = "SELECT Table1.*, Table1.Field1 FROM Table1;" Else '...