Problemsiz çalışan programım Access 2003 e çevirdikten sonra hata vermeye başladı.
Private Sub Button3_Click()
If IsLoaded("Parça Hareketleri") Then Forms![Parça Hareketleri]![sf*Parça Hareketleri].Form![Parça] = DLookup("[KOD]", "Parçalar", "[Seri no]=[Cevap]")
If IsLoaded("Parçalar") And IsNull([Komut]) Then
GoSQL = "insert into [Parça Serileri] ([Parça],[Yeni seri no]) values (Forms![Parçalar]![KOD],[Cevap])"
DoCmd.SetWarnings False
DoCmd.RunSQL GoSQL
DoCmd.SetWarnings True
Forms![Parçalar]![Yeni Numaralar].Requery
End If
If IsLoaded("Parçalar") And [Komut] = "Bul" Then
If DCount("[KOD]", "Parçalar", "[Seri no]=Forms![InputAl]![Cevap]") > 0 Then
DoCmd.SelectObject A_FORM, "Parçalar"
DoCmd.GoToControl "Seri no"
DoCmd.FindRecord Forms![InputAl]![Cevap]
GoTo InputAl_Bit
End If
MsgBox ("Temel No'lar arasında bulunamadı..Yeni No'lar arasına bakılacak!")
If DCount("[Parça]", "Parça Serileri", "[Yeni seri no]=" & "'" & Forms![InputAl]![Cevap] & "'") > 0 Then
DoCmd.SelectObject A_FORM, "Parçalar"
DoCmd.GoToControl "KOD"
DoCmd.FindRecord DLookup("[Parça]", "Parça serileri", "[Yeni seri no]=Forms![InputAl]![Cevap]")
GoTo InputAl_Bit
End If
End If
MsgBox ("Aradığınız Seri No bulunamadı!")
If IsLoaded("Makineler") And [Komut] = "Bul" Then
MsgBox ("OKKKKKKKKK")
DoCmd.SelectObject A_FORM, "Makineler"
DoCmd.GoToControl "KOD"
DoCmd.FindRecord Forms![InputAl]![Cevap]
GoTo InputAl_Bit
End If
InputAl_Bit:
'Forms![Parçalar]![KOD].SetFocus
DoCmd.Close A_FORM, Me.Name
End Sub
Bu kodarda ki hatayı bi türü blamadım bi bakabiirmisiniz
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.