Skip to main content

AccessTr.neT


Etiketler
Yazar: exelance - Cevaplar: 3 - İzleme: 3132
Vb6 access te tablo olustutuken hata
Arkadaşlar söle bi kodum var ama hep hata alıyorum

Dim dosya As Database, td As TableDef, fd As Field
Private Sub Command1_Click()
On Error Resume Next
If text1.Text = "" Then
MsgBox "Lütfen bir ism giriniz.", vbApplicationModal + vbInformation, "Form1"
text1.Text = ""

Else
On Error Resume Next
Set dosya = "c:\deneme.mdb" 'Burda hep hata alıyorum.
Set fd = td.CreateField("tarih", dbText, (20))
td.Fields.Append fd
dosya.TableDefs.Append
Task