Ç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)
ç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?
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
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.
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
hocam olmuş teşekkürler.ürün kodunuda aynı şekildemi yapayım?