Visual Basic Soru ve Sorunlarınız /-\Bu Başlık Altında Belirtiniz*/-\

yüyücel · 02-06-2008, 16:27

ya arkadaşlar benim sorum lada ilgilene bilir misiniz

yüyücel · 02-06-2008, 16:29

Private Sub Command1_Click()
b = InputBox("Ad Giriniz:", "KAYIT ARAMA")
data.Recordset.MoveFirst

While Not Adodc1.Recordset.EOF
If b = data1.Recordset.Fields(1) Then
Text7 = data1.Recordset.Fields(1)
a = MsgBox("Kayıt Bulundu...", vbOKCancel, "KAYIT ARAMA")
If a = 1 Then GoTo git
End If
data1.Recordset.MoveNext

Wend
C = MsgBox("Kayıt Bulunamadı", 0, "KAYIT ARAMA")
git:
End Sub

inşalah bu işne yarar

orcun_91e · 21-06-2008, 20:02

Alıntı:

yüyücel demiş ki;

arkadaşlar Ben Visual Basice Resim Eklemek Istiyorum Data Ile Ama Olmuyor Yardımcı Ole-ursanız Sevinirim

Alıntı:

yüyücel demiş ki;

private Sub Command1_click()
B = Inputbox("ad Giriniz:", "kayit Arama")
Data.recordset.movefirst

While Not Adodc1.recordset.eof
If B = Data1.recordset.fields(1) Then
Text7 = Data1.recordset.fields(1)
A = Msgbox("kayıt Bulundu...", Vbokcancel, "kayit Arama")
If A = 1 Then Goto Git
End If
Data1.recordset.movenext

Wend
C = Msgbox("kayıt Bulunamadı", 0, "kayit Arama")
Git:
End Sub

Inşalah Bu Işne Yarar

Alıntı:

yüyücel demiş ki;

ya Arkadaşlar Benim Sorum Lada Ilgilene Bilir Misiniz

Alıntı:

yüyücel demiş ki;

private Sub Command1_click()
B = Inputbox("ad Giriniz:", "kayit Arama")
Data.recordset.movefirst

While Not Adodc1.recordset.eof
If B = Data1.recordset.fields(1) Then
Text7 = Data1.recordset.fields(1)
A = Msgbox("kayıt Bulundu...", Vbokcancel, "kayit Arama")
If A = 1 Then Goto Git
End If
Data1.recordset.movenext

Wend
C = Msgbox("kayıt Bulunamadı", 0, "kayit Arama")
Git:
End Sub

Inşalah Bu Işne Yarar

Bunlar Ne Ya Bu YÜzden Bİr HaftaliĞina Banlandin Bİdahakİne Daha Dİkkatlİ Ol Üst Üste Mesaj Yazmak Yasaktir

02-06-2008, 16:27	#11 (permalink)
yüyücel EN Açıkgözlü Üyelik Tarihi: 02-06-2008 Mesajlar: 4 Rep Gücü: 0 Rep Puanı: 250	*Cevap: Visual Basic Soru ve Sorunlarınız /-\Bu Başlık Altında Belirtiniz/-\** ya arkadaşlar benim sorum lada ilgilene bilir misiniz

02-06-2008, 16:29	#12 (permalink)
yüyücel EN Açıkgözlü Üyelik Tarihi: 02-06-2008 Mesajlar: 4 Rep Gücü: 0 Rep Puanı: 250	*Cevap: Visual Basic Soru ve Sorunlarınız /-\Bu Başlık Altında Belirtiniz/-\** Private Sub Command1_Click() b = InputBox("Ad Giriniz:", "KAYIT ARAMA") data.Recordset.MoveFirst While Not Adodc1.Recordset.EOF If b = data1.Recordset.Fields(1) Then Text7 = data1.Recordset.Fields(1) a = MsgBox("Kayıt Bulundu...", vbOKCancel, "KAYIT ARAMA") If a = 1 Then GoTo git End If data1.Recordset.MoveNext Wend C = MsgBox("Kayıt Bulunamadı", 0, "KAYIT ARAMA") git: End Sub inşalah bu işne yarar

Konu Yönetim Seçenekleri
Yazdırılacak şekilde göster Sayfayı e-posta ile gönder
Konu Gösterim Seçenekleri
Normal şekilde göster Ağaç şeklinde göster Otomatik konu şeklinde göster

Visual Basic Soru ve Sorunlarınız /-\Bu Başlık Altında Belirtiniz*/-\

$Visual Basic Soru ve Sorunlarınız /-\Bu Başlık Altında Belirtiniz*/-\$ **Visual Basic Soru ve Sorunlarınız /-\Bu Başlık Altında Belirtiniz*/-\**

En çok aranan 50 sonuç
Arama bulutu

Visual Basic Soru ve Sorunlarınız */-\*Bu Başlık Altında Belirtiniz*/-\

Visual Basic Soru ve Sorunlarınız */-\*Bu Başlık Altında Belirtiniz*/-\

En çok aranan 50 sonuç Arama bulutu

Visual Basic Soru ve Sorunlarınız /-\Bu Başlık Altında Belirtiniz*/-\

$Visual Basic Soru ve Sorunlarınız /-\Bu Başlık Altında Belirtiniz*/-\$ **Visual Basic Soru ve Sorunlarınız /-\Bu Başlık Altında Belirtiniz*/-\**

En çok aranan 50 sonuç
Arama bulutu