28-06-2013, 17:19
Merhaba,
access 2010 da açılan program 2007 de açılmıyor.
hata olarak;
tanınmayan veritabanı biçimi "'c:\dfsdfsdfsdfsdfs.accdb"
kod olaarak 2007 ye uymayan söz dizimi varmı sizce.?
Option Compare Database
Private Sub Değiştir23_GotFocus()
End Sub
Private Sub Form_Load()
End Sub
Private Sub Komut31_Click()
Dim stDocName As Strig
Dim stLinkCriteria As String
stDocName = "Personel_KimlikBilgileri"
stLinkCriteria = "[Kimlik]=" & Me![Liste23]
DoCmd.OpenFrom stDocName, , , stLinkCriteria
End Sub
Private Sub Metin_AfterUpdate()
Me.Liste Kutusu.Requery
End Sub
Private Sub Liste23_DblClick(Cancel As Integer)
Dim AcilacakForm As String
Dim Sart As String
AcilacakForm = "frmEvrakKayit"
Sart = "[EvrakID]=" & Me![Liste23]
DoCmd.OpenForm AcilacakForm, , , Sart
End Sub
Private Sub Metin20_Change()
Dim Bul As String
If Me.Cerceve4 = 1 Then
Bul = Metin20.Text
Me.Metin10.Value = Bul
Me.Liste23.Requery
ElseIf Me.Cerceve4 = 2 Then
Bul = Metin20.Text
Me.Metin12.Value = Bul
Me.Liste23.Requery
ElseIf Me.Cerceve4 = 3 Then
Bul = Metin20.Text
Me.Metin14.Value = Bul
Me.Liste23.Requery
ElseIf Me.Cerceve4 = 4 Then
Bul = Metin20.Text
Me.Metin16.Value = Bul
Me.Liste23.Requery
ElseIf Me.Cerceve4 = 5 Then
Bul = Metin20.Text
Me.Metin18.Value = Bul
Me.Liste23.Requery
End If
End Sub
Private Sub Komut22_Click()
Me.Metin20 = ""
Me.Metin10 = ""
Me.Metin12 = ""
Me.Metin14 = ""
Me.Metin16 = ""
Me.Metin18 = ""
Me.Liste23.Requery
On Error GoTo Err_Komut22_Click
DoCmd.GoToRecord , , acFirst
Exit_Komut22_Click:
Exit Sub
Err_Komut22_Click:
MsgBox Err.Description
Resume Exit_Komut22_Click
End Sub
Private Sub Metin20_GotFocus()
End Sub
Private Sub Komut26_Click()
On Error GoTo Err_Komut26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Personel Kimlik Bilgileri"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut26_Click:
Exit Sub
Err_Komut26_Click:
MsgBox Err.Description
Resume Exit_Komut26_Click
End Sub
Private Sub Komut29_Click()
On Error GoTo Err_Komut29_Click
stDocName = "Kimlik Bilgileri Rapor"
Exit_Komut29_Click:
Exit Sub
Err_Komut29_Click:
MsgBox Err.Description
Resume Exit_Komut29_Click
End Sub
access 2010 da açılan program 2007 de açılmıyor.
hata olarak;
tanınmayan veritabanı biçimi "'c:\dfsdfsdfsdfsdfs.accdb"
kod olaarak 2007 ye uymayan söz dizimi varmı sizce.?
Option Compare Database
Private Sub Değiştir23_GotFocus()
End Sub
Private Sub Form_Load()
End Sub
Private Sub Komut31_Click()
Dim stDocName As Strig
Dim stLinkCriteria As String
stDocName = "Personel_KimlikBilgileri"
stLinkCriteria = "[Kimlik]=" & Me![Liste23]
DoCmd.OpenFrom stDocName, , , stLinkCriteria
End Sub
Private Sub Metin_AfterUpdate()
Me.Liste Kutusu.Requery
End Sub
Private Sub Liste23_DblClick(Cancel As Integer)
Dim AcilacakForm As String
Dim Sart As String
AcilacakForm = "frmEvrakKayit"
Sart = "[EvrakID]=" & Me![Liste23]
DoCmd.OpenForm AcilacakForm, , , Sart
End Sub
Private Sub Metin20_Change()
Dim Bul As String
If Me.Cerceve4 = 1 Then
Bul = Metin20.Text
Me.Metin10.Value = Bul
Me.Liste23.Requery
ElseIf Me.Cerceve4 = 2 Then
Bul = Metin20.Text
Me.Metin12.Value = Bul
Me.Liste23.Requery
ElseIf Me.Cerceve4 = 3 Then
Bul = Metin20.Text
Me.Metin14.Value = Bul
Me.Liste23.Requery
ElseIf Me.Cerceve4 = 4 Then
Bul = Metin20.Text
Me.Metin16.Value = Bul
Me.Liste23.Requery
ElseIf Me.Cerceve4 = 5 Then
Bul = Metin20.Text
Me.Metin18.Value = Bul
Me.Liste23.Requery
End If
End Sub
Private Sub Komut22_Click()
Me.Metin20 = ""
Me.Metin10 = ""
Me.Metin12 = ""
Me.Metin14 = ""
Me.Metin16 = ""
Me.Metin18 = ""
Me.Liste23.Requery
On Error GoTo Err_Komut22_Click
DoCmd.GoToRecord , , acFirst
Exit_Komut22_Click:
Exit Sub
Err_Komut22_Click:
MsgBox Err.Description
Resume Exit_Komut22_Click
End Sub
Private Sub Metin20_GotFocus()
End Sub
Private Sub Komut26_Click()
On Error GoTo Err_Komut26_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Personel Kimlik Bilgileri"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut26_Click:
Exit Sub
Err_Komut26_Click:
MsgBox Err.Description
Resume Exit_Komut26_Click
End Sub
Private Sub Komut29_Click()
On Error GoTo Err_Komut29_Click
stDocName = "Kimlik Bilgileri Rapor"
Exit_Komut29_Click:
Exit Sub
Err_Komut29_Click:
MsgBox Err.Description
Resume Exit_Komut29_Click
End Sub