Zip File view

VERSION 2.00
Begin Form Form1
   Caption         =   "Invoice edit"
   ClientHeight    =   2355
   ClientLeft      =   2580
   ClientTop       =   2025
   ClientWidth     =   6240
   Height          =   2760
   Left            =   2520
   LinkTopic       =   "Form1"
   ScaleHeight     =   2355
   ScaleWidth      =   6240
   Top             =   1680
   Width           =   6360
   Begin CommandButton Command3
      Caption         =   "E&xit"
      Height          =   375
      Index           =   2
      Left            =   4800
      TabIndex        =   8
      Top             =   1680
      Width           =   1215
   End
   Begin TextBox Text3
      DataSource      =   "Data1"
      Height          =   375
      Left            =   1800
      TabIndex        =   6
      Top             =   1080
      Width           =   2535
   End
   Begin CommandButton Command3
      Caption         =   "&Delete"
      Height          =   375
      Index           =   1
      Left            =   4800
      TabIndex        =   5
      Top             =   600
      Width           =   1215
   End
   Begin CommandButton Command3
      Caption         =   "&Add"
      Height          =   375
      Index           =   0
      Left            =   4800
      TabIndex        =   4
      Top             =   120
      Width           =   1215
   End
   Begin TextBox Text2
      DataSource      =   "Data1"
      Height          =   375
      Left            =   1800
      TabIndex        =   1
      Top             =   600
      Width           =   2535
   End
   Begin TextBox Text1
      DataSource      =   "Data1"
      Height          =   375
      Left            =   1800
      TabIndex        =   0
      Top             =   120
      Width           =   2535
   End
   Begin Data Data1
      Caption         =   "Browse invoices"
      Connect         =   ""
      DatabaseName    =   "C:\TMP\VDATE\VALDATE.MDB"
      Exclusive       =   0   'False
      Height          =   270
      Left            =   1320
      Options         =   0
      ReadOnly        =   0   'False
      RecordSource    =   "Invoices"
      Top             =   1800
      Width           =   3015
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      Caption         =   "Customer ID:"
      Height          =   255
      Index           =   1
      Left            =   120
      TabIndex        =   7
      Top             =   1080
      Width           =   1575
   End
   Begin Label Label2
      Alignment       =   1  'Right Justify
      Caption         =   "Ship date:"
      Height          =   255
      Left            =   120
      TabIndex        =   3
      Top             =   600
      Width           =   1575
   End
   Begin Label Label1
      Alignment       =   1  'Right Justify
      Caption         =   "Invoice number:"
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   2
      Top             =   120
      Width           =   1575
   End
End
Option Explicit

Sub Command3_Click (Index As Integer)
   
    Select Case Index
    Case 0
       
        Data1.Recordset.AddNew
   
    Case 1
       
        Data1.Recordset.Delete
   
    Case 2
       
        End
   
    End Select

End Sub

Sub Text2_LostFocus ()
   
    Dim fIsDateValid As Integer
    Dim vInputDate As Variant
    Dim dynDataSetToTest As Dynaset
    Dim zFieldName As String

    vInputDate = Text2.Text
   
    ' This technique assumes the input control box is bound
    ' to a database via a data control.
   
    ' the next line copies a data control record set into a dynaset
    Set dynDataSetToTest = Data1.Recordset
   
    zFieldName = Text2.DataField
    Const fSayWhyItFailed = True
   
    fIsDateValid = ffnValidTimeDate(vInputDate, dynDataSetToTest, zFieldName, fSayWhyItFailed)
   
    Set dynDataSetToTest = Nothing
   
    If fIsDateValid = False Then
        ' Go back to the field to get new date
        Text2.SetFocus
    Else
        ' Nothing to do!
    End If

End Sub