Isloaded Komutu

[kkoksal]

Merhaba
Isloaded komutu yerine kullanabileceğim bir komut varmı.

 

[modalı]

Sayın kkoksal,

Öncelikle IsLoaded komut değil özellik. Yani herhangi bir Access nesnesinin aktif olup olmadığını gösteriyor.

Kullanma şekli:
nesne.IsLoaded=True (veya False) ise gibidir.

Siz tam olarak ne istiyorsunuz.

 

[kkoksal]

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

 

[karaayhan]

örnek yok mu?

 

[kkoksal]

Teşekkür

İlgilenen herkeze teşekkürler problem benden kaynaklanıyormuş Hallettim