illaki formu kapatmak mı lazım?

[takoo]

selam arkadaşlar.herzamanki gibi yine bir sorunum var.form denetiminde kullanmak üzere bir tablo oluşturdum.ve o tabloya kısa yoldan ulaşmak için forma buton ekledim.tabloyu açıp bilgi girişi yapıyorum,tabloyu kapatıyorum (tabii bu arada denetimi "tabloya bağlı "açılır liste kutusu" olarak ayarladım.)sonra denetimi tıklıyorum açılır listede yeni girdiğim bilgi yok! anca formu kapatıp açtıktan sonra geliyor.illaki formu kapatmak mı lazım? yardımcı olursanız sevinirim.

*ah şu sorularbitmez bir türlü,bir de şu var; access'in herhangibir sürümünde oluşturulan bir veritabanını başka bir sürümde kullanmak için o sürüme dönüştürmek mi lazım,yoksa bir sorun çıkmadan çalışır mı ?
çok teşekkür ediyorum arkadaşlar,eyvallahın. :yardim:

 

[attila52]

sayın kardeşim öncelikle senin açılankutu da istediğin bilgi hangi tabloda ise onu açılan kutunun sql bağlantı yapıp alanını seçtinki açılan kutuda görebiliyorsun. evet
sorun şu güncelleme sorgusu oluşturup o tablo için formun üzerine bir buton atayarak makro çalıştır komutundan seçenek sunabilirsin.
YADA
formdaki tabloya başvuran bir açılankutun var zaten siz bunun olayyordam özellik menüsünden listedeyokken kod bölümüne kod yazmanız gerekmektedir listede yokken size auto o bilginin geleceği tabloyu değilde o bilgiyi alacağın tablodan bir form oluşturup şu işlemleri yapmanı rica ediyorum.
1.si senin bilgileri açılankutuya çağırdığın tablo aşağıda ürünler1 diye nitelendiriliyor ve açılankutu adı ise ÜrünKodu olarak belirtilmiş birde barkod diye geçen alan ise ürünler1 tablosu içindeki kitlenecek alan bu ID de olabilir ok
Private Sub ÜrünKodu_NotInList(NewData As String, Response As Integer)
Dim strType As String, strWhere As String
'kullanıcı var olmayan bir ürün adı girmiştir
strType = NewData
'Sınama dayanağını kur
strWhere = "[ÜrünKodu]=""" & strType & """"


'Bu ürünü eklemeyi isteyip istemedikleri sor
If vbYes = MsgBox("BU STOKLARDA :|" & NewData & "| YOK. " & " EKLEMEK İSTİYORMUSUNUZ ?", vbYesNo + vbQuestion + vbDefaultButton2, gstrAppTitle) Then
'yup. ürün ekleme formunu aç ve ona yeni adı aktar
've önceden seçilmiş kategorileri ekle
DoCmd.OpenForm "Ürünler1", DataMode:=acFormAdd, WindowMode:=acDialog, OpenArgs:=strType & ";" & Me.ÜrünKodu

'Ürünün gerçekten eklendiğini doğrula
If IsNull(DLookup("Barkod", "Ürünler1", strWhere)) Then
'Nope,
MsgBox "( STOK EKLENDİ " & " İŞLEME DEVAM )", vbInformation, gstrAppTitle
'Access'e devam etmesini bildir- biz hatayı yakaladık
Response = acDataErrContinue
Else
'Ürün eklendi Tamam- Access'e bildir böylece açılan kutu yeniden sorgulansın
Response = acDataErrAdded
End If
Else
'Eklemek istemiyor- Access'in normal hatasını görüntülemesine izin ver
Response = acDataErrDisplay
End If
End Sub
2.ci adım ise kardeşim senin ürünler1 (örnek bu) tablosundan oluşturduğun formun kod bölümüne


Private Sub Form_Load()

Dim intI As Integer
If Not IsNothing(Me.OpenArgs) Then
'"Not in list"den çağrıldıysa, openargs
'Ürün Adı, ürün koduna sahip olmalıdır
'ikisini ayıran noktalıvirgüle bakın
intI = InStr(Me.OpenArgs, ";")

'bulunmaz tek sahip olduğumuz bir ürün adıdır

If intI = 0 Then

Me.ÜrünKodu = Me.OpenArgs
Me.ÜrünAdı = left(Me.OpenArgs, intI + 1)

Else

Me.ÜrünKodu = left(Me.OpenArgs, intI - 1)
Me.ÜrünAdı = Mid(Me.OpenArgs, intI + 1)
'ÜrünAdını kilitle

Me.Barkod.Locked = True
Me.Barkod.Enabled = False

'...ve araç ipucunu temizle

Me.Barkod.ControlTipText = ""
End If
End If

End Sub
işleme başla sen her olmayan bir kayıt işlemeye başladığnda access sana bir ileti gösterecek ve bu ileti ürün listede yok eklemek istiyormusun gibi ve sen evet seçeneğini işlediğinde olay ürünler1 formuna gidip yeni kayıt ekleyecek ve sen ürünler formunu kapattığında auto update işleyip açılankutu (ürünKodu) alanını update edecek ve bilgi kendisini işleyecek bu kadar başka yapacak birşey yok
gerisi kolay gelsin