IN THE SPOTLIGHT: MDE to MDB Conversion Service
(also supports: ACCDE to ACCDB, ADE to ADP, etc)
IN THE SPOTLIGHT: vbWatchdog
VBA error handling just got easier...
" vbWatchdog is off the chart. It solves a long standing problem of how to consolidate error handling into one global location and avoid repetitious code within applications. "
- Joe Anderson,
Microsoft Access MVP
Meet Shady, the vbWatchdog mascot watching over your VBA code →
(courtesy of Crystal Long, Microsoft Access MVP)
IN THE SPOTLIGHT: vbMAPI
An Outlook / MAPI code library for VBA, .NET and C# projects
Get emails out to your customers reliably, and without hassle, every single time.
Use vbMAPI alongside Microsoft Outlook to add professional emailing capabilities to your projects.
Provided by Allen Browne, firstname.lastname@example.org
If a new record will be similar to the previous one, you may wish to automatically fill text boxes with that data for the user to edit. dBase provided a "carry" mechanism as early as the mid '80s. Use a form's BeforeInsert event to achieve this result in Access.
Sub CarryOver(frm As Form) On Error GoTo Err_CarryOver ' Purpose: Carry the values over from the last record to a new one. ' Usage: In a form's BeforeInsert event procedure, enter: ' Call CarryOver(Me) ' Notes: This example limited to text boxes and combo boxes. ' Text/combo boxes must have same Name as the fields they represent. Dim rst As DAO.Recordset Dim ctl As Control Dim i As Integer Set rst = frm.RecordsetClone If rst.RecordCount > 0 Then rst.MoveLast For i = 0 To frm.count - 1 Set ctl = frm(i) If TypeOf ctl Is TextBox Then If Not IsNull(rst(ctl.Name)) Then ctl = rst(ctl.Name) End If ElseIf TypeOf ctl Is ComboBox Then If Not IsNull(rst(ctl.Name)) Then ctl = rst(ctl.Name) End If End If Next End If Exit_CarryOver: Set rst = Nothing Exit Sub Err_CarryOver: Select Case Err Case 2448 'Cannot assign a value Debug.Print "Value cannot be assigned to " & ctl.Name Resume Next Case 3265 'Name not found in this collection. Debug.Print "No matching field name found for " & ctl.Name Resume Next Case Else MsgBox "Carry-over values were not assigned, from " & ctl.Name & _ ". Error #" & Err.Number & ": " & Err.Description, vbExclamation, "CarryOver()" Resume Exit_CarryOver End Select End Sub
|Home||Index of tips||Top|
This is a cached tutorial, reproduced with permission.
Have your say - comment on this article.
What did you think of 'Carry data over to new record (old version)'?
No comments yet.
Why not be the first to comment on this article?!
Have your say...