AccessTr.neT

Bul · 31/12/2009, 10:26

Çalışma grubu derken; gönderidğim kodlar her bilgisayarın kendi ip adres bilgilerini gösterir.
Çalışma grubundaki diğer bilgisayarlarda kendi ip adres bilgilerini görür.
Eğer bu adresler kayıtlansın ve diğer çalışma grubundaki bilgisayarlarda bu adresleri görsün istiyorsanız bu durumda bir tablo açın, ilgili ip adres alanlarını belirleyin. Daha sonra dilerseniz ilk ana formun açılışında otamatik ip adresini ilgili tabloya kaydersiniz, dilerseniz manuel kayıt işlemiyle kaydederek diğer kullanıcılara gösterirsiniz. (Veritabanı paylaşım konusu farklı bir olay, onun için sitede arama yapın)

Bul · 31/12/2009, 10:37

çalışma gurubu örnek workgroup gibi ama çok önemli değil.

hocam başka bir soru sorayım. 2 adet tablo var.
1 tablo urunler tablosu 2 tablo hareketler urunler tablosunda urunadı ve kod var
2 tabloda urunlerin giriş ve çıkışı yer alıyor. sormak istediğim soru şu:
stokta olmayan bir ürünü giriş yaparken hareketler tablosundan girdiğimde urunler tablosunada yazdırabiliyormuyuz? tablolar arası ilşkilendirme ile oluyormu?

Bul · 31/12/2009, 11:17

Eğer ürünler tablosunda yok ise ekletebiliyoruz.
İşlem yaptığınız formda ürün seçimi için bir açılır kutu var diyelim ve siz seçeceğiniz ürünü orada bulamadınız ama yine de girmek istiyorsunuz ve ürünler listesine de eklemesini istiyorsunuz. Bu durumda aşağıda kodları kullanarakta yapabilirsiniz..

Kod:

Option Compare Database 

Option Explicit 

Private Sub AcilanKutu1_NotInList(NewData As String, Response As Integer) 

If MsgBox("Yazılan değer listede yok. Eklensin mi?") = vbNo then exit sub 

Dim db As Database 

Set db = CurrentDb 

db.Execute "insert into urunler([urunadi]) values (" & [AcilanKutu1].Text & ")" 

'ürün kodu sanırım otamatik ayarlanmıştır. Bu nedenle bizim otomatik kod vermemize gerek yok.

Dim deger 

deger = AcilanKutu1.Text 

AcilanKutu1.Undo 

AcilanKutu1.Requery 

Response = acDataErrAdded 

AcilanKutu1.Value = deger 

 End Sub

Bul · 31/12/2009, 11:50

ustam malesef olmadı ben beceremedim.dosyayı ekliyorum yapmak istediğim formun adı GIRIS_UST kullanıcı adı MURAT TANIŞ ŞİFRE 1980.
buarada kod biz veriyoruz otomatik değil yani.

Bul · 31/12/2009, 12:48

Bunu bir deneyiniz

Kod:

Private Sub STOKADI_NotInList(NewData As String, Response As Integer)

Dim strSQL As String

Dim i As Integer

Dim Msg As String

If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' listenizde yok." & vbCr & vbCr

Msg = Msg & "Eklemek ister misiniz?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "Listede Olmayan Stok adı...")

If i = vbYes Then

strSQL = "Insert Into URUNLER ([STOKADI]) " & _

"values ('" & NewData & "');"

CurrentDb.Execute strSQL, dbFailOnError

Response = acDataErrAdded

Else

Response = acDataErrContinue

End If

End Sub

Bul · 31/12/2009, 13:53

hocam olmuş teşekkürler.ürün kodunuda aynı şekildemi yapayım?

AccessTr.neT

formda ip adresi gösterme

formda ip adresi gösterme

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri