bulunduğum klasöre kayıt...

[semih1966]

Accesste bir form hazırladım bu formda ki alanlarda bulunan kayıtları rasgele erişimli dosyaya yazdırdım oluşan dat dosyasını hiç yol belirtmezsem belgelerim klasörüne yazıyor ben ise access dosyam hangi klasörde ise oraya yazsın istiyorum

Private Type müşteri
    kodu As Integer
    adısoyadı As String * 30
    gurubu As String * 10
    adresi As String * 30
    ilçesi As String * 10
    ili As String * 10
    telefon As String * 10
    fax As String * 10
End Type
Dim kayıt As müşteri


Private Sub command1_Click()
kayıt.kodu = Text1
kayıt.adısoyadı = Text2
kayıt.gurubu = Text3
kayıt.adresi = Text4
kayıt.ilçesi = Text5
kayıt.ili = Text6
kayıt.telefon = Text7
kayıt.fax = Text8
Put #1, kayıt.kodu, kayıt
Close #1
End Sub

Private Sub command2_Click()
Dim kayıtno As Integer

kayıtno = Val(Text1)
Get #1, Text1, kayıt
Text2 = kayıt.adısoyadı
Text3 = kayıt.gurubu
Text4 = kayıt.adresi
Text5 = kayıt.ilçesi
Text6 = kayıt.ili
Text7 = kayıt.telefon
Text8 = kayıt.fax
Close #1
End Sub

Private Sub command3_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""

End Sub

Private Sub Form_Load()
Open "müşteri.dat" For Random As #1 Len = Len(kayıt)
End Sub


bütün kod yukarıdaki gibi ... nasıl yapabilirim yardımcı olursanız sevinirim.

 

[Haluk]

Merhaba,

Bende MS Access yok. Bu yüzden deneyemedim ama aşağıdaki gibi bir kod çözüm olabilir.

open application.currentproject.path & "\müşteri.dat" for random ......

 

[Ersen]

Merhaba,

Bende MS Access yok. Bu yüzden deneyemedim ama aşağıdaki gibi bir kod çözüm olabilir.

open application.currentproject.path & "\müşteri.dat" for random ......

Haluk Bey sizin foruma yaptığınız katkıları görüp de Acces'inizin olmadığını bizzat sizden duymak şaşkınlık yarattı bende. Acaba isteyerek mi kullanmıyorsunuz, zira hemen bütün office versiyonlarında Acces standart olarak geliyor.

Sizin, Acces'in VB yüzüne yönelik bilgilerinize çok ihtiyacı var forumun.

Saygılar...

 

[Haluk]

Günaydın sayın Ersen,

İş yerimde Office2000-Standart yüklü ve bunun içinde MS Access yüklü değil. Evde Office2000-Professional var ve MS Access'i PC'e yükledim.

Açıkçası, MS Access kullanmayı gerektirecek bir durum da pek olmuyor iş yerimde. Olduğu zaman da, Excel VBA'nin içinden bir *.mdb dosyası oluşturup işimi hallediyorum.

İyi günler dilerim.

 

[semih1966]

İlginize çok teşekkür ederim... ama kendim hayatta bulamazmışım...

 

[icetiner]

Merhaba,


Haluk Bey sizin foruma yaptığınız katkıları görüp de Acces'inizin olmadığını bizzat sizden duymak şaşkınlık yarattı bende. Acaba isteyerek mi kullanmıyorsunuz, zira hemen bütün office versiyonlarında Acces standart olarak geliyor.

Sizin, Acces'in VB yüzüne yönelik bilgilerinize çok ihtiyacı var forumun.

Saygılar...

Sevgili Ersen'in sözüne katılıyorum