Thanks,
Carl
Expand|Select|Wrap|Line Numbers
- Option Compare Database
- Private Sub Command7_Click()
- DoCmd.RunCommand acCmdImportAttachExcel
- End Sub
- Private Sub Command28_Click()
- Dim StrSql As String
- Dim tblname As String
- MyValue1 = InputBox("Enter File Number", "MyInputbox")
- tblname = "Sheet" & MyValue1
- StrSql = "DELETE * FROM [" & tblname & "] WHERE Physician_Comment <>'y'"
- DoCmd.RunSQL StrSql
- End Sub
- Private Sub Command35_Click()
- Dim StrSql As String
- Dim tblname As String
- MyValue = InputBox("Enter Report Number Column", "MyInputbox")
- tblname = "Sheet" & MyValue1
- StrSql = "ALTER [" & tblname & "] ADD COLUMN REPO_NUM"
- DoCmd.RunSQL StrSql
- End Sub