At Percona’s web store you can order full Percona Database Performance Audit in minutes. Find out the health of your database, and how to improve it. Pay online with a credit card. Improve your database performance now!
Private Sub Recovery() 'Recovers objects for a specific database. Dim txtPath Dim txtFile Dim strObjectName As String txtPath = "K:\DatabaseDevelopment\DBScripts_RegE\" txtFile = Dir(txtPath & "*.txt") While txtFile <> "" Select Case Left(txtFile, InStr(txtFile, "_") - 1) Case "Form" strObjectName = Left(Mid(txtFile, InStr(1, txtFile, "_") + 1), InStr(1, Mid(txtFile, InStr(1, txtFile, "_") + 1), ".") - 1) Application.LoadFromText acForm, strObjectName, txtPath & txtFile MsgBox "Form: " & strObjectName & " has been imported.", vbOKOnly Case "Table" 'etc... End Select Wend End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.