(22-10-2018, 08:43)dsezgin demiş ki:

(21-10-2018, 22:42)dönis05 demiş ki: sorgu = "CREATE TABLE " & tbl & "" _
& " ( id Counter Primary Key," & sa & " double , " & na & " integer )"
CurrentDb.Execute sorgu
hatası veriyor

Visual Basic

Dim tbl, sa, ma, sorgu
tbl = "tblAd"
sa = "SalnAD"
ma = "MalnAD"

seklinde degistirin, VBA tools, referance bolumu MISSING olanlarin sol kutucuklarin isaretlemesi varsa, kaldirin.

Sayın Sezgin,

"" içine aldığımda tablo adını tblad olarak alıyor. formda girdiğimiz değeri almıyor.
1.köşeli parantez yapınca istediğimiz değeri tablo ismi olarak alıyor.
2. orjinalin de ki gibi yazınca aslında tablo ismini ve alan isimlerini doğru alıyor.

msgbox ile denemeler yaptım. tablo ismini ne alıyor, diğer alanları ne alıyor şeklinde

1 ve 2 de msg ta doğru değerler geliyor ama hala
alan tanımında söz dizim hatası veriyor.

MISSING bölümü de yok.

acaba yazım hatası mı var ?

sorgu = "CREATE TABLE" & tbl & "" _
& "(id Counter Primary Key," & sa & "double," & na & "integer)"
CurrentDb.Execute sorgu

sorgu = "CREATE TABLE" & tbl & "" _
& "(id Counter Primary Key," & sa & "double," & na & "integer)"
CurrentDb.Execute sorgu

TABLE"......TABLE " arasinda bir bosluk,
na.............ma olmali.

bu sorgu ile yeni tablo olusturulur, mevcut tabloya kaydi ekleme sorusu ile yapabilirsiniz. Prosedur kontrolunu deneme yanilma ile kendiniz yapabilirsiniz.

Öncelikle teşekkür ederim.

defalarca denedim.
bazen çalıştı bazen hata verdi.
hala aynı şerler oluyor. istikrarlı bir şekilde çalışmıyor.
yokarıda ki bahsettiğiniz boşluk da deneme yanılmalardan kaynaklıdır.

dediğiniz değişiklikleri yaptım ama yine hata veriyor.

(22-10-2018, 17:22)dsezgin demiş ki: sorgu = "CREATE TABLE" & tbl & "" _
& "(id Counter Primary Key," & sa & "double," & na & "integer)"
CurrentDb.Execute sorgu

TABLE"......TABLE " arasinda bir bosluk,
na.............ma olmali.

bu sorgu ile yeni tablo olusturulur, mevcut tabloya kaydi ekleme sorusu ile yapabilirsiniz. Prosedur kontrolunu deneme yanilma ile kendiniz yapabilirsiniz.

Tekrar çok teşekkür ederim.
sanırım hatamı buldum.
burada paylaşmak isterim ki aynı yöntem ile başkaları da değişiklik yapar ise çözümü bulsun.

söylediğiniz boşluktan hareket ile tür değişikliklerinde integer yerine double yazarken sonundaki boşlukları silmişim. türlerin sonuna da boşluk eklendiğinde sorun çözülüyor. kopyala yapıştır ile o boşlukları silmişim sanırım.

sabrınız için teşekkürler.

Merhaba;
Aşağıdaki kod da nerede hata yaptığım hakkında yardımcı olabilir misiniz?
ns = "Kurum" satırı dahil altındaki satırlardaki tırnaklardan herhangi birini kaldırdığımda, Run-time error '3380': 'c' alanı oluşturulan tabloda zaten var şeklinde uyarı alıyorum.. Ancak tırnak olduğunda bu hatayı almıyorum.. Saatlerdir çözemedim.. Boşlukları kontrol ettim..
Private Sub Komut6_Click()
Dim tbl, sa, ma, ca, gn, mk, ad, ya, yt, ns, dk, db, gt, pt, tt, ct, tr, bn, tn, cn, ik, sk, ia, ht, iy, ii, kf, ek, fn, ba, zt
tbl = tblAd
sa = Kayit_Numarasi
ma = Adi_Soyadi
ca = Hasta_Numarasi
gn = Gelis_Numarasi
mk = Medula_Kayit_Numarasi
ad = Adet
ya = Yasi
yt = TC_Kimlik_No
ns = "Kurum"
dk = "Devreden_Kurum_Adi"
db = "Dosya_Bransi"
gt = "Gelis_Tipi"
pt = "Provizyon_Tipi"
tt = "Takip_Tipi"
ct = "Tedavi_Tipi"
tr = "Triyaj"
bn = "Basvuru_Numarasi"
tn = "Takip_Numarasi"
cn = "Ilk_Takip_Numarasi"
ik = "Islem_Kodu"
sk = "Sut_Kodu"
ia = "Islem_Adi"
ht = "Hizmet_Turu"
iy = "Islemi_Yapan"
ii = "Islemi_Isteyen"
kf = "Kurum_Fatura_Numarasi"
ek = "Ek_Kurum_Adi"
fn = "Ek_Kurum_Fatura_Numarasi"
ba = "Ek_Kurum_Banka_Adi"
zt = "Gelis_Tarihi"

sorgu = "CREATE TABLE " & tbl & "" _
& " ( id Counter Primary Key," & sa & " integer , " & ma & " varchar(50) , " & ca & " integer , " & gn & " integer , " & mk & " integer , " & ad & " integer , " & ya & " integer , " & yt & " integer , " & ns & " varchar(100) , " & dk & " varchar(100) , " & db & " varchar(50) , " & gt & " varchar(25) , " & pt & " varchar(25) , " & tt & " varchar(25) , " & ct & " varchar(25) , " & tr & " varchar(25) , " & bn & " varchar(10) , " & tn & " varchar(10) , " & cn & " varchar(10) , " & ik & " varchar(25) , " & sk & " varchar(25) , " & ia & " varchar(75) , " & ht & " varchar(50) , " & iy & " varchar(50) , " & ii & " varchar(50) , " & kf & " varchar(50) , " & ek & " varchar(100) , " & fn & " varchar(25) , " & ba & " varchar(50) , " & zt & " date )"
CurrentDb.Execute sorgu
DoCmd.OpenTable tblAd, acViewDesign
End Sub

sayı alanı = " & sa & " bu şekilde
Metin alanı= '" & sa & "' bu şekilde tırnak koyarak kullanıp deneyin