Ado veya Dao Kodu

[hakkım]

C:\vERİTAB.XLS DİYE Bİ DOSYAM VAR BİDEMASA ÜSTÜNDE ARABUL.XLS DİYE Bİ DOSYAM VAR BURADA COMBOBOXDA NORMAL DE ARABUL.XLS DOSYASININ VERİTABANI SAYFASINDA VERİ ARATABİLİYORUM AMA C:\vERİ .XLS DOSYASININ VERİTABANI SAYFASINDA ADO VEYA DOA İLE NASIL VERİİ ARATABİLİRİM BİDE FORUMDAKİ KONULARA BAKTIM ADO VE DAO KODLARINDA KESİN Bİ YOL YAZMIŞLAR ÖRNEĞİN C:\vERİ .XLS BUNUN YERİNE ARAM SAYFASI NERDEYSE ONUN OLDUĞU YERDE Kİ VERİ.XLS ARAMA YAPSA MASAÜSTÜNDEYSE MASAÜSTÜNDE BELGELRİMDEYSE BELGELERİMDE ARAMA YAPSA OLURMU
Bİ SEVK PROGRAMI VARDA ONDA KULANMAK İSTİYORUM
KULLANDIĞIM ARAMA KODU BU

Private Sub lstpersonel_Click()
On Error Resume Next
Sheets("yakin").Select
Range("I1:L50").Select
Selection.ClearContents
adi.Value = lstpersonel.Value
Columns("A:A").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=adi.Value
Selection.CurrentRegion.Select
Selection.Copy
Range("I1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("A1").Select
Selection.AutoFilter
Range("I1:M1").Select
Selection.Delete Shift:=xlUp
Range("J1").Select
If ActiveCell.Value = Empty Then
ActiveCell.FormulaR1C1 = "Bu personelin yakın kaydı yoktur."
Else
End If
kaynak
On Error GoTo hata
If adi.Value = Empty Then
MsgBox "Kayıt araması yapabilmeniz için personel ismini giriniz!", vbExclamation, "Hasta Sevk Programı"
adi.SetFocus
Else
Sheets("veritabani").Select
Columns("B:B").Select
Selection.Find(adi.Value, ActiveCell).Activate
ActiveCell.Offset(0, 0).Select
adi.Value = ActiveCell.Offset(0, 0)
kurumu.Value = ActiveCell.Offset(0, 1)
gorevi.Value = ActiveCell.Offset(0, 2)
sicil.Value = ActiveCell.Offset(0, 3)
tc.Value = ActiveCell.Offset(0, 4)
kadro.Value = ActiveCell.Offset(0, 5)
adres.Value = ActiveCell.Offset(0, 6)
tedavi.Value = ActiveCell.Offset(0, 7)
kayit.Value = ActiveCell.Offset(0, 8)
kkarne.Value = ActiveCell.Offset(0, 9)
hasta.Value = adi.Value
hastc.Value = tc.Value
yakin.Value = "Kendisi"
karne.Value = kkarne.Value
hata:
If Err = 91 Then
cevap = MsgBox(adi.Value & " isimli kişiye ait hiçbir kayıt bulunamadı. Lütfen yazdığınız adı kontrol ediniz.", vbOKOnly, "Hasta Sevk Programı")
cevap = vbOK
adi.Value = ""
adi.SetFocus
End If
End If
End Sub

 

[hakkım]

kimse yokmu

kimse yokmu

 

[hakkım]

kimse yokmu

kimse yokmu