rename database in combination textbox

[breukelen]

I want to use the text in textbox to rename database.

name c:\test.mdb as c:\"text1.text".mdb.

This gives syntax error so instead of "text1.text "
it must be different.
Help is appreciated.

Gunter

 

[dpimental]

Try this faq705-2714

This should help you with your task.

David Pimental
(US, Oh)
dpimental@checkfree.com

 

[VBslammer]

Use concatenation to build the new name:

Name "c:\test.mdb" as "c:\" & text1.text & ".mdb"

You'll probably want to use a function to check the text in the text box first, something like:

Private Sub cmdChange_Click()
  If GetNewName(Text1.Text) <> "" Then
    Name strOldDatabase As GetNewName(Text1.Text)
  Else
    Msgbox "Please enter a new name"
  End If
End Sub

Public Function GetNewName(ByVal strName As String) As String
  If Len(strName) > 0 Then
    ' add other logic here to check for valid path,
    ' valid extension, etc.
    GetNewName = "C:\" & strName & ".mdb"
  Else
    GetNewName = ""
  End If
End Function

VBSlammer

Unemployed in Houston, Texas

 

[breukelen]

Thanks very much for your help.
VBSlammer I light a candle for you so your unemployment
situation will be ending soon.

Once more thanks !!!