sunboy
چهارشنبه 28 خرداد 1382, 16:23 عصر
سلام
اگه شما می دونید مشکل این کد چیه به من بگید
Data1.Recordset.AddNew
If flage = False Then
flage = True
Command1.Caption = "GO !"
Dim stra As String, strd As Integer, path As String
If a.FolderExists("E:\") = True Then
If a.FolderExists("E:\Khatrat") = False Then
a.CreateFolder ("E:\Khatrat")
a.CreateTextFile ("E:\khatrat\" & Text1.Text)
End If
Dim s As String
a.CreateTextFile ("E:\khatrat\" & Text1.Text & ".rtf")
txtpath.Text = ("E:\Khatrat\" & Text1.Text & ".rtf")
txtsubject.Text = Text1.Text
Else
path = InputBox(" لطفا یک ادرس معتبر برای ذخیره خاطرات خود را بدهید", "Path")
a.CreateFolder (path)
txtpath.Text = (path)
End If
Load Form2
Form2.Show
Else
flage = False
End If
من می خوامم اعطلاعات txtpath و txtsubject بره به بانک اعطلاعاتیم ولی عمل نمی کنه
اگه شما می دونید مشکل این کد چیه به من بگید
Data1.Recordset.AddNew
If flage = False Then
flage = True
Command1.Caption = "GO !"
Dim stra As String, strd As Integer, path As String
If a.FolderExists("E:\") = True Then
If a.FolderExists("E:\Khatrat") = False Then
a.CreateFolder ("E:\Khatrat")
a.CreateTextFile ("E:\khatrat\" & Text1.Text)
End If
Dim s As String
a.CreateTextFile ("E:\khatrat\" & Text1.Text & ".rtf")
txtpath.Text = ("E:\Khatrat\" & Text1.Text & ".rtf")
txtsubject.Text = Text1.Text
Else
path = InputBox(" لطفا یک ادرس معتبر برای ذخیره خاطرات خود را بدهید", "Path")
a.CreateFolder (path)
txtpath.Text = (path)
End If
Load Form2
Form2.Show
Else
flage = False
End If
من می خوامم اعطلاعات txtpath و txtsubject بره به بانک اعطلاعاتیم ولی عمل نمی کنه