HelpNewtoAccess
Member
- Local time
- Today, 15:56
- Joined
- Dec 13, 2019
- Messages
- 79
Does this code look correct or should I be doing something different. It seems to work ok but is there a way to shorten the code.
Thanks in advance...
Option Compare Database
Option Explicit
Dim db As Database
Dim rs As Recordset
Dim URL As String
___________________________________________________________________________________________________________________________________________________________________________________
Private Sub Form_Current()
On Error GoTo Form_Current_Err
Dim varTxt1 As Variant
Dim varTxt2 As Variant
Dim varTxt3 As Variant
Dim varTxt4 As Variant
Dim vartxt5 As Variant
varTxt1 = txt1
varTxt2 = txt2
varTxt3 = txt3
varTxt4 = txt4
vartxt5 = txt5
If (IsNull(txt1)) Then
DoCmd.SetProperty "cmd1n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd1n", acPropertyVisible, "-1"
End If
If (IsNull(txt2)) Then
DoCmd.SetProperty "cmd2n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd2n", acPropertyVisible, "-1"
End If
If (IsNull(txt3)) Then
DoCmd.SetProperty "cmd3n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd3n", acPropertyVisible, "-1"
End If
If (IsNull(txt4)) Then
DoCmd.SetProperty "cmd4n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd4n", acPropertyVisible, "-1"
End If
If (IsNull(txt5)) Then
DoCmd.SetProperty "cmd5n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd5n", acPropertyVisible, "-1"
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit
End Sub
___________________________________________________________________________________________________________________________________________________________________________________
Private Sub cmdFire_Click()
On Error GoTo cmdFire_Click_Err
URL = "C:\Centre\Info\Attachments\Fire\Fire Procedure.pdf"
CreateObject("Shell.Application").Open CVar(URL)
cmdFire_Click_Exit:
Exit Sub
cmdFire_Click_Err:
MsgBox Error$
Resume cmdFire_Click_Exit
End Sub
Thanks in advance...
Option Compare Database
Option Explicit
Dim db As Database
Dim rs As Recordset
Dim URL As String
___________________________________________________________________________________________________________________________________________________________________________________
Private Sub Form_Current()
On Error GoTo Form_Current_Err
Dim varTxt1 As Variant
Dim varTxt2 As Variant
Dim varTxt3 As Variant
Dim varTxt4 As Variant
Dim vartxt5 As Variant
varTxt1 = txt1
varTxt2 = txt2
varTxt3 = txt3
varTxt4 = txt4
vartxt5 = txt5
If (IsNull(txt1)) Then
DoCmd.SetProperty "cmd1n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd1n", acPropertyVisible, "-1"
End If
If (IsNull(txt2)) Then
DoCmd.SetProperty "cmd2n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd2n", acPropertyVisible, "-1"
End If
If (IsNull(txt3)) Then
DoCmd.SetProperty "cmd3n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd3n", acPropertyVisible, "-1"
End If
If (IsNull(txt4)) Then
DoCmd.SetProperty "cmd4n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd4n", acPropertyVisible, "-1"
End If
If (IsNull(txt5)) Then
DoCmd.SetProperty "cmd5n", acPropertyVisible, "0"
Else
DoCmd.SetProperty "cmd5n", acPropertyVisible, "-1"
End If
Form_Current_Exit:
Exit Sub
Form_Current_Err:
MsgBox Error$
Resume Form_Current_Exit
End Sub
___________________________________________________________________________________________________________________________________________________________________________________
Private Sub cmdFire_Click()
On Error GoTo cmdFire_Click_Err
URL = "C:\Centre\Info\Attachments\Fire\Fire Procedure.pdf"
CreateObject("Shell.Application").Open CVar(URL)
cmdFire_Click_Exit:
Exit Sub
cmdFire_Click_Err:
MsgBox Error$
Resume cmdFire_Click_Exit
End Sub