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
Kod:
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.