صفحه ورودی جدید گوگل جهت ورود به Gmail و ساخت اکانت جیمیل ص 33

برای این کار باید از کد نویسی VBA در رویداد TextChange استفاده کنید، که متاسفانه الان وقت نمی کنم بنویسم ولی از طریق تب Home و استفاده از Conditional Formating در منوی Stye می توانید این کار را بصورت دستی انجام دهید ولی با این تفاوت که بک گراند سلول یا سلول ها تغییر می کند نه سطر
و به این صورت عمل کن که ابتدا باید ناحیه یا محدوده داده های خود را انتخاب کنی و سپس رفتن به مسیر :
Conditional Formating--->Highlight Cells Rules--->Text that Contains
و سپس در فیلدی اول کلمه مورد جستجو را بنویس

زیاد متوجه سوالت نشدم، آخه گفتی در یک فیلدت چند تا عملیات را ثبت می کنی و نگفتی نوع داده ای آن چیه، مگه میشه؟
در اصول حسابداری هر تراکنشی باید جدا ثبت شود یعنی شما حداقل به دو فیلد احتیاج دارید. مانند :
1- مبلغ خرید
2- مبلغ فروش

من هنوز دارم درس پس می دهم، سالها وقت مانده تا برسم به استادی.
همانطور که در پاسخ سوال قبلی گفتم شما باید از Query استفاده کنید به این ترتیب که چندین جدول را در یک کوئری معرفی می کنید و از آن Query در فرمتان استفاده می کنید. که با استفاده از آن می توانید سایر عملیات مثل شمارش یا Count و جمع کل و غیره را بطور دقیق انجام دهید

شما باید یک Query کامل از چندین جدول مرتبط ایجاد کنید سپس در SQL View جدول را بصورت زیر انتخاب کنید
SELECT Your Column Name FROM YourTable WHERE (([ID) Like [Forms]![YourForm]![ID]));
سپس در VBA بصورت زیر عمل کنی
On Error GoTo Err_command_Click
If IsNull(Me.TextBox.Column(0)) Then
MsgBox "شماره شناسه وارد نشده", vbExclamation, "خطا"
Me.TextBox.SetFocus
Else
Dim stDocName As String
stDocName = "YourQuery"
DoCmd.OpenReport stDocName, acPreview
End If
من در اینجا از OpenReport استفاده کردم، شما باید در فرم تست کنید

از کد زیر می تونی استفاده کنی ولی مشکلی که داره این است که یک فرم دیگر می سازه، سعی کن کد را تصحیح کنی
Const strForm = "Form1"
Const strCtl = "txtTest2"
Dim frm As Form
Dim ctl As Control
DoCmd.OpenForm FormName:=strForm, View:=acDesign
Set frm = Forms(strForm)
Set ctl = CreateControl(FormName:=strForm, ControlType:=acTextBox, Left:=1000, Top:=2000, Width:=2000, Height:=300)
ctl.Name = strCtl
' Switch to form view
RunCommand acCmdFormView
Forms(strForm).Controls(strCtl).Value = "farsimeeting.com"