# Phantom Selection Screen
Analysis generated on: 4/1/2025 4:04:51 PM
---
## Record Source
- *None*
## Controls
| Control Name | Reference |
|--------------|-----------|
| *None* | - |
## VBA Code
```vba
Option Compare Database   'Use database order for string comparisons

Private Sub Button2_Click()
   Call ckPrimaryScreen
   ErrM.Caption = ""
   Mater$ = itsaNull$(Phantom)
   If Mater$ <> "" Then
      DoCmd.OpenForm PrimaryScreen$, , , "PhantomNumber=" + Chr$(34) + Mater$ + Chr$(34)
   Else
      ErrM.Caption = "Invalid Material Selected"
   End If
End Sub

Private Sub Button6_Click()
   ErrM.Caption = ""
   Mater$ = itsaNull$(Material)
   If Mater$ <> "" Then
      DoCmd.OpenReport "RSelectMaterial", A_PREVIEW, , "MetalType=" + Chr$(34) + Mater$ + Chr$(34)
   Else
      ErrM.Caption = "Invalid Material Selected"
   End If
End Sub

```
## What it does
**Code Description**

This VBA code snippet appears to be part of an Access database application. It defines two event handlers for button clicks: `Button2_Click` and `Button6_Click`.

### Button2_Click

```markdown
**Button2_Click Event Handler**
```

*   When the button with ID `Button2` is clicked, this subroutine is executed.
*   The first line calls the `ckPrimaryScreen` procedure (not shown in the code snippet).
*   It then clears any error message associated with `ErrM`.
*   The value of `Material` ($Mater$) is checked for null using the `itsaNull$( )` function. If it's not null, a specific material number is used.
*   Based on the presence or absence of a valid material number, two different actions are taken:
    *   If a valid material number is available, it opens a form named `PrimaryScreen` with the material number as a parameter.
    *   Otherwise, an error message "Invalid Material Selected" is displayed.

### Button6_Click

```markdown
**Button6_Click Event Handler**
```

*   Similar to `Button2_Click`, when the button with ID `Button6` is clicked, this subroutine is executed.
*   It clears any existing error message in `ErrM`.
*   The value of `Material` ($Mater$) is checked for null using the `itsaNull$( )` function. If it's not null, a specific metal type is used.
*   Based on the presence or absence of a valid material number, this action:
    *   Opens a report named `RSelectMaterial` with the metal type as a parameter and preview mode enabled.
    *   Otherwise, an error message "Invalid Material Selected" is displayed.

**Key Observations:**

*   The code uses Access database-specific functions like `DoCmd.OpenForm`, `DoCmd.OpenReport`, and `ErrM.Caption`.
*   It employs string concatenation using the `$` symbol to build parameters for form and report openings.
*   Error handling and material validation mechanisms ensure that only valid inputs are used in subsequent operations.