Изменение пути связанной таблицы в сети

@AlexeyTyurin · Регистрация: 28.08.2007

Author24 — интернет-сервис помощи студентам

Вот:

Visual Basic

Private Sub Command1_Click()
Dim d As Date, pos As Integer, St1 As String, St2 As String
d = Date
n = Text1.SelStart
St1 = Mid(Text1.Text, 1, n)
St2 = Mid(Text1.Text, n, Len(Text1.Text))
Text1.Text = St1 & CStr(d) & St2
End Sub

@P@Ssword · 09.05.2009, 09:40

Или просто

Visual Basic

1	Text1.SelLength = 0: Text1.SelText = Date

	09.05.2009, 09:40